取得的Outlook目錄並在TTreeView裡顯示出來

為什麼要用線程，簡單一點來說吧，省得有些象我一樣的新手聽不懂，當你編完一個程序，例如是讀取文件的程序，如果你讀取的文件很大，你的程序如果不是通過線程來執行的話，你一動這個正在讀取文件的程序窗口，結果是什麼，“死屏”就是你的程序根本拖不動，無法繼續做其它的事了，呵呵，如果你用線程，什麼問題都解決了，廢話少講，要學的看以下文章吧。

　　       首先當然是打開你的Delphi 6 ，點取菜單欄中的文件－新建－其它，彈出一個標簽窗口，選取new標簽，然後找到Thread Object，就是它了，雙擊它就行了，彈出一個類命名窗口，輸入mythread，當然名稱可由你自已來定的。這時程序自動創建一個unit，我這裡是unit2，現在我們來看unit，代碼如下：

　　unit Unit2;

　　interface

　　uses
　　  Classes;

　　type
　　  mythread = class(TThread)
　　  private
　　    { Private declarations }
　　  protected
　　    procedure Execute; override;
　　  end;

　　implementation

　　{ Important: Methods and propertIEs of objects in VCL or CLX can only be used
　　  in a method called using Synchronize, for example,

　　      Synchronize(UpdateCaption);

　　  and UpdateCaption could look like,

　　    procedure mythread.UpdateCaption;
　　    begin
　　      Form1.Caption := 'Updated in a thread';
　　    end; }

　　{ mythread }

　　procedure mythread.Execute;
　　begin
　　  { Place thread code here }
　　end;

　　end.
　　

　　其中，你注意找到procedure mythread.execute;，應找到了吧，連我都看到了，這就是你剛才建立的線程了，那麼接下來，我們要做的就是加入後台執行的代碼，代碼要加在那裡？不會吧，當然是加在
　　begin
　　 //這裡就是加入程序代碼的地方了
　　end;
　　如果你要調用unit1上的控件，你可以在unit2上面的uses中加入unit1就行了，記住，在unit1裡的implementation後面增加uses unit2，這樣你就可在unit1中引用線程了，引用的方法很簡單，就是，就是，就是，好啦，不賣關了，就是mythread.Create(false);。OK 這就是Delphi中的線程，呵呵。

　　本人剛學Delphi 有什麼地方說得不對的，歡迎評批指證，我的聯系信箱[email protected]謝謝！