VPF::Копирование иконки - Форум программистов

PIF

Дата 3.6.2005, 21:47 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 68
Регистрация: 27.1.2005

Репутация: нет
Всего: нет

Здравствуйте!
Скажите пожалуйста, как при запуске программы скопировать иконку на рабочий стол, и в меню Пуск-Программы. иконка находится в директории с программой.
Заранее благодарен!!!

SPrograMMer

Дата 3.6.2005, 22:27 (ссылка)

(нет голосов)

Загрузка ...

Спамер :)

Профиль
Группа: Участник
Сообщений: 442
Регистрация: 5.11.2004
Где: Краснодар

Репутация: 2
Всего: 6

Код


Uses
  Windows,SysUtils,ShlObj,ComObj,ActiveX;
procedure CreateLink(const PathObj, PathLink, WorkDir, Param, IconFile: string;NumIcon:Integer);
var
  IObject: IUnknown;
  SLink: IShellLink;
  PFile: IPersistFile;
begin
  IObject := CreateComObject(CLSID_ShellLink);
  SLink := IObject as IShellLink;
  PFile := IObject as IPersistFile;
  with SLink do begin
    SetArguments(PChar(Param));
    SetWorkingDirectory(PChar(WorkDir));
    SetPath(PChar(PathObj));
    SetIconLocation(PChar(IconFile),NumIcon);
  end;
  PFile.Save(PWChar(WideString(PathLink)), FALSE);
end;

--------------------

животное = зверь
законченный гентушник

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »