首页
论坛
课程
招聘
你知道更简洁的创建桌面快捷键的程序吗? ^_^
2007-5-26 15:24 5121

你知道更简洁的创建桌面快捷键的程序吗? ^_^

2007-5-26 15:24
5121
Delphi 7:

{ Function: create a desktop shortcut to your application }

{ make sure you add these units in the uses clause. }

uses ShellAPI, ComObj, ComCtrls, Shlobj, ActiveX;

procedure CreateShortCut;
var
    psl    : IShellLink;
    ppf    : IPersistFile;
    ws     : WideString;
    wss    : array[0..MAX_PATH] of AnsiChar;

begin
    psl := CreateComObject(CLSID_ShellLink) as IShellLink;
    ppf := psl as IPersistFile;
    if Assigned( psl ) then
    try
        psl.SetPath( PChar( ParamStr( 0 ) ) );
        psl.SetWorkingDirectory( PChar( ExtractFilePath( Application.ExeName ) ) );
        psl.SetShowCmd( SW_SHOWNORMAL );
        psl.SetDescription( PChar( 'Your app name' ) );
        GetEnvironmentVariable( PChar('USERPROFILE'), wss, sizeof(wss) - 1 );
        ws :=  wss + '\Desktop\Your app name.lnk';
        ppf.Save( PWChar( ws ), False );
    finally
    end;
end;

看雪2022 KCTF 秋季赛 防守篇规则,征题截止日期11月12日!(iPhone 14等你拿!)

收藏
点赞0
打赏
分享
最新回复 (4)
雪    币: 205
活跃值: 活跃值 (10)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
scship 活跃值 2007-5-27 13:00
2
0
召唤win32asm版本...
雪    币: 93
活跃值: 活跃值 (60)
能力值: ( LV8,RANK:130 )
在线值:
发帖
回帖
粉丝
bookworm 活跃值 3 2007-5-30 07:36
3
0
程序就这么难写吗?

C/C++,C#,VB, x86 assembly...

whatever you can think of and you can do ...
雪    币: 201
活跃值: 活跃值 (10)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
我最老实 活跃值 2007-6-1 01:35
4
0
发现在win9x出世之后,OLE/COM是Windows programming的必需要阅读部份
雪    币: 432
活跃值: 活跃值 (924)
能力值: ( LV9,RANK:170 )
在线值:
发帖
回帖
粉丝
xss 活跃值 4 2007-6-4 22:08
5
0
com的确很重要,但是学起来好难。
游客
登录 | 注册 方可回帖
返回