- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
- 9
procedure SelfDelete;
var
S,SS:string;
begin
SS:=ParamStr(0);
S:='/c for /L %f in (1,1,100000) do if exist("'+SS+'") del /q /f^"+SS+" else exit';
ShellExecute(0, nil, 'CMD', @S[1],nil, SW_HIDE);
FatalAppExit(0,"Админ, забань борманда")
end;