简单问题(送分了) 桌面上已经大开了个IE浏览器 我点击BUTTON1 实现 IE 最小化 我点击BUTTON2 实现 IE 还原我点击BUTTON3 实现 IE 关闭 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 参考以下,善用搜索引擎http://wenku.baidu.com/view/e3b39c956bec0975f465e2f7.html var h:THandle h:=Findwindow(IEFrame,nil).//找IE窗口句柄 showwindow(h,sw_maximize).//控制窗口的api函数,对窗口句柄操作取ShowWindow(Application.Handle, SW_HIDE);消息实现窗口最小化,最大化,关闭(delphi) var hwnd: hwnd;//句柄PostMessage(hwnd,WM_SYSCOMMAND, SC_MINIMIZE,0); //最小化很乱,反正就是先找IE句柄,然后发消息。给你瞎倒腾了点代码,很乱,不好意思快下班了,很兴奋啊。 var Form1: TForm1; h:HWND; ProcessHandle, Pid: longword; D:DWORD;implementation{$R *.dfm}procedure TForm1.FormCreate(Sender: TObject);beginh:=FindWindow('IEFrame',nil);showmessage(IntToStr(h));end;procedure TForm1.Btn2Click(Sender: TObject); //还原begin ShowWindow(h, SW_RESTORE);end;procedure TForm1.Btn1Click(Sender: TObject); //最小化begin ShowWindow(h, SW_MINIMIZE);end;procedure TForm1.Btn3Click(Sender: TObject); //关闭begin GetWindowThreadProcessId(h, @Pid); ProcessHandle := OpenProcess(Process_All_Access, true, Pid); sleep(600); GetExitCodeProcess(ProcessHandle, D); TerminateProcess(ProcessHandle, D);end;楼主试试我的代码 如何屏蔽最大化,最小化 delphi如何实现VB中的sendkeys?????????? 主程序device.exe如何调用另一个程序update.exe,赐教 在程序的主界面中如何实现重新登陆 請問怎樣把VSS和DELPHI連起來呀? XP和win7系统使用 midas中用socket在有代理服务器的情况下能用吗? 大家都留個qq吧.交個朋友.互相幫忙如何? 我有个问题关于控件方面的 用interbase数据库是否可以建临时表? 关于Memo组件的应用问题 哪位老大给个最新的全套RemObjects及相关工具的下载地址?
http://wenku.baidu.com/view/e3b39c956bec0975f465e2f7.html
h:=Findwindow(IEFrame,nil).//找IE窗口句柄
showwindow(h,sw_maximize).//控制窗口的api函数,对窗口句柄操作取
ShowWindow(Application.Handle, SW_HIDE);消息实现窗口最小化,最大化,关闭(delphi)
var hwnd: hwnd;//句柄
PostMessage(hwnd,WM_SYSCOMMAND, SC_MINIMIZE,0); //最小化很乱,反正就是先找IE句柄,然后发消息。
给你瞎倒腾了点代码,很乱,不好意思
快下班了,很兴奋啊。
var
Form1: TForm1;
h:HWND;
ProcessHandle, Pid: longword;
D:DWORD;implementation{$R *.dfm}procedure TForm1.FormCreate(Sender: TObject);
begin
h:=FindWindow('IEFrame',nil);
showmessage(IntToStr(h));
end;procedure TForm1.Btn2Click(Sender: TObject); //还原
begin
ShowWindow(h, SW_RESTORE);
end;procedure TForm1.Btn1Click(Sender: TObject); //最小化
begin
ShowWindow(h, SW_MINIMIZE);
end;procedure TForm1.Btn3Click(Sender: TObject); //关闭
begin
GetWindowThreadProcessId(h, @Pid);
ProcessHandle := OpenProcess(Process_All_Access, true, Pid);
sleep(600);
GetExitCodeProcess(ProcessHandle, D);
TerminateProcess(ProcessHandle, D);
end;
楼主试试我的代码