在Delphi中操作快捷方式

function ShortCutToString(const HotKey:word):string;

var

shift:tshiftstate;

begin

shift:=[];

if ((wordrec(HotKey).hi shr 0) and 1)<>0 then

include(shift,ssshift);

if ((wordrec(HotKey).hi shr 1) and 1)<>0 then

include(shift,ssctrl);

if ((wordrec(HotKey).hi shr 2) and 1)<>0 then

include(shift,ssalt);

result:=shortcuttotext(shortcut(wordrec(hotkey).lo,shift));

end;

4. 调用实例：

新建一个Application，在窗体上放置一个OpenDialog，三个Button，一个Edit，设置OpenDialog的属性Option部分的ofNoDereferenceLinks为true，Filter属性为lnk file|*.lnk；然后为Button1、Button2和Button3

文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!