把窗口显示出来(包括最小化的窗口也能恢复最小化前大小)(50分)

iamfly · 2001-10-16

今天在inside programming里看到一篇关于窗口切换的，恬好用在我曾经做过的程序上。 不敢一人独享，特拿出来，希望大家有用：) 原文是这样的(部分)：98/2000下,有个公开的函数SetForegroundWindow,用于切换前台窗口. 但是事实上,SetForegroundWindow并不能用于和其他进程的窗口协同工作,通常情况下 SetForegroundWindow会调用FlashWindowEx来闪烁目标窗口,代表已经切换了窗口,但是这不 是我们需要的.网络上有一些顶尖高手使用修改窗口切换的系统规则后,用SetForegroundWindow 切换到其他进程的窗口,但是现在,我们有了UNDOCUMENTED的另外一个USER32函数: SwitchToThisWindow(...); 来完成这项工作. 那么原型是怎么的呢? 下面就来揭晓了...... void WINAPI SwitchToThisWindow (                   HWND hWnd,   // Handle to the window that should be activated                   BOOL bRestore // Restore the window if it is minimized                   ); 我在DELPHI中试了一下，成功了：) 我的实现部分代码如下：

代码:

<br>//首先，在你的FORM的PRIVATE里，定义相关procedure与变量：<br>type<br>&nbsp; TForm1 = class(TForm)<br>&nbsp; &nbsp;...<br>&nbsp; &nbsp;...<br>&nbsp; private<br>&nbsp; &nbsp; hooklib: thandle;<br>&nbsp; &nbsp; switchwin: procedure(hwnd:thandle;brestore:boolean);stdcall; &nbsp; <br>//第一个参数传递你要SHOW的窗口句柄，第二个参数是TRUE时如果窗口是最小化状态，就恢复最小化前状态<br>&nbsp; ...<br>&nbsp; ...<br>&nbsp; end; <br>//再在FORM的oncreate事件里写入两行代码：<br>&nbsp; hooklib:=getmodulehandle('USER32');<br>&nbsp; @switchwin := getprocaddress(hooklib, 'SwitchToThisWindow');<br><br>//最后，在你要用到的地方调用switchwin，比如这样：<br>switchwin(w_HidedWindow,true)就可以了<br>

我的软件环境：98SE+DELPHI5(未打补丁)

creation-zy · 2001-10-16

我在Win2k下试过了，和Application.BringToFont的效果一样——只能闪烁目标窗口。[

] 我是用Hook监视剪贴板，一旦发生了变化，就激活我的程序——在NT4下工作正常，2000下搞不定。

iamfly · 2001-10-17

我另一台机中的2000暂时不能用(那台机今天下午要给领导培训) 我可能要今晚或是明天才能调试在2000下的了。如果你有结果了，请告诉我一声，谢了：) [

]

iamfly · 2001-11-01

creation-zy，你的系统软件配置如何？我在一台WIN2000 PROFESSIONAL+DELPHI5下试过， 没问题。2000和DELPHI都尚未打任何补丁。

antic_ant · 2001-11-01

用showwindow函数如何

iamfly · 2001-11-08

我原来用的就是showwindow函数，不行的：)

YNTW · 2001-11-08

看看：）

huiyugan · 2001-11-09

////这是hook的实现 unit hooktest; interface uses   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,   Dialogs,StdCtrls; type   TForm1 = class(TForm)     HookKey: TButton;     UnhookKey: TButton;     procedure HookKeyClick(Sender: TObject);     procedure UnhookKeyClick(Sender: TObject);     procedure FormClose(Sender: TObject; var Action: TCloseAction);     procedure FormCreate(Sender: TObject);   private     { Private declarations }   public     { Public declarations }   end; var   Form1: TForm1;   hNextHookProc: HHook;   AppHandle    : HWND; implementation {$R *.DFM} function KeyboardHookHandler(iCode: Integer;   wPm: WPARAM;lPm: LPARAM): LRESULT; stdcall; const   _KeyPressMask = $80000000; begin   Result := 0;   If iCode < 0 Then   begin     Result := CallNextHookEx(hNextHookProc, iCode, wPm, lPm);     Exit;   end;   if ((lPm and _KeyPressMask) = 0) and     (GetKeyState(vk_Control) < 0) and (wPm = ord('H')) then   begin     Result := 1;     if AppHandle =0 then       AppHandle := FindWindow(nil,'Hook Demo');     if AppHandle <>0 then     begin     if IsIconic(AppHandle) then     begin         ShowWindow(AppHandle,sw_restore);     end     else         SetForeGroundWindow(AppHandle);     end;   end; end; procedure TForm1.HookKeyClick(Sender: TObject); begin   if hNextHookProc <> 0 then Exit;   hNextHookProc := SetWindowsHookEx(WH_KEYBOARD,     KeyboardHookHandler,     HInstance,     0);   if hNextHookProc<>0 then   begin     ShowMessage('hook ok!');   end; end; procedure TForm1.UnhookKeyClick(Sender: TObject); begin   if hNextHookProc <> 0 then   begin     UnhookWindowshookEx(hNextHookProc);     hNextHookProc := 0;     MessageBeep(0);   end;   if hNextHookProc <> 0 then      ShowMessage('unhook failed!'); end; procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); begin   if hNextHookProc <> 0 then UnhookKeyClick(nil); end; procedure TForm1.FormCreate(Sender: TObject); begin   hNextHookProc :=0;   AppHandle :=0;   Application.Title := 'Hook Demo'; end; end.

