怎样才能让最小化窗体最大化

Question

怎样才能让最小化窗体最大化

Answer 1

使用findwindow获得所要最大化的窗口的handle然后使用sendmessage使其最大化
SendMessage(Handle,   WM_SYSCOMMAND,   SC_MAXIMIZE,   0);

Answer 2

可以在本程序里控制的窗口使用:Form1.WindowState:=wsMaximized;
控制和程序无关的窗口:
    findwindow(窗口类名,窗口标题)返回窗口句柄H,如果同为nil,则接收全部窗口.
    getWindowText(句柄,缓冲区,缓冲区长度)得到窗口标题.
    SendMessage（接收消息的窗口句柄，消息类型，wParam，IParam）来发送最大化消息.

Answer 3

SendMessage(form1.handle,   WM_SYSCOMMAND,   SC_MAXIMIZE,   0);

Answer 4

procedure TForm1.Button1Click(Sender: TObject);
var h:THandle;
begin
  h:=FindWindow(nil,'你要最大化的窗口标题');
  if h<>0 then
     SendMessage(h,WM_SYSCOMMAND,SC_MAXIMIZE,0);
end;