Подскажите почему не работает ExtractIcon

← →
chili (2005-07-27 14:43) [0]

Добрый день..

Подскажите почему не работает ExtractIcon

procedure TMainForm.FormCreate(Sender: TObject); var Icon : TIcon; begin Icon.Handle := ExtractIcon(Application.Handle, PChar("c:\windows\notepad.exe"), Word(0)); RxSpeedButton1.Glyph.Canvas.Draw(0,0,Icon); Icon.Free; end;

Или это только у меня не работает?????????

← →
chili (2005-07-27 14:45) [1]

procedure TMainForm.FormCreate(Sender: TObject); var Icon : TIcon; begin Icon := TIcon.Create; Icon.Handle := ExtractIcon(Application.Handle, PChar("c:\windows\notepad.exe"), Word(0)); RxSpeedButton1.Glyph.Canvas.Draw(0,0,Icon); Icon.Free; end;

← →
chili (2005-07-27 14:49) [2]

У всех работает или никто не знает почему не работает?

← →
Юрий Зотов © (2005-07-27 14:50) [3]

Вы указываете не тот хэндл (окна, а не приложения). Замените Application.Handle на HInstance.

← →
chili (2005-07-27 14:53) [4]

Юрий Зотов © (27.07.05 14:50) [3]

Пробовал так :

Icon.Handle := ExtractIcon(HInstance, PChar("c:\windows\notepad.exe"), Word(0));

и

Icon.Handle := ExtractIcon(0, PChar("c:\windows\notepad.exe"), Word(0));

Все равно не работает :(((

← →
alex-drob © (2005-07-27 15:06) [5]

> chili (27.07.05 14:43)

А может ExtractIcon работает. А проблемма в чемто другом. Попробуй на Canvas формы вывести например в событии onpaint.

← →
Юрий Зотов © (2005-07-27 15:08) [6]

> chili (27.07.05 14:53) [4]

Думаю, что загрузка все же работает. Не работает отрисовка (что и не мудрено при таком коде). Используйте не Draw, а Assign.

← →
chili (2005-07-27 15:10) [7]

не помогло

← →
MBo © (2005-07-27 15:11) [8]

работает:

procedure TForm1.Button3Click(Sender: TObject);
var Icon:TIcon;
begin
Icon := TIcon.Create;
Icon.Handle := ExtractIcon(0, PChar("c:\windows\notepad.exe"), Word(0));
DrawIcon(Canvas.Handle,0,0,Icon.Handle);
Icon.Free;
end;

← →
chili (2005-07-27 15:17) [9]

← →
chili (2005-07-27 15:39) [10]

Ну так работает. может, и проще можно.

b:=TBitmap.Create;
b.Width:=Icon.Width;
b.Height:=Icon.Height;
DrawIcon(b.Canvas.Handle,0,0,Icon.Handle);
SpeedButton1.Glyph.Assign(b);

← →
chili (2005-07-27 16:08) [12]

MBo © (27.07.05 16:03) [11]

>Ну так работает. может, и проще можно.

Да работает, только исключение вызывает................

Все равно большое Вам спасибо за помошь.

Подскажите почему не работает ExtractIcon Найти похожие ветки