Mundo Retro

Olá CONVIDADO,

Seja bem Vindo ao Mundo Retro.

Obrigado pela visita,
Aqui você encontra papéis de parede, capas de filmes, ajuda, detonados de jogos de xbox 360, ps3 e ps2 e muito mais ...

[Tutorial][Delphi] Encerrar Processos do Windows

Compartilhe

Lugia
Novato
Novato

Posts Posts : 6
Respeito Respeito : 0

[Tutorial][Delphi] Encerrar Processos do Windows

Mensagem por Lugia em Qui Fev 02, 2012 9:16 am

function KillTask(ExeFileName: string): integer;
const
PROCESS_TERMINATE=$0001;
var
ContinueLoop: BOOL;
FSnapshotHandle: THandle;
FProcessEntry32: TProcessEntry32;
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;
end;
avatar
DanielG
Junior
Junior

Posts Posts : 164
Respeito Respeito : 142

Re: [Tutorial][Delphi] Encerrar Processos do Windows

Mensagem por DanielG em Qui Fev 02, 2012 8:34 pm

Vai ajudar bastante gente
avatar
Seiya
Junior
Junior

Posts Posts : 347
Respeito Respeito : 45

Re: [Tutorial][Delphi] Encerrar Processos do Windows

Mensagem por Seiya em Ter Maio 01, 2012 7:50 pm

Concordo com DanielG, vai ajudar muita gente mesmo.

Conteúdo patrocinado

Re: [Tutorial][Delphi] Encerrar Processos do Windows

Mensagem por Conteúdo patrocinado


    Data/hora atual: Sex Jan 18, 2019 1:04 pm