ExtractAssociatedIcon

← →
Slava (2002-01-11 11:51) [0]

var
W: Word;
Pic: TPicture;
FN: String;
begin
W := 0;
Pic := TPicture.Create;
FN := "C:\Progs\Example\extricon\Project1.exe"; // не работает
FN := Application.ExeName; // работает
Pic.Icon.Handle := ExtractAssociatedIcon(HInstance, PChar(FN), W);
Canvas.Draw(10,10, Pic.Graphic);
Pic.Free;
end;

Как правильно пользоваться функцией ExtractAssociatedIcon?

← →
TonnyS (2002-01-11 17:31) [1]

var ico : TIcon; h : HIcon; w : word; st1 : string; begin st1 := "файл с иконкой"; ico := TIcon.Create; h := ExtractAssociatedIcon(hInstance,PChar(st1),w); ico.Handle := h; ... ico.free; end;

вроде так.

← →
Slava (2002-01-14 08:13) [2]

> TonnyS

В том-то и дело, что h = 0,
если st1 <> Application.ExeName

Даже, если st1 присвоить тоже самое имя exe-файла, которое содержиться в Application.ExeName

← →
Slava (2002-01-14 08:16) [3]

Я имею ввиду:
Если st1 <> Application.ExeName или st1 <> ParamStr(0), то все ОК.

В остальных случаях h = 0 :(

← →
Slava (2002-01-14 08:18) [4]

Вот, блин фигню написал! Это после празднования СНГ...

Должно быть так:

Я имею ввиду:
Если st1 := Application.ExeName или st1 := ParamStr(0), то все ОК.

В остальных случаях h = 0 :(

← →
TonnyS (2002-01-14 13:27) [5]

странно вообще-то, кинь на мыло - вышлю всю программу, там активно используется это ExtractAssociatedIcon.

← →
TonnyS (2002-01-14 13:46) [6]

>Если st1 := Application.ExeName или st1 := ParamStr(0), то все ОК.

>В остальных случаях h = 0 :(

а вообще у меня подозрение, что неправильные параметры передаются, например, W (номер иконки) или имя файла некорректно преобразуется в PChar.

← →
Slava (2002-01-15 06:23) [7]

> TonnyS
Уже отправил на мыло.
Сорри за спам, в первом письме нет аттача.

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