CreateProcess 启动带参数的EXE 并获得PID

最新推荐文章于 2019-07-22 23:50:08 发布

killer0717

最新推荐文章于 2019-07-22 23:50:08 发布

阅读量2.9k

点赞数

分类专栏： Delphi

Delphi 专栏收录该内容

23 篇文章 0 订阅

订阅专栏

var
   MysqlStartupInfo:TStartupInfo;
   MysqlProcessInfo:TProcessInformation;
   MysqlPid: Integer;

procedure TForm1.Button_StartMysqlClick(Sender: TObject);
begin
//ShellExecute(Self.handle,'open', PWideChar(edit_MysqlPath.Text + '\bin\mysqld.exe'),PWideChar('--defaults-file=my.ini'),'',SW_SHOWNORMAL);
FillChar(MysqlProcessInfo,sizeof(MysqlProcessInfo),0);
FillChar(MysqlStartupInfo,Sizeof(MysqlStartupInfo),0);
MysqlStartupInfo.cb:=Sizeof(MysqlStartupInfo);
MysqlStartupInfo.dwFlags:=STARTF_USESHOWWINDOW;
MysqlStartupInfo.wShowWindow:=SW_SHOW;
If CreateProcess(PWideChar(edit_MysqlPath.Text + '\bin\mysqld.exe'),PWideChar('"' + edit_MysqlPath.Text + '\bin\mysqld.exe' + '"' + ' --defaults-file=my.ini'),nil,nil,False,0,
nil,nil,MysqlStartupInfo,MysqlProcessInfo) then
begin

memo1.Lines.Add('[' + FormatdateTime('hh:nn:ss', Now)+ '] MYSQL数据库启动成功');

MysqlPid := MysqlProcessInfo.dwProcessId;

end
else
    begin
      memo1.Lines.Add('[' + FormatdateTime('hh:nn:ss', Now)+ '] MYSQL数据库启动失败,请检查相关配置');
    end;
end;