var Form1: TForm1; MF:thandle; implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject); begin mf:= findwindow(nil,'主界面的名字') ; if mf <> 0 then showwindow(mf,sw_hide); end;procedure TForm1.Button2Click(Sender: TObject); begin showwindow(mf,sw_show); end;
Form1: TForm1;
MF:thandle;
implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
begin
mf:= findwindow(nil,'主界面的名字') ;
if mf <> 0 then
showwindow(mf,sw_hide);
end;procedure TForm1.Button2Click(Sender: TObject);
begin
showwindow(mf,sw_show);
end;
+注册系统热键