procedure TForm1.Button1Click(Sender: TObject);
var
  A : Integer;
  B : Integer;
begin
  A := 0;
  B := 123 div A;

  //ここは実行されない
  MessageBox(Handle, '終了', '結果', MB_OK);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  LValueA : Integer;
  LValueB : Integer;
begin
  LValueA := 0;
  try
    LValueB := 123 div LValueA;
  except
  end;

  MessageBox(Handle, '終了', '結果', MB_OK);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  LValueA : Integer;
  LValueB : Integer;
begin
  LValueA := 0;
  try
    LValueB := 123 div LValueA;
  except
    MessageBox(Handle, 'エラーが発生しました', '情報', MB_ICONERROR or MB_OK);
  end;

  MessageBox(Handle, '終了', '結果', MB_OK);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  LValueA : Integer;
  LValueB : Integer;
  LValueC : Integer;
begin
  LValueA := 100;
  try
    LValueB := StrToInt(Trim(Edit1.Text));
    LValueC := LValueA div LValueB;
  except
    on EDivByZero do begin
      Application.MessageBox('0 では割れません', '情報', MB_ICONERROR);
    end;
    on EConvertError do begin
      Application.MessageBox('整数に変換できません', '情報', MB_ICONERROR);
    end;
    else begin
      Application.MessageBox('その他のエラー', '情報', MB_ICONERROR);
    end;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  LValueA : Integer;
  LValueB : Integer;
  StrText : string;
begin
  LValueA := 0;
  try
    LValueB := 123 div LValueA;
  except
    on E: Exception do begin
      StrText := E.ClassName + sLineBreak + E.Message;
      Application.MessageBox(PChar(StrText), '情報', MB_ICONINFORMATION);
    end;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  LValueA    : Integer;
  LValueB    : Integer;
  LExceptRec : PExceptionRecord;
  LErrCode   : Integer;
begin
  Memo1.Lines.Clear;

  LValueA := 0;
  try
    LValueB := 123 div LValueA;
  except
    on E: Exception do begin
      //PExceptionRecordを取得してエラー番号を取得
      LExceptRec := EExternal(E).ExceptionRecord;
      LErrCode   := LExceptRec.ExceptionCode;

      //エラーメッセージとエラー番号を表示
      Memo1.Lines.Add(E.Message);
      Memo1.Lines.Add(E.ClassName);
      Memo1.Lines.Add('$' + IntToHex(LErrCode, 8));
    end;
  end;
end;

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private 宣言 }
  public
    { Public 宣言 }
  end;

var
  Form1: TForm1;

implementation

uses 
  ShellAPI;

{$R *.dfm}

//=============================================================================
//  [468_各種システム設定ダイアログの表示]の[03_canonical nameを使用した方法]
//  のダイアログをShellExecute関数で実行する例
//
//  Windows XPではダイアログを表示できない
//  Windows Vista, 7ではダイアログを表示する
//
//  ShellExecuteの利用にはusesにShellAPIが必要
//=============================================================================
procedure TForm1.Button1Click(Sender: TObject);
var
  LStrExePath : String;
  LStrPara    : String;
  LIntErrCode : Integer;
  LStrErrMsg  : String;
begin
  LStrExePath := 'C:\Windows\system32\control.exe';
  LStrPara    := '/name Microsoft.DeviceManager';

  ShellExecute(Handle,
               'open',
               PChar(LStrExePath),
               PChar(LStrPara),
               nil,
               SW_SHOW);

  //最後に発生したエラーのコードを取得
  LIntErrCode := GetLastError;
  //エラーコードに該当するメッセージ文字列を取得
  LStrErrMsg  := SysErrorMessage(LIntErrCode);
  MessageBox(Handle, PChar(IntToStr(LIntErrCode) + '  ' + LStrErrMsg), '結果', MB_OK);
end;

end.

procedure TForm1.Button1Click(Sender: TObject);
var
  LStrExePath : String;
  LStrPara    : String;
  LStrErrMsg  : String;
  LRetCode    : Integer;
begin
  LStrExePath := 'C:\aWindows\system32\control.exe';
  LStrPara    := '/name Microsoft.DeviceManager';

  LRetCode := ShellExecute(Handle,
                           'open',
                           PChar(LStrExePath),
                           PChar(LStrPara),
                           nil,
                           SW_SHOW);

  //ShellExecute関数の戻り値が32以下の時はエラー
  if LRetCode <=32 then begin
    //エラーコードに該当するメッセージ文字列を取得
    LStrErrMsg  := SysErrorMessage(LRetCode);
    MessageBox(Handle, PChar(LStrErrMsg), '結果', MB_OK);
  end;
end;

implementation

{$R *.dfm}

function RtlNtStatusToDosError(Status: LongWord): Integer;
  stdcall; external 'ntdll.dll';

//=============================================================================
//  NTSTATUSエラーコーﾄﾞをシステムエラーコードに変換
//=============================================================================
procedure TForm1.Button1Click(Sender: TObject);
const
  STATUS_NO_SUCH_FILE = $C000000F;
var
  LErrCode    : DWord;
  LSysErrCode : Integer;
  LErrText    : string;
