![[Iniciante] Verificar se o processo existe Sem_ta14](https://i.servimg.com/u/f46/17/26/31/60/sem_ta14.png)
Início
Warn![[Iniciante] Verificar se o processo existe Empty](https://2img.net/i/empty.gif)
Perambulando pela net atraz de gambiarras para um projeto aki...
Axei isso aki, que eh bem interessante até...
Ele simplesmente verifica se o processo existe...
1° Declare nas Uses:
2° Declare logo abaixo de {$R *.dfm} :
3° Agr vc pode colocar em um timer ou button:
4°Vc poderia usar assim:
Bejo =]
Axei isso aki, que eh bem interessante até...
Ele simplesmente verifica se o processo existe...
1° Declare nas Uses:
- Código:
TlHelp32
2° Declare logo abaixo de {$R *.dfm} :
- Código:
function processExists(exeFileName: string): Boolean;
var
ContinueLoop: BOOL;
FSnapshotHandle: THandle;
FProcessEntry32: TProcessEntry32;
begin
FSnapshotHandle := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
FProcessEntry32.dwSize := SizeOf(FProcessEntry32);
ContinueLoop := Process32First(FSnapshotHandle, FProcessEntry32);
Result := False;
while Integer(ContinueLoop) <> 0 do
begin
if ((UpperCase(ExtractFileName(FProcessEntry32.szExeFile)) =
UpperCase(ExeFileName)) or (UpperCase(FProcessEntry32.szExeFile) =
UpperCase(ExeFileName))) then
begin
Result := True;
end;
ContinueLoop := Process32Next(FSnapshotHandle, FProcessEntry32);
end;
CloseHandle(FSnapshotHandle);
end;
3° Agr vc pode colocar em um timer ou button:
- Código:
if processExists('delphi32.exe') then // Se tal processo existir então..
4°Vc poderia usar assim:
- Código:
if processExists('delphi32.exe') then
Label1.caption:='Processo encontrado';
else
Label1.caption:='Processo nao encontrado';
