ExtractAssociatedIcon

← →
Осирис © (2002-09-20 16:20) [0]

Делаю так:

procedure TForm1.Button1Click(Sender: TObject);
var
Icon: HICON;
IconIndex:word;
begin
IconIndex:=1;
Icon := ExtractAssociatedIcon(HInstance,"C:\project1.exe",IconIndex);
DrawIcon(Form1.Canvas.Handle, 10, 10, Icon);
Image1.Picture.Icon.Handle:=ExtractAssociatedIcon(hInstance,"C:\project1.exe",IconIndex);

В результате не в Image, ни на форме ничего не вижу. В чем может быть дело ?

end;

← →
Dimich1978 © (2002-09-20 16:25) [1]

А если заменить на
ExtractIcon....у меня все заработало

← →
Dimich1978 © (2002-09-20 16:29) [2]

вОТ ТАК ПРИБЛИЗИТЕЛЬНО
procedure TForm1.Button1Click(Sender: TObject);
var
Icon: HICON;
IconIndex:word;
begin
IconIndex:=1;
Icon := ExtractIcon(HInstance,"C:\project1.exe",0);
DrawIcon(Form1.Canvas.Handle, 10, 10, Icon);
Image1.Picture.Icon.Handle:=ExtractIcon(hInstance,"C:\project1.exe",0);end;

end.

← →
Dimich1978 © (2002-09-20 16:30) [3]

пРОВЕРЕНО Вирусов НЕТ!!!
Да и незабудь Shellapi вписать в uses

← →
REA (2002-09-20 16:41) [4]

А зачем IconIndex тогда?

← →
Осирис © (2002-09-20 16:43) [5]

>> Icon := ExtractIcon(HInstance,"C:\project1.exe",0);

Так вообще не компилит.

function ExtractAssociatedIcon(hInst: HINST; lpIconPath: PChar;
var lpiIcon: Word): HICON; stdcall;

Можно попробовать вот так:

IconIndex:=0;
Icon := ExtractAssociatedIcon(HInstance,"C:\inventTurnover.exe",IconIndex);

Но все равно - компится, запускается, нажимается - а иконки я так и не вижу

>>>REA
Ну просто забыл выкинуть IconIndex...хотя не так он и мешался.
Не знаю. У меня все компилится.
А че говорит?

>> Не знаю. У меня все компилится.

Хм.... А какая версия Delphi ?

>> А че говорит?

Естественно: Type of actual and format var parameters must be identical.
Я же не просто так привел объявление функции:

function ExtractAssociatedIcon(hInst: HINST; lpIconPath: PChar;
var lpiIcon: Word): HICON; stdcall;

Обрати внимание на это - var lpiIcon: Word

А теперь объясни мне, каким образом ты компилируешь свой код ?

И где же моя иконка ?

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