RSS订阅 | 匿名投稿
您的位置:网站首页 > 程序 > 正文

Delphi使程序的窗口出现在最前面并激活

作者:admin 来源:未知 日期:2010/5/28 14:40:53 人气: 标签:

Delphi使程序的窗口出现在最前面并激活
var
pt, OldPt, NewPt: TPoint;
begin
//判断Application是否最小化,而不是主窗口的Handle, 使用Restore来还原
if IsIconic(Application.Handle) then
Application.Restore;

SetWindowPos(Handle, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOSIZE or SWP_NOMOVE);
SetWindowPos(Handle, HWND_NOTOPMOST, 0, 0, 0, 0, SWP_NOSIZE or SWP_NOMOVE);

// 保存鼠标位置,模拟点击窗口,然后再还原鼠标位置 www.delphitop.com
GetCursorPos(OldPt);
NewPt:=Point(0, 0);
Windows.ClientToScreen(Handle, NewPt);
SetCursorPos(NewPt.X, NewPt.Y);
mouse_event(MOUSEEVENTF_LEFTDOWN, NewPt.X, NewPt.Y, 0, 0);
mouse_event(MOUSEEVENTF_LEFTUP, NewPt.X, NewPt.Y, 0, 0);
SetCursorPos(OldPt.X, OldPt.Y);
end;
读完这篇文章后,您心情如何?
0
0
0
0
0
0
0
0
本文网址: