将程序置顶

最新推荐文章于 2023-04-18 12:35:15 发布

xiami0929

最新推荐文章于 2023-04-18 12:35:15 发布

阅读量648

点赞数

本文链接：https://blog.csdn.net/xiami0929/article/details/1678514

版权

procedure TFrmMain.ActiveApplication;
var
nForeThread, nAppThread: DWORD;
lnHWND: HWND;
begin
lnHWND := GetForegroundWindow();
nForeThread := GetWindowThreadProcessId(lnHWND, nil);
nAppThread := GetCurrentThreadId();

lnHWND := Application.Handle;

if nForeThread <> nAppThread then
begin
    AttachThreadInput(nForeThread, nAppThread, true);
    BringWindowToTop(lnHWND);
    ShowWindow(lnHWND,SW_SHOW);
    AttachThreadInput(nForeThread, nAppThread, false);
end
else
begin
    BringWindowToTop(lnHWND);
    ShowWindow(lnHWND, SW_SHOW);
end;
end;