ExecExeAndBringToTop

最新推荐文章于 2016-04-01 17:48:39 发布

skyjacker

最新推荐文章于 2016-04-01 17:48:39 发布

阅读量1k

点赞数

CC 4.0 BY-SA版权

分类专栏：编程技术文章标签： string function

本文链接：https://blog.youkuaiyun.com/skyjacker/article/details/2973364

编程技术专栏收录该内容

15 篇文章

订阅专栏

本文介绍了一个使用Delphi实现的应用程序调用方法，该方法能够启动并确保特定程序（DengFengControl.exe）的窗口始终处于最前。通过查找窗口句柄并利用系统API将指定程序的窗口置顶，此功能可以有效提高交互体验。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

const
cnDeng = '控制V1.0';
cnExeName = 'DengFengControl.exe';

function ExecExeAndBringToTop(const AFileName: string): Boolean;
var
hWndDeng: THandle;
begin
Result := False;
hWndDeng := FindWindow(nil, cnDeng);
if hWndDeng <> 0 then
begin
    Result := BringWindowToTop(hWndDeng);
end
else
begin
    WinExec(PChar(AFileName), SW_NORMAL);
    hWndDeng := FindWindow(nil, cnDeng);
    if hWndDeng <> 0 then
    begin
      Result := BringWindowToTop(hWndDeng);
    end
end;
end;

procedure TFrmCallDeng.btnCallDengClick(Sender: TObject);
var
ExePath: string;
ExeFullName: string;
begin
ExePath := ExtractFilePath(Application.ExeName);
ExeFullName := ExePath + cnExeName;
if not ExecExeAndBringToTop(ExeFullName) then
begin
Application.MessageBox(PChar(ExeFullName), '提示', 0)
end;
end;