Как получить иконку чужого окна
Falk0ner, вс, 06/07/2008 - 15:34.
Как получить иконку чужого окна
{
First Start Notepad.exe and run this code:
}
procedure TForm1.Button1Click(Sender: TObject);
var
hwindow : THandle;
H: HIcon;
begin
hwindow := FindWindow('notepad',nil);
H := CopyIcon(GetClassLong(hwindow, GCL_HICON ));
DrawIcon(Canvas.Handle, 30, 30, H);
end;
First Start Notepad.exe and run this code:
}
procedure TForm1.Button1Click(Sender: TObject);
var
hwindow : THandle;
H: HIcon;
begin
hwindow := FindWindow('notepad',nil);
H := CopyIcon(GetClassLong(hwindow, GCL_HICON ));
DrawIcon(Canvas.Handle, 30, 30, H);
end;
Взято с сайта: http://www.swissdelphicenter.ch
Отправить комментарий