Как создать ссылку на файл
uses ShlObj ; ... procedure CreateLink(const Source, Args, WorkDir, ShortCutName: string); var IObj: IUnknown; begin IObj := CreateComObject(CLSID_ShellLink); with (IObj as IShellLink) do begin SetPath(PChar(Source)); // Файл, на который ссылка. SetArguments(PChar(Args)); // Параметры запуска. SetShowCmd(SW_SHOWNORMAL); // Режим видимости. SetWorkingDirectory(PChar(WorkDir)); // Имя для ярлыка. end; (IObj as IPersistFile).Save(PWideChar(ShortCutName), False); end;
Метки: