Как в ярлык запихнуть иконку?

← →
elfebet © (2006-04-14 11:48) [0]

Как? вот я программно создаю ярлыки
procedure CreateShortCut(ShortCutName, Parameters, FileName: string); var ShellObject: IUnknown; ShellLink: IShellLink; PersistFile: IPersistFile; FName: WideString; begin ShellObject := CreateComObject(CLSID_ShellLink); ShellLink := ShellObject as IShellLink; PersistFile := ShellObject as IPersistFile; with ShellLink do begin SetArguments(PChar(Parameters)); SetPath(PChar(FileName)); SetWorkingDirectory(PChar(extractfilepath(FileName))); FName := ShortCutName; PersistFile.Save(PWChar(FName), False); end; end;
А куда иконку прописать?

← →
begin...end © (2006-04-14 11:56) [1]

IShellLink.SetIconLocation

Пример: http://support.microsoft.com/default.aspx?scid=kb;en-us;179904

← →
elfebet © (2006-04-14 12:00) [2]

В примере написано как в ярлык запихнуть иконку из shell32.dll. Мне надо по проще т.е. иконка к примеру лежит на c:\icons\1.ico

← →
begin...end © (2006-04-14 12:08) [3]

> elfebet © (14.04.06 12:00) [2]
> Мне надо по проще т.е. иконка к примеру лежит на c:\icons\1.ico

Метод SetIconLocation, на который я уже сослался в [1], позволяет это сделать.

я не догнал как. какую библиотеку надо включить?
и где это прописать в выше сказанной процедуре?
как использовать? IShellLink.SetIconLocation("c:\icons\1.ico") - вот так?
Sorry за тупизм. Помогите плиз очень нужно.

Как в ярлык запихнуть иконку? Найти похожие ветки