如何在程式結束時進行某些處理

[tim]

要取得系統訊息的: WM_ENDSESSION 來進行處理.
在 form 中宣告:
private
procedure WMEndSession(var Msg:TWMEndSession); message WM_ENDSESSION;

實作的部分如下(舉例寫入 registry):
記得處理完成後要 inherited 來繼續後續的處理!!

代碼: 選擇全部

     
    procedure Tform1.WMEndSession(var Message: TWMEndSession); 
    var 
      Reg: TRegistry; 
    begin 
      Reg := TRegistry.Create; 
      try 
        Reg.RootKey := HKEY_CURRENT_USER; 
        if Reg.OpenKey('SoftwareMicrosoftWindowsCurrentVersionRunOnce', True) then 
       begin 
          Reg.WriteString('MyApp','"' + ParamStr(0) + '"'); 
          Reg.CloseKey; 
        end; 
      finally 
        Reg.Free; 
        inherited; 
      end; 
    end;