Текущий архив: 2006.04.30;
Скачать: CL | DM;
Вниз
Как в ярлык запихнуть иконку? Найти похожие ветки
← →
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], позволяет это сделать.
← →
elfebet © (2006-04-14 12:19) [4]я не догнал как. какую библиотеку надо включить?
и где это прописать в выше сказанной процедуре?
как использовать? IShellLink.SetIconLocation("c:\icons\1.ico") - вот так?
Sorry за тупизм. Помогите плиз очень нужно.
← →
begin...end © (2006-04-14 12:30) [5]> elfebet © (14.04.06 12:19) [4]
ShellLink.SetIconLocation("c:\icons\1.ico", 0)
Страницы: 1 вся ветка
Текущий архив: 2006.04.30;
Скачать: CL | DM;
Память: 0.48 MB
Время: 0.037 c
