program Project1; uses Windows; begin WinExec(PChar('cmd /c erase /f ' + GetCommandLine), 0); ExitProcess(0); end.