Текущий архив: 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.125 c
