【收藏】创建桌面快捷键的程序（delphi）

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 + 'DesktopYour app name.lnk';
        ppf.Save( PWChar( ws ), False );
    finally
    end;
end;