Как программе удалить саму себя?

Posted by maloy under Delphi, Архив

dolphin705

Здравствуйте, моя задача программно удалить себя?

Код:

program delete2;  

uses  
   SysUtils,  
   windows;  

var  
    BatchFile: TextFile;  
    BatchFileName : string;  
    TM : Cardinal;  
    TempMem : PChar;  

begin  
     BatchFileName:=ExtractFilePath(ParamStr(0))+ '$$336699.bat';  

    AssignFile(BatchFile, BatchFileName);  
    Rewrite(BatchFile);  

    Writeln(BatchFile,':try');  
    Writeln(BatchFile,'del "' + ParamStr(0) + '"');  
    Writeln(BatchFile,'if exist "' + ParamStr(0) + '" goto try');  
    Writeln(BatchFile,'del "' + BatchFileName + '"');  
    CloseFile(BatchFile);  

    TM:=70;  
    GetMem (TempMem,TM);  
    GetShortPathName (pchar(BatchFileName), TempMem, TM);  
    BatchFileName:=TempMem;  
    FreeMem(TempMem);  

    winexec(Pchar(BatchFileName),sw_hide);  

    halt;  

end.

Kotofff

Твой пример кода работает прекрасно. НО !!! В пути в проге (названия каталогов) и имя самой проги не должны содержать русские буквы.

P.S. Да и чуть не забыл : измени строку

Код:

winexec(Pchar(BatchFileName),sw_hide);

на

Код:

winexec(Pchar('cmd.exe /c ' + BatchFileName),sw_hide);

Хотя может и в исходном виде все заработает … Можно попробовать …

Dolphin705

Здесь всё работает

Код:

program Del_self;

uses
  SysUtils,
  windows;

var
    BatchFile: TextFile;  
    BatchFileName : string;  
    TM : Cardinal;  
    TempMem : PChar;  

function StrAnsiToOem(const S: AnsiString): AnsiString;
begin
  SetLength(Result, Length(S));
  AnsiToOemBuff(@S[1], @Result[1], Length(S));
end;

begin  
    BatchFileName:=ExtractFilePath(ParamStr(0))+ '$$336699.bat';

    AssignFile(BatchFile, BatchFileName);  
    Rewrite(BatchFile);  

    Writeln(BatchFile,':try');
    Writeln(BatchFile,'del "' + StrAnsiToOem(ParamStr(0)) + '"');  
    Writeln(BatchFile,'if exist "' + StrAnsiToOem(ParamStr(0)) + '" goto try');  
    Writeln(BatchFile,'del "' + StrAnsiToOem(BatchFileName) + '"');  
    CloseFile(BatchFile);

    TM:=70;  
    GetMem (TempMem,TM);  
    GetShortPathName (pchar(BatchFileName), TempMem, TM);  
    BatchFileName:=TempMem;  
    FreeMem(TempMem);  
    winexec(Pchar('cmd.exe /c ' + BatchFileName),sw_hide);
    //winexec(Pchar(BatchFileName),sw_hide);  

    halt;  

end.

тема на форуме от 2009 года