(Resolvido) Verificar se um programa especifico está aberto

[robinhocne]

Boa noite Pessoal,

Tenho um programinha chamado DOSPRINT ele serve para emular a porta USB para LPT1, é um programinha de terceiro, ai eu queria no delphi verificar se esse programa está executando, pois como ele fica do lado do relogio e ainda oculto, eu queria só saber se ele esta executando se não tiver ai pelo delphi eu mandar abrir ele.

alguém pode me ajudar ?

Editado Outubro 20, 2010 por robinhocne

[Douglas Soares]

Declare a Uses: Tlhelp32

Implemente a função:

function Tform1.ProcessoExiste(ExeFileName: string): boolean;
const
PROCESS_TERMINATE=$0001;
var
ContinueLoop: BOOL;
FSnapshotHandle: THandle;
FProcessEntry32: TProcessEntry32{declarar Uses Tlhelp32};
begin
result := false;

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
begin
Result := true;
exit;
end;
ContinueLoop := Process32Next(FSnapshotHandle,FProcessEntry32);
end;
CloseHandle(FSnapshotHandle);
end;

Depois faça a checagem:

if ProcessoExiste('MeuPrograma.exe') then
ShowMessage('Uhull to aberto')
else
WinExec (pChar('MeuPrograma.exe'), SW_MAXIMIZE);

Abraços

[robinhocne]

Declare a Uses: Tlhelp32

Implemente a função:

function Tform1.ProcessoExiste(ExeFileName: string): boolean;
const
PROCESS_TERMINATE=$0001;
var
ContinueLoop: BOOL;
FSnapshotHandle: THandle;
FProcessEntry32: TProcessEntry32{declarar Uses Tlhelp32};
begin
result := false;

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
begin
Result := true;
exit;
end;
ContinueLoop := Process32Next(FSnapshotHandle,FProcessEntry32);
end;
CloseHandle(FSnapshotHandle);
end;

Depois faça a checagem:

if ProcessoExiste('MeuPrograma.exe') then
ShowMessage('Uhull to aberto')
else
WinExec (pChar('MeuPrograma.exe'), SW_MAXIMIZE);

Abraços

Ok, otimo resolvido, Obrigado Douglas