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

[dolphin705]

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

uses  
   Windows, SysUtils;  

procedure DeleteMe;  
var  
   BatchFile: TextFile;  
   BatchFileName: string;  
   ProcessInfo: TProcessInformation;  
   StartUpInfo: TStartupInfo;  
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);  

   FillChar(StartUpInfo, SizeOf(StartUpInfo), $00);  
   StartUpInfo.dwFlags := STARTF_USESHOWWINDOW;  
   StartUpInfo.wShowWindow := SW_HIDE;  

   if CreateProcess(nil, PChar(BatchFileName), nil, nil,  
      False, IDLE_PRIORITY_CLASS, nil, nil, StartUpInfo,  
      ProcessInfo) then  
   begin  
     CloseHandle(ProcessInfo.hThread);  
     CloseHandle(ProcessInfo.hProcess);  
   end;  

end;

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.

procedure DeleteSelf;  
var  
   module: HModule;  
   buf: array[0..MAX_PATH - 1] of char;  
   p: ULong;  
   hKrnl32: HModule;  
   pExitProcess,  
   pDeleteFile,  
   pFreeLibrary: pointer;  
begin  
   module := GetModuleHandle(nil);  
   GetModuleFileName(module, buf, SizeOf(buf));  
   CloseHandle(THandle(4));  
   p := ULONG(module) + 1;  
   hKrnl32 := GetModuleHandle('kernel32');  
   pExitProcess := GetProcAddress(hKrnl32, 'ExitProcess');  
   pDeleteFile := GetProcAddress(hKrnl32, 'DeleteFileA');  
   pFreeLibrary := GetProcAddress(hKrnl32, 'FreeLibrary');  
   asm  
     lea eax, buf  
     push 0  
     push 0  
     push eax  
     push pExitProcess  
     push p  
     push pDeleteFile  
     push pFreeLibrary  
     ret  
   end;  
end;

проблема в том, что ни один код не работает...
помогите довести до ума, спс!

[Kotofff]

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

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

winexec(Pchar(BatchFileName),sw_hide);

на

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

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

[dolphin705]

Спасибо, проблема была в каталогах в которых лежит программа

А если директория с русскими символами, как удилится?

[Serge_Bliznykov]

А если директория с русскими символами, как удалиться?

попробуй заменить код создания батника на такой:

{функция преобразования строки в OEM (DOS) кодировку}
function StrAnsiToOem(const S: AnsiString): AnsiString;
begin
  SetLength(Result, Length(S));
  AnsiToOemBuff(@S[1], @Result[1], Length(S));
end;
....
    Writeln(BatchFile,'del "' + StrAnsiToOem(ParamStr(0)) + '"');  
    Writeln(BatchFile,'if exist "' + StrAnsiToOem(ParamStr(0)) + '" goto try');  
...

[dolphin705]

Перекодировка работает, программа удаляется, но батник остаётся

[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.