iamfly · 2001-11-10

我的程序中并不用用到HOOK，只是用到REGISTERHOTKEY而已。而且，无论用什么都好。你 可以这样试试，先把一个窗口用showwindow(hWnd,sw_hide)隐藏起来，此时是没有窗口是 聚焦(即你看不到有窗口的最上面的标题栏是变蓝的)，你用鼠标点击任一个窗口，聚焦这 个窗口，然后，再用showwindow(hwnd,sw_show)也好，setforegroundwindows也好， setwindowpos也好，原来隐藏的窗口都是不能聚焦的。。。 不过，我用了SWITCHTOTHISWINDOWS后可以了，嗬嗬^_^

YB_unique · 2001-12-26

解决 Win98 and Win2000 下SetForegroundWindow()函数的问题！ 三种解决方法！ 1 function ForceForegroundWindow(hwnd: THandle): boolean; const   SPI_GETFOREGROUNDLOCKTIMEOUT = $2000;   SPI_SETFOREGROUNDLOCKTIMEOUT = $2001; var   ForegroundThreadID: DWORD;   ThisThreadID: DWORD;   timeout: DWORD; begin   if IsIconic(hwnd) then     ShowWindow(hwnd, SW_RESTORE);   if GetForegroundWindow = hwnd then     Result := true   else   begin     if ((Win32Platform = VER_PLATFORM_WIN32_NT) and (Win32MajorVersion > 4)) or        ((Win32Platform = VER_PLATFORM_WIN32_WINDOWS) and ((Win32MajorVersion > 4) or        ((Win32MajorVersion = 4) and (Win32MinorVersion > 0)))) then     begin       Result := false;       ForegroundThreadID := GetWindowThreadProcessID(GetForegroundWindow, nil);       ThisThreadID := GetWindowThreadPRocessId(hwnd, nil);       if AttachThreadInput(ThisThreadID, ForegroundThreadID, true) then       begin         BringWindowToTop(hwnd);           SetForegroundWindow(hwnd);         AttachThreadInput(ThisThreadID, ForegroundThreadID, false);         Result := (GetForegroundWindow = hwnd);       end;       if not Result then       begin         SystemParametersInfo(SPI_GETFOREGROUNDLOCKTIMEOUT, 0, @timeout, 0);         SystemParametersInfo(SPI_SETFOREGROUNDLOCKTIMEOUT, 0, TObject(0), SPIF_SENDCHANGE);         BringWindowToTop(hwnd);           SetForegroundWindow(hWnd);         SystemParametersInfo(SPI_SETFOREGROUNDLOCKTIMEOUT, 0, TObject(timeout), SPIF_SENDCHANGE);       end;     end     else     begin       BringWindowToTop(hwnd);  {IE 5.5 related hack}       SetForegroundWindow(hwnd);     end;     Result := (GetForegroundWindow = hwnd);   end; end; 2 function ForceForegroundWindow(hWnd: THandle): BOOL; var   hCurWnd: THandle; begin   hCurWnd := GetForegroundWindow;   AttachThreadInput(GetWindowThreadProcessId(hCurWnd, nil), GetCurrentThreadId, True);   Result := SetForegroundWindow(hWnd);   AttachThreadInput(GetWindowThreadProcessId(hCurWnd, nil), GetCurrentThreadId, False); end; 3 procedure ForceForegroundWindow(hwnd: THandle); var   hlp: TForm; begin   hlp := TForm.Create(nil);   try     hlp.BorderStyle := bsNone;     hlp.SetBounds(0, 0, 1, 1);     hlp.FormStyle := fsStayOnTop;     hlp.Show;     mouse_event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0);     mouse_event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_LEFTUP, 0, 0, 0, 0);     SetForegroundWindow(hwnd);   finally     hlp.Free;   end; end;

iamfly · 2001-12-27

yb_unique兄，麻烦了一点吧，不过，有可能switchtothiswindow这个API函数也是这样解决 的也说不定^_^ 也许，creation-zy可以试试你的方法：)

wyh919 · 2002-01-23

用不着那样麻烦，这样就行： [red]procedure TForm1.Button2Click(Sender: TObject); var   hwnd1: HWND; begin   hwnd1:= FindWindow(PChar('IEFrame'),PChar('大富翁论坛 delphibbs.com - Microsoft Internet Explorer'));   if hwnd1 <> 0 then   begin     ShowWindow(hwnd1,SW_RESTORE);     SetForegroundWindow(hwnd1);   end; end;[/red]

iamfly · 2002-02-17

多人接受答案了。

把窗口显示出来(包括最小化的窗口也能恢复最小化前大小)(50分)

iamfly

Unregistered / Unconfirmed

creation-zy

Unregistered / Unconfirmed

iamfly

Unregistered / Unconfirmed

iamfly

Unregistered / Unconfirmed

antic_ant

Unregistered / Unconfirmed

iamfly

Unregistered / Unconfirmed

YNTW

Unregistered / Unconfirmed

huiyugan

Unregistered / Unconfirmed

iamfly

Unregistered / Unconfirmed

YB_unique

Unregistered / Unconfirmed

iamfly

Unregistered / Unconfirmed

wyh919

Unregistered / Unconfirmed

iamfly

Unregistered / Unconfirmed

Similar threads