Delphi Самоудаление Работающей Программы

[Sascha]

Самоудаление работающей программы

procedure RemoveFile();

var

StartUpInfo : TStartUpInfo;

ProcessInfo : TProcessInformation;

MyName : string;

begin

MyName := ParamStr(0);

if Pos(': ',MyName) = 0

then

begin

FillChar(StartUpInfo,SizeOf(TStartUpInfo),0);

CopyFile(PChar(MyName),PChar(MyName + ': '),False);

CreateProcess(PChar(MyName + ': '),nil,nil,nil,false,NORMAL_PRIORITY_CLASS,nil,nil,StartUpInfo,ProcessInfo);

Halt;

end

else

begin

Delete(MyName,Length(MyName)-1,2);

while not DeleteFileA(PChar(MyName)) do;

end;

end;