Function of shortcut
E271828@163.net
use shlobj, comobj, activex; // check DEL6VCL.HLP be found olecheck belonging comobjprocedure link (const appname, savepath: string); varsl: IShellLink; pf: IPersistFile; lnkname: widestring; beginolecheck (cocreateinstance (CLSID_ShellLink, nil, CLSCTX_INPROC_SERVER , ISHELLLINK, SL); PF: = SL As IPersistFile; Olecheck (sl.setpath)); lnkname: = SavePath '/' ChangeFileExt (ExtractFileName (AppName), '. Lnk'); PF. Save (PWIDECHAR (LNKNAME), TRUE; END;