begin
  Memo1.Lines.Clear;

  //テスト用NTSTATUSエラーコード
  LErrCode := STATUS_NO_SUCH_FILE;

  //NTSTATUSエラーコーﾄﾞをシステムエラーコードに変換
  LSysErrCode := RtlNtStatusToDosError(LErrCode);

  //エラーメッセージを取得
  LErrText := SysErrorMessage(LSysErrCode);

  //元のエラーコードと変換結果を表示
  Memo1.Lines.Add('$' + IntToHex(LErrCode, 8));
  Memo1.Lines.Add('$' + IntToHex(LSysErrCode, 8));
  Memo1.Lines.Add(LErrText);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  LRetCode : Integer;
  LRetBuff : array [0..MAX_PATH - 1] of Char;
begin
  LRetCode := ERROR_NOT_SAME_DEVICE;
  FillChar(LRetBuff, SizeOf(LRetBuff), #0);
  FormatMessage(FORMAT_MESSAGE_FROM_SYSTEM or FORMAT_MESSAGE_ARGUMENT_ARRAY,
                nil,
                LRetCode,
                MAKELANGID(LANG_NEUTRAL, SUBLANG_DEFAULT),
                @LRetBuff,
                SizeOf(LRetBuff),
                nil);
  MessageBox(Handle, LRetBuff, '結果', MB_OK);
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  LRetCode : Integer;
  LRetText : string;
begin
  LRetCode := ERROR_NOT_SAME_DEVICE;
  //SysErrorMessageは内部でFormatMessageを使用している
  LRetText := SysErrorMessage(LRetCode);
  MessageBox(Handle, PChar(LRetText), '結果', MB_OK);
end;

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, AppEvnts;

type
  TForm1 = class(TForm)
    Button1: TButton;
    ApplicationEvents1: TApplicationEvents;
    procedure Button1Click(Sender: TObject);
    procedure ApplicationEvents1Exception(Sender: TObject; E: Exception);
  private
    { Private 宣言 }
  public
    { Public 宣言 }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

//=============================================================================
// アプリケーションレベルでのエラー発生例
// いい例を思いつかなかったのて...
//=============================================================================
procedure TForm1.Button1Click(Sender: TObject);
begin
  StrToInt('');
end;

//=============================================================================
// エラーが発生した場合、このイベントハンドラ内のコードが実行される
//=============================================================================
procedure TForm1.ApplicationEvents1Exception(Sender: TObject; E: Exception);
begin
  MessageBox(Handle, PChar(E.Message), 'エラー', MB_OK);
end;

end.

[Window Title]
Project1

[Content]
$00000002
指定されたファイルが見つかりません。

[OK]

procedure TForm1.Button1Click(Sender: TObject);
var
  LArrInt : array [0..1] of Integer;
  LIndex  : Integer;
begin
  LIndex := -6;
  try
    LArrInt[LIndex] := 50;

    Abort;
  except
    // ここは実行されない
    MessageBox(Handle, '例外発生', '情報', MB_ICONWARNING);
  end;
end;

procedure HogeHoge;
begin
  HogeHoge;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  try
    HogeHoge;
  except
    // ここは実行されない
    MessageBox(Handle, '例外発生', '情報', MB_ICONWARNING);
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  LFilePath : string;
begin
  LFilePath := 'HogeHoge.exe';
  try
    Win32Check(ShellExecute(Handle, '', PChar(LFilePath), nil, nil, SW_SHOW) > 32);
  except
    ShowMessage(SysErrorMessage(GetLastError));
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  LpInt : PInteger;
begin
  try
    LpInt := AllocMem(256);
    try
      LpInt := nil;
      LpInt^ := 0;
    except
      MessageBox(Handle, '問題発生 !!', '情報', MB_ICONWARNING);
    end;
  finally
    FreeMem(LpInt);
  end;
end;

//-----------------------------------------------------------------------------
//  SetUnhandledExceptionFilter関数のコールバック関数
//-----------------------------------------------------------------------------
function WERDigThrough(const ExpInfo: TExceptionPointers): Integer; stdcall;
const
  EXCEPTION_EXECUTE_HANDLER = 1;
  EXCEPTION_CONTINUE_SEARCH = 0;
begin
  Result := EXCEPTION_EXECUTE_HANDLER;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  JITEnable := 1;
  SetErrorMode(SEM_FAILCRITICALERRORS);
  SetUnhandledExceptionFilter(@WERDigThrough);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  LpInt : PInteger;
begin
  try
    LpInt := AllocMem(256);
    try
      LpInt := nil;
      LpInt^ := 0;
    except
      MessageBox(Handle, '問題発生 !!', '情報', MB_ICONWARNING);
    end;
  finally
    FreeMem(LpInt);
  end;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  LInfoText : string;
begin
  LInfoText := 'こちらの処理は正常に動作します';
  MessageBox(Handle, PChar(LInfoText), '情報', MB_ICONINFORMATION);
end;

function WERDigThrough(const ExpInfo: TExceptionPointers): Integer; stdcall;
const
  EXCEPTION_EXECUTE_HANDLER = 1;
  EXCEPTION_CONTINUE_SEARCH = 0;
var
  LInfoText : string;
begin
  LInfoText := '問題が発生しました' + sLineBreak + 'プログラムを終了します';
  MessageBox(0, PChar(LInfoText), 'お詫び', MB_ICONWARNING);
  TerminateProcess(GetCurrentProcess, 0);

  Result := EXCEPTION_EXECUTE_HANDLER;
end;