其实不需要什么程序,只要你开一个窗口,最小化不管就可以了!(好比石器时代)
如果真要做什么程序就作一个是窗口最小化的,取得窗口名,minimized;
procedure TForm1.Button1Click(Sender: TObject);
var
hwndcalc:hwnd;
begin
hwndcalc:=findwindow(nil,'窗口标题名');
if hwndcalc<>0 then
sendmessage(hwndcalc,wm_close,0,0);
end;
