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

最新推荐文章于 2021-09-04 17:42:07 发布

原创最新推荐文章于 2021-09-04 17:42:07 发布 · 911 阅读

1 ·

本内容遵循CC 4.0 BY-SA版权协议

标签

#delphi #function #string #化工 #class

delphi 专栏收录该内容

2 篇文章

订阅专栏

本文详细介绍了如何通过使用CreateProcess和Shellexecute函数实现PDF到JPEG转换，提供了代码示例并讨论了其优势。

用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;