Fechar programa

[DouglasP 1]

Alguem saberia me informar como posso fechar um programa externo?

sem ser pelo nome da janela, e sim pelo nome do exe (exemplo: calc.exe)

 

 

grato.

[Maikel Scheid 1]

Olá

 

Você pode usar o seguinte código:

procedure TForm1.Button1Click(Sender: TObject);
  function Finalizaprocesso(ExeFileName: string): integer;
  const
	PROCESS_TERMINATE=$0001;
  var
	ContinueLoop: BOOL;
	FSnapshotHandle: THandle;
	FProcessEntry32: TProcessEntry32{declarar Uses Tlhelp32};
  begin
	result := 0;

	FSnapshotHandle := CreateToolhelp32Snapshot
	(TH32CS_SNAPPROCESS, 0);
	FProcessEntry32.dwSize := Sizeof(FProcessEntry32);
	ContinueLoop := Process32First(FSnapshotHandle,
	FProcessEntry32);

	while integer(ContinueLoop) <> 0 do
	begin
	  if ((UpperCase(ExtractFileName(FProcessEntry32.szExeFile)) = UpperCase(ExeFileName))
	  or (UpperCase(FProcessEntry32.szExeFile) = UpperCase(ExeFileName))) then
	  Result := Integer(TerminateProcess(OpenProcess(
		PROCESS_TERMINATE, BOOL(0),
		FProcessEntry32.th32ProcessID), 0));
	  ContinueLoop := Process32Next(FSnapshotHandle,FProcessEntry32);
	end;
	CloseHandle(FSnapshotHandle);
  end;
begin
  Finalizaprocesso('calc.exe')
end;

Código obtido através de pesquisa aqui no fórum... veja o link:

http://forum.imasters.com.br/index.php?showtopic=266284

 

Att

[DouglasP 1]

esse codigo funciona em qualquer SO ?

grato.

[Maikel Scheid 1]

Olá

 

Creio que funcione sim... não testei em sistema operacionais mais antigos, mas no Win Vista 32, Win Vista 64 e Server 2003 R2 funciona perfeitamente.

 

Att