Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

как получить иконку ярлыка без стрелки [D5, Win95/98]

vidiv © (2002-10-09 06:26:00)
Помогите: как получить иконку ярлыка без стрелки. Я делаю ExtractAssociatedIcon, но он все равно мне дает стрелку. помогите...

vidiv (2002-10-11 01:18:00) [1]
СПАСИБО ROUSE_!!!

Rouse_ (2002-10-10 12:50:00) [2]
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-10 08:05:00) [3]
Rouse_ - тема! Как вытащить из ярлыка информацию: имя файла значка, и номер?

Novichek (2002-10-10 06:42:00) [4]
можно через реестр => HKEY_CLASES_ROOT => lnkfile и piffile удаляешь переменную isShortcut => перезагружаешь и всё => значка "ярлык" у тебя нет.

Rouse_ (2002-10-10 04:56:00) [5]
Вытаскивай из ярлыка информацию о программе-предке и делай ей ExtractAssociatedIcon

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

vidiv (2002-10-10 04:46:00) [6]
Explorer ты не совсем понял меня, мне надо не отключить везде стрелочки, а именно получить значек без стрелки

Explorer (2002-10-09 07:56:00) [7]
Посмотри это:

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

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

Наверх

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