【收藏】创建桌面快捷键的程序（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;