как получить иконку ярлыка без стрелки

← →
vidiv (2002-10-09 06:26) [0]

Помогите: как получить иконку ярлыка без стрелки. Я делаю ExtractAssociatedIcon, но он все равно мне дает стрелку. помогите...

← →
Explorer © (2002-10-09 07:56) [1]

Посмотри это:

http://www.kc.ru/~dubok/support.htm

может поможет.

← →
vidiv (2002-10-10 04:46) [2]

Explorer ты не совсем понял меня, мне надо не отключить везде стрелочки, а именно получить значек без стрелки

← →
Rouse_ © (2002-10-10 04:56) [3]

Вытаскивай из ярлыка информацию о программе-предке и делай ей ExtractAssociatedIcon

Желаю успехов

← →
Novichek © (2002-10-10 06:42) [4]

можно через реестр => HKEY_CLASES_ROOT => lnkfile и piffile удаляешь переменную isShortcut => перезагружаешь и всё => значка "ярлык" у тебя нет.

← →
vidiv (2002-10-10 08:05) [5]

Rouse_ - тема! Как вытащить из ярлыка информацию: имя файла значка, и номер?

uses ShlObj, ActiveX;

function ExtractFileNameFromLink(Link:String):String;
var
MyObject: IUnknown;
MySLink: IShellLink;
MyPFile: IPersistFile;
FileInfo: TWin32FINDDATA;
WidePath: array [0..MAX_PATH] of WideChar;
Buff: array [0..MAX_PATH] of Char;
begin
Form1.ErrorCodeZool := "Error code E003";
Result := "";
if (fileexists(Link)=false) then exit;
MyObject := CreateComObject(CLSID_ShellLink);
MyPFile := MyObject as IPersistFile;
MySLink := MyObject as IShellLink;
StringToWideChar(Link, WidePath, SizeOf(WidePath));
MyPFile.Load(WidePath, STGM_READ);
MySLink.GetPath(Buff, Max_PATH, FileInfo, SLGP_UNCPRIORITY);
Result := Buff;
end;

Желаю успехов

← →
vidiv (2002-10-11 01:18) [7]

СПАСИБО ROUSE_!!!

как получить иконку ярлыка без стрелки Найти похожие ветки