ExtractAssociatedIcon под XP

← →
_Ed_ © (2002-12-04 06:44) [0]

Уважаемые Мастера!
Кто нибудь может подсказать, почему API-фукция
ExtractAssociatedIcon прекрасно работает под Win98,
но под XP выдаёт нулевой хендл?
______________________________________________________
Доп. сведения: икону запускающего exe-шника извлекает,
всё остальное - нет... :((

Заранее благодарен, Сердюк Э.С.

← →
Song © (2002-12-04 08:28) [1]

Ошибка в 17-ой строке.

← →
_Ed_ © (2002-12-04 12:58) [2]

извиняюсь за назойливость, но 17-я строка чего, ShellAPI.pas?
В ней объявление начала интерфейса:

interface

или дело в shell32.dll, где эта функция зашита?
Пожалуйста, можно подробнее
(что бы можно было исправить глюк)...

← →
_Ed_ © (2002-12-04 14:22) [3]

Song <song@kmtn.ru>:

> когда говорят "Ошибка в 17-ой строке", имеют ввиду "покажи
> код. Без кода
> невозможно тебе помочь". Эта идиома ещё из фидо

прости ламера :)

привожу код (по памяти, т.к. пишу с работы)

... SomeBtn.OnClick(Sender : TObject) var icon : TIcon; i : integer; begin icon := TIcon.Create; i := 0; // пробовал и 1 - d 98 c i:=0 работает // файл anyfile существует и в 98 из него икона тянется! icon.Handle := ExtractAssociatedIcon( HInstance, PChar("c:\AnyPath\anyfile.anyextention"), i ); // не помню точно порядок следования параметров в // DrawIcon, но кажется так: DrawIcon (MainForm.Canvas.Handle, 10, 10, icon.Handle); icon.Free; end;

так вот, под XP это всё работает, только если в качестве файла передать PChar(Application.Name);

е ещё: я протрахался пол ночи, пробовал разные варианты. Понимая что filename - это указатель и строка может измениться после вызова ExtractAssociatedIcon, я резервировал буфер и передавал указатель на него, но всё это фигня, т.к. этот код работает под 98...

Может у меня с тачкой или с делфями глюк? просто это очень странно. Буду очень благодарен за посильную помощь!

С уважением, Сердюк Э.С.

Тебе было в падлу моё мыло из ответа вытащить?!!

i должно быть не меньше единицы

ExtractAssociatedIcon под XP Найти похожие ветки