- 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;
Анус запеканус?
слушате
а што, в дельфях до сих пор надо переменные оьъявлять строго в начале, в блоке var?!
P.S. В каком-то из Delphi XE появились замыкания, так что можно попробовать действовать ещё и через них.
В новых версиях появились не только анонимные функции, но и анонимные потоки и проч. Да здравствует анонимность!
С одной стороны это считается дурной практикой (везде кроме с89) с другой стороны это подталкивает к написянию более мелких и внятных функций
Вы уверены? Правда?
Пасцал?
Булочки пошире раздвинь.