[Thundefined]

При определённых событиях exeшник должен самоуничтожаться, реализовал с помощью bat файлов, вот код

Код:

procedure DestroyExe;
var
F : TextFile;
Temp, AppName : string;
begin
  Temp:= 'delete.bat';
  AppName:= ExtractFileName(ParamSTR(0));
  AssignFile(F, Temp);
  Rewrite(F);
  Writeln(F, 'del ' + AppName);
  Writeln(F, 'del ' + Temp);
  CloseFile(F);
  ShellExecute(Application.Handle,'open','Delete.bat',nil,nil,SW_ShowNormal);
  Halt;
end;

Если делать на "пустой" программе то всё отлично делается, когда делаю это на большом проекте после нажатия кнопки "самоуничтожение" вылазит вот это:
Подскажите с чем может быть связано, пожалуйста)

[poli-smen]

Сообщение от Thundefined

Если делать на "пустой" программе то всё отлично делается, когда делаю это на большом проекте после нажатия кнопки "самоуничтожение" вылазит вот это:
Подскажите с чем может быть связано, пожалуйста)

Скорее всего не успевает завериться или возможно антивирусник держит.

Во-первых удалять нужно пока не удалится - пример:

PHP код:

:0
del File.exe
if exist File.exe goto 0
del File.bat 


И вот здесь ещё пример.

Во-вторых попробуй указать текущей папку где находится exe и bat пятым параметром в ShellExecute.

p.s. Ещё есть способ самоудаления через ntfs-потоки.

[RusMaXXX]

тут http://www.delphisources.ru/forum/sh...ad.php?t=21159 глянь