Delphi-Help

Главная Статьи Ярлыки Как программно создать ярлык?

Как программно создать ярлык?

Оцените материал
(0 голосов)


 

Как программно создать ярлык?

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;

CmdLine - путь к файлу

Args - параметры командой строки

WorkDir - директория, в которой находится файл

LinkFile - путь к папке, в которой будет создан ярлык

IconFile - путь к файлу-иконке

Прочитано 5528 раз
Другие материалы в этой категории: Как получить имя файла из его ярлыка? »

Авторизация



Счетчики