delphi下调用外部程序，并知道其何时退出

最新推荐文章于 2020-11-28 11:54:40 发布

masofeng

最新推荐文章于 2020-11-28 11:54:40 发布

阅读量818

点赞数

分类专栏： delphi 文章标签： delphi function string 化工 class

本文链接：https://blog.csdn.net/masofeng/article/details/7667349

版权

delphi 专栏收录该内容

2 篇文章 0 订阅

订阅专栏

用createprocess，shellexecute不太好

function TFrmPrintServer.pdfTojpg(fName : string) : boolean;
var
   StartupInfo:TStartupInfo;
   ProcessInfo:TProcessInformation;
   bRes : Boolean;
begin
          //   初始化工作
          FillChar(StartupInfo,Sizeof(StartupInfo),#0);
          StartupInfo.cb   :=   Sizeof(StartupInfo);
          StartupInfo.dwFlags   :=   STARTF_USESHOWWINDOW;

         bRes := CreateProcess(nil,'.\pdfimages.exe -j .\pdftemp\temp.pdf .\jpgtemp\frompro', nil, nil, false, CREATE_NEW_CONSOLE or  NORMAL_PRIORITY_CLASS,
                       nil,  nil,  StartupInfo,   ProcessInfo);
          if not bRes then
          begin
            //showmessage('failed create process!');
            result := false;
          end
          else
          begin
             WaitForSingleObject(Processinfo.hProcess,   INFINITE);
             result := true;
             //showmessage('process quit!');
         end;

end;