CreateProcess 调用EXE 不成功 (如果该EXE直接双击能够运行) 使用以下方法

最新推荐文章于 2022-01-14 09:14:49 发布

killer0717

最新推荐文章于 2022-01-14 09:14:49 发布

阅读量3.5k

点赞数

分类专栏： Delphi 文章标签： CreateProcess

本文链接：https://blog.csdn.net/killer0717/article/details/44885285

版权

Delphi 专栏收录该内容

23 篇文章 0 订阅

订阅专栏

procedure TForm1.Button_StartApacheClick(Sender: TObject);

var

ApacheStartupInfo:TStartupInfo;
ApacheProcessInfo:TProcessInformation;

a, b :string;
begin
a := edit_ApachePath.Text + '\bin\httpd.exe';
b := edit_ApachePath.Text + '\bin';
//ShellExecute(Self.handle,'open', PWideChar(a),'','',SW_SHOWNORMAL);
FillChar(ApacheProcessInfo,sizeof(ApacheProcessInfo),0);
FillChar(ApacheStartupInfo,Sizeof(ApacheStartupInfo),0);
ApacheStartupInfo.cb:=Sizeof(ApacheStartupInfo);
ApacheStartupInfo.dwFlags:=STARTF_USESHOWWINDOW;
ApacheStartupInfo.wShowWindow:=SW_HIDE;
a := StringReplace(a, '\', '\\', [rfReplaceAll]);
b := StringReplace(b, '\', '\\', [rfReplaceAll]);//转换自动获取的路径中的 \ 为 \\

//将EXE所在工作目录转到CreateProcess中,没有调用成功的主要原因就在于此
If CreateProcess(PWideChar(a),nil,nil,nil,False,0,
    nil,PWideChar(b),ApacheStartupInfo,ApacheProcessInfo) then
begin
    memo1.Lines.Add('[' + FormatdateTime('hh:nn:ss', Now)+ '] Apache服务启动成功');
    //memo1.Lines.Add(a);
end
else
    begin
      memo1.Lines.Add('[' + FormatdateTime('hh:nn:ss', Now)+ '] Apache服务启动失败,请检查相关配置');
    end;
end;