如何进行错误捕获！（内有错误报告）

Question

试一试如下代码:
Try
 ...
 except
  on E : Exception do
    MessageBox(0, PChar('Database error = ' + E.Message), 'Error', MB_OK+MBICONSTOP);
  end;

Answer 1

procedure TForm1.WMEndSession(var Message: TWMEndSession);
var
  Reg: TRegistry;
begin
  Reg := TRegistry.Create;
  try
    Reg.RootKey := HKEY_CURRENT_USER;
    if Reg.OpenKey('\Software\Microsoft\Windows\CurrentVersion\RunOnce', True) then
   begin
      Reg.WriteString('MyApp','"' + ParamStr(0) + '"');
      Reg.CloseKey;
    end;
  finally
    Reg.Free;
    inherited;
  end;end;