ExecExeAndBringToTop

Delphi程序调用与窗口前置

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

原创最新推荐文章于 2016-04-01 17:48:39 发布 · 1.1k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#string #function

编程技术专栏收录该内容

15 篇文章

订阅专栏

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

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;