- Yasaklandı
- #1
☞ MaMo434376
Seçkin Üye
Arkadaşlar bana bu kod lazımdı internetten baya bi araştırdım ama internette bulduğum kodların hiçbiri çalışmıyordu bende biraz zorladım ve kendim yaptım.
En üste implementation {$R *.dfm} bölümünün altına gelecek kod:
Kodu Tetikleme kodu:
En üste implementation {$R *.dfm} bölümünün altına gelecek kod:
Kod:
procedure SelfDelete;
var
MMExe : TextFile;
begin
AssignFile(MMExe, 'C:\MM76-DEL.bat');
ReWrite(MMExe);
writeln(MMExe, 'ping 1.1.1.1 -n 1 -w 3000 > Nul & Del '+ ExtractFileName(application.exename));
writeln(MMExe, 'ping 1.1.1.1 -n 1 -w 3000 > Nul & Del C:\MM76-DEL.bat');
CloseFile(MMExe);
application.Terminate;Kodu Tetikleme kodu:
Kod:
SelfDelete;
WinExec('C:\MM76-DEL.bat',0);
