[Add to favorites] Create a desktop shortcut Program (Delphi)

Delphi 7:


{Function: Create a desktop shortcut cut 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 + 'your topyour app name. lnk ';
PPF. Save (pwchar (WS), false );
Finally
End;
End;