한델인가? 다른 사이트에도 이거 있던데... 이거 외국사이트에서 퍼온거여요. ㅠㅠa
procedure TForm1.Button1Click( Sender : TObject );
var
IExplorer : Thandle;
begin
IExplorer := FindWindow( 'IEFrame', nil );
if IExplorer <> 0 then
SendMessage( IExplorer, WM_SYSCOMMAND,SC_MINIMIZE, 0 );
end;
|