bilgisayar sipariş almak kapatma, ben dosyaya liste kutusu içeriğini nasıl tasarruf edebilirsiniz dosyayı

Question

kaydetmeniz gerekir ??? Ben Delphi XE7 kullanmak ,

Ben dosyayı kaydetmek yapmak, ve onunla bir sorunum yok!

ama bilgisayar kapatırken dosyayı kaydetmek istediğiniz.

güncelleme kodum ve Sorun: Projemi çalıştırma arka planda hem olaylar & işe doz değil OnDestroy OnClose olan

benim sorunum!

normalde "değil arka planda" proje çalışması, olay en iyi çalışıyor ise!

Ben arka plan sürecinde çalışan benim projem sorunumu, anlamaya, ben benim proje olaylar onClose ve onDestroy kesinlikle işe değil arka zemin sürecinde çalıştırmak için yaparsanız bu Application.MainFormOnTaskbar := False;Application.ShowMainForm := False; yapmak için bu satırları ekleyin

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); 
var 
str :TStringList; 
i : integer; 
begin 
    str := TStringList.Create; 
    for i := 0 to ListBox1.Count-1 do 
    str.Add(ListBox1.Items.Strings[i]); 

    try 
    str.SaveToFile('D:\test1.txt', TEncoding.UTF8); 
    finally 
    str.Free; 
    end; 
end; 

procedure TForm1.FormDestroy(Sender: TObject); 
var 
str :TStringList; 
i : integer; 
begin 
    str := TStringList.Create; 
    for i := 0 to ListBox1.Count-1 do 
    str.Add(ListBox1.Items.Strings[i]); 

    try 
    str.SaveToFile('D:\test15.txt', TEncoding.UTF8); 
    finally 
    str.Free; 
    end; 
end; 

Answer 1

WM_ENDSESSION mesaj Kulp ve orada dosyanızı kaydedin.

Yakalama böyle windows message: Burada

private 
    procedure OnShutDown(var Msg: TMessage); message WM_ENDSESSION; 

Ve uygulamasıdır

procedure TForm1.OnShutDown(var Msg: TMessage); 
begin 
    //Save your file here. 
end;