Скачать: CL | DM;

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

← →
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_ - тема! Как вытащить из ярлыка информацию: имя файла значка, и номер?

---

← →
Rouse_ ©   (2002-10-10 12:50) [6]

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_!!!

---

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

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.015 c