[gelöst] Henne Ei Problem - eigene EXE löschen

[Aphton]

Probiers mal mit ...

Delphi-Quellcode:

function DeleteSelf(): Boolean;
var
  F     : File of Byte;
  FP,
  Params: String;
const
  B : String =
    ':loop'#13#10+
    'del /F "%s"'#13#10+
    'if EXIST "%s" goto loop'#13#10+
    'del /F %s';
begin
  Result  := False;
  FP      := ExtractFilePath( ParamStr(0) );
  {$i-}
  AssignFile( F, FP + '_.bat' );
  Rewrite( F );
  Params  := Format( B, [ParamStr(0), ParamStr(0), FP + '_.bat'] );
  BlockWrite( F, Params[1], Length(Params) );
  CloseFile( F );
  {$i+}
  if not( IOResult = ERROR_SUCCESS ) then
    Exit;
  Result  := ShellExecute( 0, 'open', pChar( FP + '_.bat' ), nil, nil, 0 ) > 32;
end;