| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Как в ярлык запихнуть иконку? [D7, WinXP]

elfebet ©   (2006-04-14 11:48:00) 

Как? вот я программно создаю ярлыки

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 12:30:00) [1]

> elfebet ©   (14.04.06 12:19) [4]

ShellLink.SetIconLocation('c:\icons\1.ico', 0)

---

elfebet   (2006-04-14 12:19:00) [2]

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

---

begin...end   (2006-04-14 12:08:00) [3]

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

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

---

elfebet   (2006-04-14 12:00:00) [4]

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

---

begin...end   (2006-04-14 11:56:00) [5]

IShellLink.SetIconLocation

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

---

Наверх