Текущий архив: 2006.09.24;
Скачать: CL | DM;

Вниз

ярлыки   Найти похожие ветки 

← →
Adios ©   (2006-09-06 18:08) [0]

как програмно можно присвоить выбранную иконку ярлыку?

---

← →
RASkov   (2006-09-06 21:28) [1]

Вот кусок кода (неполный, что убрал к сабжу не относится)... может что и нароешь

procedure CreateShortcut(const FilePath, ShortcutPath,
          WorkDir, Description, Params: String; const NIco: Integer=0);
var Obj: IUnknown;
begin
.............
 with (Obj as IShellLink) do begin
  SetPath(PChar(FilePath));
  SetArguments(PChar(Params));
  SetDescription(PChar(Description));
  SetWorkingDirectory(PChar(WorkDir));
  SetIconLocation(PChar(MyGetSystemDir+"\SHELL32.dll"), NIco);
 end;
 (Obj as IPersistFile).Save(PWChar(WideString(ShortcutPath)), False);
......
end;

---

Страницы: 1 вся ветка

Текущий архив: 2006.09.24;
Скачать: CL | DM;

Наверх

Память: 0.46 MB
Время: 0.048 c