标签:
SetForegroundWindow
SwitchToThisWindow
procedure TApplication.BringToFront;
var
TopWindow: HWnd;
begin
if Handle <> 0 then
begin
TopWindow := GetLastActivePopup(Handle);
if (TopWindow <> 0) and (TopWindow <> Handle) and
IsWindowVisible(TopWindow) and IsWindowEnabled(TopWindow) then
SetForegroundWindow(TopWindow);
end;
end;
一些窗口API函数,比如SetForegroundWindow,SwitchToThisWindow
标签:
原文地址:http://www.cnblogs.com/findumars/p/5222011.html