Thread我們進(jìn)行應(yīng)用和設(shè)計(jì)時(shí)不可缺少的利器，然而它卻不是輕易就可以掌握的。作為一個(gè)不可視系統(tǒng)組件，它封裝在TThread類中，由于一個(gè)子線程可以與主線程同時(shí)運(yùn)行，因此，來(lái)自子Thread的異常在主程序里未必能捕捉到，這樣，來(lái)自子線程的異常就會(huì)導(dǎo)致Application的錯(cuò)誤甚至是崩潰，也可能造成主程序都結(jié)束了，某個(gè)Thread還因等待同步對(duì)象的信號(hào)還在那兒自己運(yùn)行著。所以，對(duì)于有必要進(jìn)行異常控制的Thread就必須進(jìn)行異常處理，這個(gè)異常處理塊最好獨(dú)立于主程序的異常處理模塊。我們都知曉對(duì)通常異常的捕獲都用一個(gè)try..finally塊來(lái)處理，而對(duì)來(lái)Thread 的異常也不例外：

procedure TMyThread.Execute;
begin
try
// 在安全區(qū)應(yīng)該做的工作
except  
// 處理所有的異常
end;
end;

　　通常，這樣的處理可以正常的工作，但卻不是恰當(dāng)?shù)慕鉀Q方法。我們希望不僅把異常信息傳遞給用戶，而且要求在不影響Thread繼續(xù)工作的前提下，由Application或系統(tǒng)單元(致命異常)來(lái)進(jìn)一步處理異常。要做這樣處理，首先，我們?cè)谧约旱?Thread 類里定義一個(gè)異常對(duì)象，由這個(gè)對(duì)象承載各種要處理的異常類實(shí)例。其次，建立響應(yīng)異常的同步事件。對(duì)EAbort消息加以抑制，對(duì)來(lái)自程序本身的異常由Application處理，對(duì)系統(tǒng)級(jí)異常，一般交與操作系統(tǒng)來(lái)完成。以下是一個(gè)簡(jiǎn)單的異常捕捉應(yīng)用框架。

unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes,  
Graphics, Controls, Forms, Dialogs, StdCtrls;
type
　　TForm1 = class(TForm)
　　Button1: TButton;
　　procedure Button1Click(Sender: TObject);
private
　　{ Private declarations }
　　Procedure RunThread;  
public
　　{ Public declarations }
end;

TBaseThread = class(TThread)
private
　　FException: Exception;
　　procedure DoHandleException;
　　protected
　　procedure Execute; override;
　　//父類函數(shù)為虛，在子類再重載其而處理具體事宜
　　procedure HandleException; virtual;
public
end;

TMyThread = class(TBaseThread)
private
　　...  
　　protected
　　procedure Exec ; override;
　　procedure HandleException; override;
　　...  
public
　　...
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TBaseThread.DoHandleException;
begin
// 關(guān)閉當(dāng)前主窗體對(duì)鼠標(biāo)的響應(yīng)
if GetCapture $#@60;$#@62; 0 then SendMessage(GetCapture, WM_CANCELMODE, 0, 0);
// 判斷異常的范圍并做相應(yīng)處理
if FException is Exception then
　　Application.ShowException(FException)
else
　　SysUtils.ShowException(FException, nil);
　　...
end;

procedure TBaseThread.Execute;
begin
　　FException := nil;
try
...
//處理一些事情
except
//如果發(fā)生了異常
　　HandleException;
end;
end;

procedure TBaseThread.HandleException;
begin
//得到當(dāng)前異常對(duì)象
　　FException := Exception(ExceptObject);
try
//避免因 EAbort 消息使程序推出
　　if not (FException is EAbort) then
　　　　Synchronize(DoHandleException);
finally
　　FException := nil;
end;
end;

procedure TMyThread.Execute;
begin
...
end;  

procedure TMyThread.HandleException;
begin
...
end;

procedure TForm1.RunThread;
begin
//為 TMyThread 類創(chuàng)建實(shí)例
with TMyThread.Create(True) do
begin
FreeOnTerminate := True;
Resume;  
end;
end;
...