Fecha executável


Autor/fonte: andradedenilson
E-mail/Url: http://www.codigofonte.net/scripts/delphi/funcoes/1547_fecha-executave...
Tags: [ executável ]



Digg del.icio.us

Script que fecha um processo em especifico apos a execução do mesmo.

Script:

//Finaliza um processo especifico
function Fecha_exe(ExeFileName: string): Integer;
const
  PROCESSSO_FINALIZA = $0001;
var
  ContinuaLoop: BOOL;
  FAquivo: THandle;
  FProcessoEntrada: TProcessEntry32;
begin
  Result := 0;
  FAquivo := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
  FProcessoEntrada.dwSize := SizeOf(FProcessoEntrada);
  ContinuaLoop := Process32First(FAquivo, FProcessoEntrada);

  while Integer(ContinuaLoop) <> 0 do
    begin
      if ((UpperCase(ExtractFileName(FProcessoEntrada.szExeFile)) =
        UpperCase(ExeFileName)) or (UpperCase(FProcessoEntrada.szExeFile) =
        UpperCase(ExeFileName))) then
        Result := Integer(TerminateProcess(
          OpenProcess(PROCESSSO_FINALIZA,
          BOOL(0), FProcessoEntrada.th32ProcessID), 0));
      ContinuaLoop := Process32Next(FAquivo, FProcessoEntrada);
    end;
  CloseHandle(FAquivo);
end;

//Utilização
Fecha_exe('excel.exe');




Enviado por xKuRt em 22/05/2009 às 11:11


Itens relacionados

Linkar um OBJ ao executável

Avaliação

Esta publicação ainda não foi avaliada!


Avaliar:


A avaliação de publicações é restrita a membros cadastrados e logados no nosso site.



Comentários

Este artigo ainda não foi comentado ou o(s) comentário(s) que foi(ram) enviado(s) a ele ainda não foi(ram) publicado(s).


Envio de comentário:




  

Sexta, 29 de Agosto de 2014




Top 5 membros

Últimos membros online

Últimos membros cadastrados



Capa do livro
Use a Cabeça! Web Design


Capa do livro
PHP Programando com Orientação a Objetos


Capa do livro
Descobrindo o Linux: Entenda o Sistema Operacional GNU / Linux





Hostnet

IMD