AddExitProc 的意義? |
尚未結案
|
thomas0728
中階會員 ![]() ![]() ![]() 發表:112 回覆:260 積分:89 註冊:2002-03-12 發送簡訊給我 |
|
seaturn99
版主 ![]() ![]() ![]() ![]() 發表:69 回覆:427 積分:214 註冊:2003-08-25 發送簡訊給我 |
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.---- 我只會兩件事,這也不會,那也不會 ---- 眼見不一定為真 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |