delphi异常重启自身

本文整理自网络，侵删。

 var
  si: STARTUPINFO;
  pi: PROCESS_INFORMATION;
begin
  try          //用try捕获异常
    asm
   nop
    end;
    RaiseException(1, 0, 0, 0); //抛异常
  except
    FillChar(si, SizeOf(si), 0); //处理异常
    FillChar(pi, SizeOf(pi), 0);
    si.cb := SizeOf(si);
    if CreateProcess(PChar(ParamStr(0)), nil, nil, nil, False, 0, nil, nil, si,pi) then ExitProcess(0); //
  end;
end; 

相关阅读 >>

Delphi access技巧集

Delphi 创建多级目录

Delphi通过wmi获取系统信息

Delphi 用stringhelper.split分解字符串

Delphi 最快字符串查找(匹配)算法

Delphi 让子窗体显示在任务栏上

Delphi 防止程序重复执行的单元

Delphi ord chr byte等转换

Delphi http post json示例

Delphi 主线程等待子线程的安全退出

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi异常重启自身