Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.10.03;
Скачать: 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 вся ветка

Текущий архив: 2002.10.03;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.014 c
7-8198
Чегермек
2002-07-27 14:41
2002.10.03
Узнать время с точностью менее 1 мс


14-8168
Freeze
2002-09-05 12:59
2002.10.03
Помогите, где взять инфу на тему Сервер клиент


6-8108
DikobraZ
2002-08-01 16:07
2002.10.03
Параметры удаленного компа


4-8218
ed30
2002-08-16 17:17
2002.10.03
прервать выполнение чужой задачи


1-7923
Akim2
2002-09-23 11:11
2002.10.03
Помогите вычитать адрес сетевой платы.