强制另一个应用程序 SendToBack

Question

我需要在申请前填写我的表格。但是，常用的方法是行不通的。

已经尝试过的方法

//method #1

PostMessage(HD, WM_USER, 0, 0);
SetWindowPos(HD, HWND_BOTTOM, 0, 0, 0, 0, SWP_NOMOVE or SWP_NOSIZE);


//method #2
dwThreadID := GetWindowThreadProcessId(HD, nil);
dwCurrentThreadID := GetCurrentThreadId;
AttachThreadInput(dwCurrentThreadID, dwThreadID, true);
BringWindowToTop(Aff.handle);
ShowWindow(Aff.handle, SW_SHOW);

有问题的应用程序

评论

相关应用程序只能在全屏模式下运行。

我不想要完整的代码，只想要一条前进的道路。

对不起，我的英语不好，感谢您的宝贵时间。

Answer 1

您正在将表单设置到底部。让它成为最顶层：

SetWindowPos(handle, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOACTIVATE or SWP_NOMOVE or SWP_NOSIZE);

另一种方法，如果您真的想将外部应用程序强制到后台，您需要获取它的句柄。例如，如果这样的应用程序被命名为 calc：

hCalc := FindWindow('calc', nil); 
SendMessage(hCalc , WM_SYSCOMMAND, SC_MINIMIZE, 0); // you can also minimize the application
SetWindowPos(hCalc , HWND_BOTTOM, 0, 0, 0, 0,  SWP_NOACTIVATE or SWP_NOMOVE or SWP_NOSIZE);

Answer 2

你可以试试这个：

function ForceForegroundWindow(AHandle: THandle): Boolean;
var
  Input: TInput;
begin
  Result := True;

  ZeroMemory(@Input, SizeOf(Input));
  SendInput(1, Input, SizeOf(Input));
  SetForegroundWindow(AHandle);
end;

致谢来自 (How to bring my application to the front?) 的 Sertac Akyuz