Program Kendi Kendini Silsin [ Delphi ]

[Administrator]

Merhaba arkadaşlar,

Bu konuda sizlere, delphi ile geliştirdğimiz bir uygulamanın kendi kendini nasıl silebileceğinden bahsetmek istiyorum.
Daha önce geliştirdiğim bir projemde böyle bir şeye ihtiyaç duyup kullanmıştım.
Bir programcıysanız akla hayale gelmeyecek şeylere gereksinim duyabiliyorsunuz yada böyle şeyler karşınıza çıkabiliyor.
Lafı fazla uzatmadan kodlama aşamasına geçelim.

Öncelikle gerekli sınıf tanımlamamızı yapıyoruz;

Kod:

uses shellapi;

Formumuzun FormClose olayına;

Kod:

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
    halt(0);
end;

Formumuzun FormDestroy olayına;

Kod:

procedure TForm1.FormDestroy(Sender: TObject);
var
UygulamaYolu:string;
begin
UygulamaYolu := Application.ExeName;
UygulamaYolu := ExtractShortPathName(UygulamaYolu);
ShellExecute(Handle, nil, 'cmd.exe',PWideChar(WideString(' /C del ' + UygulamaYolu)), nil, SW_HIDE);
end;

Kodları eksiksiz olarak yazdığınız takdirde program kapatılırken gönderdiği CMD Komutu sayesinde kendini sildirmiş olacaktır.

Çalış ve kendini imha et şeklinde bir uygulama geliştirmek istiyorsanız bu kodlardan yararlanabilirsiniz.