udithread.pas

来自「楠楠写的DBiocp例子都是源码」· PAS 代码 · 共 49 行

unit uDIThread;

interface

uses
  Windows, SysUtils, Classes;

type
  TDIThread = class(TThread)
  protected
    procedure Execute; override;
    procedure ThreadRoutine; virtual; abstract;
  public
    constructor Create;
    destructor Destroy; override;
    procedure Run;
  end;

implementation

constructor TDIThread.Create;
begin
  inherited Create(True);
end;

destructor TDIThread.Destroy;
begin
  inherited Destroy;
end;

procedure TDIThread.Run;
begin
  Resume;
end;

procedure TDIThread.Execute;
begin
  try
    ThreadRoutine;
  except
    on E: Exception
      do MessageBox(0, PChar(E.Message), Nil, MB_OK);
  end;
end;

end.