各位大大:      請問 AddExitProc  的確實作用是什麼      我查了解釋是 "加入一個程序到執行時期程式庫的出口程序列中"      但有看還是沒有懂 有人知道他的作用嗎? 謝謝

------
Thomas Chiou

thomas0728 您好:    請試看看以下簡短的 console Application ... 根據 Delphi Help 說明 :    AddExitProc adds Proc to the Delphi exit procedure list, so that Proc is automatically executed when the application terminates    我實驗的結果是 AddExitProc,的確會在 Exit 程式後執行 (拿掉 Exit,正常結束也會執行),用 console 印出一些訊息比較直覺,給您做個參考..    重複執行 AddExitProc 會得到 Exit 的 List,結束後有順序執行... 我想可以應用在程式結束後作統一收尾或是回收資源的動作    我實驗中, 視窗程式也會執行 AddExitProc 加入的 Exit Procedure List.. 不過,我用 ShoMessage('XXX'); 並無反應,所以猜想可能只能執行一些 Windows API 或基本的 I/O,這方面我就不是很清楚了,不是很清楚實際上運作方式

program Project2;    {$APPTYPE CONSOLE}
uses
  SysUtils,
  System;    procedure EndProcTest;
begin
  writeln('Bye World!!');
  Readln;
end;    procedure EndProcTest2;
begin
  writeln('Bye World2!!');
  // Show Message;
  Readln;
end;    procedure EndProcTest3;
begin
  writeln('Bye World3!!');
  // Show Message;
  Readln;
end;    procedure TestProc;
begin
  writeln('Do Nothing!!');
  // Show Message;
  Readln;
end;        begin
  { TODO -oUser -cConsole Main : Insert code here }
   writeln('Hello World!!');
   AddExitProc(EndProcTest);
   AddExitProc(EndProcTest2);
    AddExitProc(EndProcTest3);
   writeln('Hello World2!!');
   exit;
   writeln('Hello World3!!');
   TestProc;
end.

---- 我只會兩件事,這也不會,那也不會 ---- 眼見不一定為真