delphi异常重启自身

2022-09-18 13:30:00 网络 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判断ie是否使用代理

Delphi 获取unigui 控件id 及获取html值

Delphi readprocessmemory 输入进程id 输入读取地址

Delphi 生成二维码图形

Delphi 读文件到十六进制的函数(Delphi 7 下可用)

Delphi 十六进制字符串转化成字符串输出hextostr strtohex（Delphi版、c#版）

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