指定程序窗体置顶

最新推荐文章于 2020-10-23 15:18:23 发布

seagull327

最新推荐文章于 2020-10-23 15:18:23 发布

阅读量1k

点赞数

分类专栏： Api 窗体函数&过程 windows消息

本文链接：https://blog.csdn.net/haiou327/article/details/12323355

版权

函数&过程同时被 3 个专栏收录

39 篇文章 0 订阅

订阅专栏

Api

30 篇文章 0 订阅

订阅专栏

窗体

7 篇文章 0 订阅

订阅专栏

var
  hform: Cardinal;
begin
  hForm := FindWindow('SciCalc', nil); //计算器
  if hform <> 0 then                   //计算器是否启动
  begin
    if IsIconic(hform) then            //是否最小化
    begin
      SetForegroundWindow(hform);
      ShowWindow(hform, SW_RESTORE);
    end;
    if SetWindowPos(hform, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE or SWP_NOSIZE) then
      SetWindowPos(hform, HWND_NOTOPMOST, 0, 0, 0, 0, SWP_NOMOVE or SWP_NOSIZE);
  end
  else
    ShowMessage('请启动计算器程序');
end;