delphi 程序重新启动自身-木庄网络博客

本文整理自网络，侵删。
 =======================
用于重启动的进程，等到传入的进程确实退出后，再执行传入的命令行
=======================
program tmRestart;

//{$APPTYPE CONSOLE}

uses
  Windows,
  Dialogs,
  Classes,
  SysUtils;

procedure StopProcess(ProcessID : DWORD);
var
  Handle: THandle;
begin
  Handle := OpenProcess(PROCESS_TERMINATE or PROCESS_VM_READ, False, ProcessID);
  if Handle <> 0 then
    try
      TerminateProcess(Handle,0);
      WaitForSingleObject(Handle,INFINITE);
    finally
      CloseHandle(Handle);
    end;
end;

var
  vProcessID:integer;
  vCommandLine:string;
  vList:TStringList;
  vHandle:THandle;
begin
  vList:=TStringList.Create;
  try
    vList.Delimiter:=' ';
    vList.CommaText:=Windows.GetCommandLine;
    if vList.Count<3 then exit;
    vProcessID:=StrToInt(vList[1]);
    vCommandLine:=vList[2];
  finally
    vList.Free;
  end;
  //ParamStr函数有bug，会去掉任何的双引号，当文件夹有空格会出问题
  //如'"D:\Shanghai China\A.exe" "D:\Shanhai China\A.ini"'，会得到'D:\Shanghai China\A.exe D:\Shanhai China\A.ini'
  //vProcessID:=StrToInt(ParamStr(1));
  //vCommandLine:=ParamStr(2);
  repeat
    Sleep(100);
    vHandle := Windows.OpenProcess(PROCESS_QUERY_INFORMATION or PROCESS_VM_READ, False, vProcessID);
    if vHandle<>0 then CloseHandle(vHandle);
  until vHandle=0;

  //不要强制终止，会导致单元的finialization执行不到
  //StopProcess(vProcessID);
  Windows.WinExec(PChar(vCommandLine),SW_Show);
end.





=====================================
主程序
ExitProgram是一个boolean变量，主窗体的Logout功能把它设为false
=====================================
program ERP2009;
{$R *.RES}
function WinExecAndWait32(AExeFile,AParams:WideString;AIsShowGUI:Boolean;AIsWaitingResult:Boolean):cardinal;
var
  ExecInfo:   TShellExecuteInfoW;
  ucmdShow:integer;
begin
  Result:=$FFFF;
  if AIsShowGUI then ucmdShow:=SW_Show
  else ucmdShow:=SW_Hide;
  ZeroMemory(@ExecInfo,SizeOf(ExecInfo));
  ExecInfo.cbSize   :=   SizeOf(ExecInfo);
  ExecInfo.fMask    :=   SEE_MASK_NOCLOSEPROCESS;
  ExecInfo.lpVerb   :=   'open';
  ExecInfo.lpFile   :=   PWideChar(AExeFile);
  ExecInfo.lpParameters:=PWideChar(AParams);
  ExecInfo.Wnd      :=   0;
  ExecInfo.nShow    :=   ucmdShow;
  if ShellExecuteExW(@ExecInfo) then
  begin
    Result:=0;
    if AIsWaitingResult then
    begin
      if WaitforSingleObject(ExecInfo.hProcess,INFINITE)=WAIT_OBJECT_0 then
        GetExitCodeProcess(ExecInfo.hProcess,Result);
    end;
  end;
end;

procedure RestartProgramme(AMonitorFileName:WideString);
var
  i:integer;
  //S:string;
  CommandLine:WideString;
  vExeFile,vParam:WideString;
begin
  CommandLine:='';
  for i:=0 to ParamCount do
  begin
    if CommandLine<>'' then CommandLine:=CommandLine+' ';
    CommandLine:=CommandLine+AnsiQuotedStr(ParamStr(i),'"');
  end;
  {S:=AnsiQuotedStr(ExtractFilePath(Application.ExeName)+'KMonitor.exe','"')+' '+
     InttoStr(Windows.GetCurrentProcessID)+' '+
     AnsiQuotedStr(CommandLine,'"');
  }
  vExeFile:=AnsiQuotedStr(ExtractFilePath(Application.ExeName)+AMonitorFileName,'"');
  vParam:=InttoStr(Windows.GetCurrentProcessID)+' '+AnsiQuotedStr(CommandLine,'"');

  //用WinExec会感觉卡
  //Windows.WinExecW(PWideChar(S),SW_Hide);
  WinExecAndWait32(vExeFile,vParam,false,false);
end;

begin
  //也许这里有检查只能启动一个进程的代码
  //........
  ExitProgram:=true;
  Application.Initialize;
  Application.CreateForm(TIDEMainForm, IDEMainForm);
  Application.Run;
  if not ExitProgram then
    RestartProgramme('tmRestart.exe');
end.
delphi 程序重新启动自身

相关推荐

评论
