Delphi 不重复运行外部程序exe

本文整理自网络，侵删。

 

procedure RunSysExe(const exeprocessname: String;exeTitle:String);
var  //引用单元shellapi
  OFile:String;
  HWndCalculator:HWnd;
begin
  HWndCalculator:=FindWindow(nil,pwidechar(exeTitle));
  if (HWndCalculator=0) then
  begin
    OFile:=exeprocessname;
    Shellexecute(application.handle,'Open',pchar(OFile),nil,pchar(ExtractFilePath(OFile)),SW_SHOWNORMAL);
  end;
end;


 
 
用法：RunSysExe('calc.exe','计算器');

 

相关阅读 >>

Delphi执行cmd命令

Delphi 倒计时对话框

Delphi 文件夹操作

[译]rad studio 10.4 新变化：面向控件的 vcl 样式管理

Delphi fdmemtable1内存表字段排序

Delphi使用idtcpclient和idtcpserver相互发送数据

Delphi 只限制到4位小数级别

Delphi正则表达式

Delphi 字节数转换为kb或mb字符串

Delphi 中的颜色常量及效果图

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi 不重复运行外部程序exe