请问如何将其一个程序的窗口最大化?(100)

  • 主题发起人 主题发起人 wjshh
  • 开始时间 开始时间
W

wjshh

Unregistered / Unconfirmed
GUEST, unregistred user!
有的程序运行后窗口没有最大化,程序还没有提供最大化按钮,我想写一个程序,通过发个命令,将那个程序的窗口最大化或移动到桌面的左上角。
 
100 大分啊,真好赚!!!呵呵代码如下:ShowWindow(Handle,SW_MAXIMIZE);快把100分拿将过来
 
楼上,是这么写吗?可不能没有反应呀varh:HWND;beginh:= FindWindow(nil,'斗地主');ShowWindow(H,SW_MAXIMIZE); end;
 
晕是向目标窗口发送消息才对var h:HWND;begin h:= FindWindow(nil,'斗地主'); SendMessage(h,WM_SYSCOMMAND,SC_MAXIMIZE,0);end;
 
楼上我试了你的方法可以最大化,但是这时任务栏不可用了,鼠标点任务栏不能切换窗口了。
 
procedure TForm1.FormShow(Sender: TObject);begin self.WindowState:= wsMaximized;end;
 
无语了。。。。ShowWindow(Handle,SW_MAXIMIZE); 可对所有出现有WINDOWS里的窗体当然也可以用WindowState:= wsMaximized;procedure TForm1.Button1Click(Sender: TObject);beginShowWindow(Handle,SW_MAXIMIZE);end;
 
我说的不是我的程序的窗口,而是别人的程序运行时的窗口。
 
var h:HWND;begin h:= FindWindow(nil,'无标题 - 记事本'); if h>0 then 用ShowWindow(h,SW_MAXIMIZE); 或 SendMessage(h,WM_SYSCOMMAND,SC_MAXIMIZE,0);end;效果一样,楼主所说的不能切换可能是因为别的问题
 
postmessage(handle,WM_SYSCOMMAND,SC_MAXIMIZE)
 
多人接受答案了。
 
后退
顶部