Delphi-Help

uses

  ..., ShlObj, ComObj, ActiveX;

function TForm1.CreateShortcut(const CmdLine, Args, WorkDir, LinkFile,

  IconFile: string): IPersistFile;

var

  MyObject: IUnknown;

  MySLink: IShellLink;

  MyPFile: IPersistFile;

  WideFile: WideString;

begin

   MyObject := CreateComObject( CLSID_ShellLink );

   MySLink := MyObject as IShellLink;

   MyPFile := MyObject as IPersistFile;

   with MySLink do

   begin

      SetPath( PChar( CmdLine ) );

      SetIconLocation( PChar( IconFile ), 0 );

      SetArguments( PChar( Args ) );

      SetWorkingDirectory( PChar( WorkDir ) );

   end;

   WideFile := LinkFile;

   MyPFile.Save( PWChar( WideFile ), false );

   Result := MyPFile;

end;