Скачать: CL | DM;

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);

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

---

← →
Dimich1978 ©   (2002-09-20 17:07) [6]

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

---

← →
Осирис ©   (2002-09-20 17:13) [7]

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

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

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

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.01 c