解决问题，高分相赠！(100分)

zzutrain · 2001-10-19

我想控制两个窗口,达到的效果为: 如:两个应用程序ap1,ap2,这两个程序可能都不能最小化，也不能最大话。在任务栏中可能连标题都没有. 我要求屏幕最前端为ap1,那么屏幕最前端就为ap1,  最前端为ap2,那么最前端就为ap2. 就像在任务栏上点击ap1或ap2标题时显示的效果一样。 如果大家调程序不方便,可以用Timer控件来实现. 我用showwindow函数试过,不可以. 是不能用任务栏的消息函数?该函数应该怎样调用呢? 举例而言:我运行了两个软件,WPS2000,Delphi50.现在我需要把Delphi50显示到最前端.过一会把WPS2000显示到最前端.不需要人去控制,就像在Windows任务栏上点击了WPS2000或者Delphi50以后出现的效果. 所以大家不要想着用Application的任何函数来实现

lha · 2001-10-19

是不是有个叫SetWindowLong的函数，试试看

huntaway · 2001-10-19

1、在Win2000下是不可能实现的。 2、在Win98下可以试试SwitchToWindow这个函数，以下是从前面的帖子里抄来的： //首先，在你的FORM的PRIVATE里，定义相关procedure与变量： type   TForm1 = class(TForm)    ...    ...   private     hooklib: thandle;     switchwin: procedure(hwnd:thandle;brestore:boolean);stdcall;   //第一个参数传递你要SHOW的窗口句柄，第二个参数是TRUE时如果窗口是最小化状态，就恢复最小化前状态   ...   ...   end; //再在FORM的oncreate事件里写入两行代码：   hooklib:=getmodulehandle('USER32');   @switchwin := getprocaddress(hooklib, 'SwitchToThisWindow'); //最后，在你要用到的地方调用switchwin，比如这样： switchwin(w_HidedWindow,true)就可以了

varphone · 2001-12-01

SetWindowPos(...);

DragonPC_??? · 2001-12-01

NT下面SetForegroundWindow API函数有小小问题，只能够让窗口闪烁而已，你可以使用下面的 函数，不是我写的，摘抄自 Kingron 的猛料。 procedure ForceForegroundWindow(hwnd: THandle); begin     mouse_event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_LEFTDOWN,0,0,0,0);     mouse_event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_LEFTUP,0,0,0,0);     SetForegroundWindow(hwnd); end; procedure ForceTopmostWindow(hwnd: THandle); begin     SetWindowPos(hwnd, HWND_TOPMOST,Form.Left,Form.Top,Form.Width,Form.Height,0); end; 该方法通过模拟鼠标按键来实现激活窗口并最前显示。 *********************************************************************************************************** function ForceForegroundWindow(hwnd: THandle): boolean; const    SPI_GETFOREGROUNDLOCKTIMEOUT = $2000;    SPI_SETFOREGROUNDLOCKTIMEOUT = $2001; var    timeout: DWORD; 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       SystemParametersInfo(SPI_GETFOREGROUNDLOCKTIMEOUT, 0, @timeout, 0);       SystemParametersInfo(SPI_SETFOREGROUNDLOCKTIMEOUT, 0, TObject(0), SPIF_SENDCHANGE);       Result := SetForegroundWindow(hWnd);       SystemParametersInfo(SPI_SETFOREGROUNDLOCKTIMEOUT, 0, TObject(timeout), SPIF_SENDCHANGE);    end else       Result := SetForegroundWindow(hWnd); end; { ForceForegroundWindow } *********************************************************************************** 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); // IE 5.5 related hack         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); // IE 5.5 related hack         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; { ForceForegroundWindow }

coolcat · 2001-12-01

他们说的好像都不好用.. 我前两天也做了一个类似的程序..一个Mp3播放器.. 我的做法是在窗口上放一个按钮,VISIBLE:=FALSE; 在ONCLICK 事件中写入代码, 我的是判断是不WIDTH<1,因为我在最小化时把它的WIDTH设 为0了所以. if width<1 then  begin   mainform.width:=200;   mainform.height:=150;  end else  begin   mainform.width:=0;   mainform.height:=0;  end; 在程序中写入: Application.OnMinimize:=minbutton.OnClick(Self); Application.OnRestore:=minbutton.OnClick(Self); 在程序中要最小化的时候调用Application.Minimize; 恢复时用Application.Restore;

system_owen · 2001-12-11

使用FINDWINDOW得到两个窗口的HANDLE 使用HANDLE控制两窗体

zzutrain · 2002-02-26

谢谢各位的关注！希望大家多多指教！

解决问题，高分相赠！(100分)

zzutrain

Unregistered / Unconfirmed

lha

Unregistered / Unconfirmed

huntaway

Unregistered / Unconfirmed

varphone

Unregistered / Unconfirmed

DragonPC_???

Unregistered / Unconfirmed

coolcat

Unregistered / Unconfirmed

system_owen

Unregistered / Unconfirmed

zzutrain

Unregistered / Unconfirmed

Similar threads