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

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

Ярлыки [D7]

ORMADA ©   (2004-10-18 15:42:00) 

Доб день!
Кто нить знает как выдернуть № иконки и путь к библиотеке на кот ссылаются такие ярлыки как мой комп, ярлыки от дисков и т.д.
такой код не подходит

 procedure ResolveShortcut(Wnd: HWND; ShortcutPath: string; var ExePath: string;
   var IconPath: string; var IconIndex: integer);
 var
   obj: IUnknown;
   isl: IShellLink;
   ipf: IPersistFile;
   pfd: TWin32FindDataA;
 begin
   IconIndex := -1;

   obj := CreateComObject(CLSID_ShellLink);
   isl := obj as IShellLink;
   ipf := obj as IPersistFile;
   ipf.Load(PWChar(WideString(ShortcutPath)), STGM_READ);
   with isl do
   begin
     Resolve(Wnd, SLR_ANY_MATCH);

     ExePath := StringOfChar(#0, MAX_PATH);
     IconPath := StringOfChar(#0, MAX_PATH);

     GetPath(PAnsiChar(ExePath), MAX_PATH, pfd, SLGP_UNCPRIORITY);
     GetIconLocation(PAnsiChar(IconPath), MAX_PATH, IconIndex);
   end;
 end;


---

ORMADA   (2004-10-20 08:33:00) [1]

Блин! всё не то....
2 Ega23 подходит только для exe и ему подобных
2 Amoeba это ведь просто компонент при помощи которого можно задать иконку
вопрос всё-таки в том как достать эту инфу из ярлыка...
lnk! вот блин

---

Amoeba   (2004-10-19 16:02:00) [2]

Может это заинтересует?
http://www.delphiarea.com/products/#TSysImageList

---

Ega23   (2004-10-19 15:11:00) [3]

Посмотри в примерах Delphi,
Program Files\Borland\Delphi5\Demos\Resxplor
там как раз под эту байду заточено...

---

ORMADA   (2004-10-19 15:02:00) [4]

МАСТЕРА! ауууууу

---

Наверх