[vmilyoshin]

Привет знатоки кодинга! Есть нибольшой вопрос. Я делаю инсталятор для своей проги. Чтобы при установки создать ярлыки применяю процедуру CreateLink.

Код:

procedure CreateLink(WorkDir,FileName,Arguments,LinkName:String);
var
  MyObject : IUnknown;
  MySLink : IShellLink;
  MyPFile : IPersistFile;
  WFileName : WideString;
begin
  MyObject := CreateComObject(CLSID_ShellLink);
  MySLink := MyObject as IShellLink;
  MyPFile := MyObject as IPersistFile;
  with MySLink do
  begin
  SetArguments(PChar(Arguments));
  SetPath(PChar(FileName));
  SetWorkingDirectory(PChar(WorkDir));
  end;
  if not DirectoryExists(ExtractFiledir(LinkName)) then
  CreateDir(ExtractFiledir(LinkName));
  WFileName := LinkName;
  MyPFile.Save(PWChar(WFileName),False);
end;

Способ применения при установки программы:

Код:

CreateLink('', Edit1.Text+'\Auto.exe', '', GetSpecialFolderPath(CSIDL_COMMON_DESKTOPDIRECTORY)+'\Авто.lnk');

Кто нибудь мне толком объяснит для чего нужны первый и третий параметр CreateLink. Что я только туда не вписывал с ярлыком ни чего не менялось. Да, кстати, как сделать чтобы при наведении мышки на ярлык не показывался бы путь к этому файлу. Спасибо. Надеюсь на вашу помощь.

[M.A.D.M.A.N.]

Че тут не понятного?
WorkDir - папка, по дефолту с которой будет работать программа;
FileName - путь к запускаемому файлу;
Arguments - параметры командной строки;
LinkName - наименование ярлыка.

[vmilyoshin]

Сообщение от M.A.D.M.A.N.

Че тут не понятного?
WorkDir - папка, по дефолту с которой будет работать программа;
FileName - путь к запускаемому файлу;
Arguments - параметры командной строки;
LinkName - наименование ярлыка.

Я так понимаю, что WorkDir нужно указать папку где находится файл EXE, а в Argunents какой параметр вписывать. Если нетрудно можно примерчик начеркать.

[M.A.D.M.A.N.]

Сообщение от vmilyoshin

Я так понимаю, что WorkDir нужно указать папку где находится файл EXE, а в Argunents какой параметр вписывать. Если нетрудно можно примерчик начеркать.

Можно и так, но можно и другую, дельфи, например, лежит в папке bin, а рабочая папка у нее projects.