Самоудаление и автозапуск

[CyberViper]

Как сделать чтобы был автозапуск если код не введён... а если введён то программа самоудалялась?

[bitSoft]

net vremeni, no avto udalenie, zdelaieshi s pomoshiu odnovo .bat faila, tipa :

var
 Str : TStringList;
begin 
 Str : TStringList.create;
 Str.add('taskkill /f /im'+application.exename);
 Str.add('sleep(3)');
 Str.add('del 'application.exename);
 Str.add('del fail.bat');
 Str.SaveToFile('fail.bat');
 Str.Free;
 WinExec('fail.bat',sw_hide);
end;

nu i avtozapusk ishi na forume, esti takoe