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

Вниз

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

← →
ORMADA ©   (2004-10-18 15:42) [0]

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

 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-19 15:02) [1]

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

---

← →
Ega23 ©   (2004-10-19 15:11) [2]

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

---

← →
Amoeba ©   (2004-10-19 16:02) [3]

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

---

← →
ORMADA ©   (2004-10-20 08:33) [4]

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

---

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

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

Наверх

Память: 0.47 MB
Время: 0.041 c