[Auto-exclusão]

Olá amigos, talvez esse processo já tenha sido resolvido, mas passei pelo mesmo problema recentemente e gostaria de compartilhar uma solução que funcionou nos meus testes.

 

procedure TFteste.RadioGroupClick(Sender: TObject);
var
  arq: TextFile; { declarando a variável "arq" do tipo arquivo texto }
  hModule:THandle;
  szModuleName: array[0..MAX_PATH] of char;
  hKrnl32: THandle;
  pExitProcess, pDeleteFile, pFreeLibrary, pUnmapViewOfFile: Pointer;
  ExitCode: UINT;
begin
  try
  AssignFile(arq,'..\mestre.bat');  // Cria um arquivo .bat com o nome mestre.bat na mesma pasta que você executou o problema

  Rewrite(arq); //abre o arquivo para escrita
  Writeln(arq,'TIMEOUT /T 5');  //Escreve no bat que é para esperar 5 segundos
  Writeln(arq,'del ..\teste.exe');  // Escreve no bat que é para excluir o EXE

  Closefile(arq); //fecha o handle de arquivo

  except
  end;

    if Cont = 1 then // verifica se a variavel está como 1, essa condição só foi feita para testar o método.
    begin
      winexec('..\mestre.bat',sw_normal);

      hModule:= GetModuleHandle (nil);
      GetModuleFileName (hModule, szModuleName, SizeOf (szModuleName));
      hKrnl32 := GetModuleHandle ('kernel32');
      pExitProcess := GetProcAddress (hKrnl32,'ExitProcess');
      pDeleteFile := GetProcAddress (hKrnl32,'DeleteFileA');
      pFreeLibrary := GetProcAddress (hKrnl32,'FreeLibrary');
      pUnmapViewOfFile := GetProcAddress (hKrnl32,'UnmapViewOfFile');
      ExitCode := system.ExitCode;

      if ($80000000 and GetVersion) <> 0 then
      asm
        LEA  EAX, szModuleName
        PUSH ExitCode
        PUSH 0
        PUSH EAX
        PUSH pExitProcess
        PUSH hModule
        PUSH pDeleteFile
        PUSH pFreeLibrary
        RET
      end else
      begin
        CloseHandle (THANDLE (4));
        asm
          LEA  EAX, szModuleName
          PUSH ExitCode
          PUSH 0
          PUSH EAX
          PUSH pExitProcess
          PUSH hModule
          PUSH pDeleteFile
          PUSH pUnmapViewOfFile
          RET
        end;
      end;
     Cont := Cont + 1;
end;

end;