如何获得window中的其它应用程序的handle(知道其标题)，想让它最小化，用sendmessage怎么做呀？

Question

谢谢

Answer 1

var
  Handle:HWND;
begin
  Handle:=FindWindow(nil,'窗口标题');
  sendmessage(Handle,WM_SYSCOMMAND,SC_MINIMIZE,0); //最小化
//  sendmessage(Handle,WM_SYSCOMMAND,SC_MAXIMIZE,0); //最大化
//  sendmessage(Handle,WM_SYSCOMMAND,SC_CLOSE,0); //关闭  
end;

Answer 2

用SendMessge最小化没做出来，你用ShowWindow试一下：
procedure TForm1.Button1Click(Sender: TObject);
var
  iHandle: THandle;
begin
  iHandle := FindWindow(nil, 'about:blank - Microsoft Internet Explorer');
  if iHandle <> 0 then ShowWindow(iHandle, SW_MINIMIZE);
end;

Answer 3

SendMessage(Handle, WM_SYSCOMMAND, SC_MINIMIZE, 0)

Answer 4

procedure TForm1.Button1Click(Sender: TObject);
var
  h: Thandle;
begin
  h := FindWindow(nil, '未定标题 - 记事本');
  sendmessage(h,wm_syscommand,sc_minimize,0);
end;

Answer 5

用sendmessage使这个窗口隐藏，该怎么设置参数，谢谢