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

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

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

ExtractAssociatedIcon [D6]

Осирис © (2002-09-20 16:20:00)
Делаю так:

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;

Осирис (2002-09-20 17:13:00) [1]
>> Не знаю. У меня все компилится.

Хм.... А какая версия 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

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

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

Dimich1978 (2002-09-20 17:07:00) [2]
>>>REA
Ну просто забыл выкинуть IconIndex...хотя не так он и мешался.
Не знаю. У меня все компилится.
А че говорит?

Осирис (2002-09-20 16:43:00) [3]
>> 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 (2002-09-20 16:41:00) [4]
А зачем IconIndex тогда?

Dimich1978 (2002-09-20 16:30:00) [5]
пРОВЕРЕНО Вирусов НЕТ!!!
Да и незабудь Shellapi вписать в uses

Dimich1978 (2002-09-20 16:29:00) [6]
вОТ ТАК ПРИБЛИЗИТЕЛЬНО
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:25:00) [7]
А если заменить на
ExtractIcon....у меня все заработало

Наверх

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