Ricardo, acredito que você terá que verificar todos os processos em
execução.
Não tenho uma rotina pronta, mas uma busca irá lhe ajudar.
Com o PID de cada processo, você poderia usar a rotina abaixo:
var
Alca : THandle;
sExe : string;
dwRet : DWORD;
begin
Alca := OpenProcess(PROCESS_QUERY_I
Olha, eu acho que pelo path não dá, mas você pode saber se um programa está
em execução ou não com o seguinte trecho de código:
procedure TForm4.FormClick(Sender: TObject);
begin
if FindWindow(nil, 'Form4') > 0 then
ShowMessage('exec');
end;
tem outras maneiras mas, esta é a mais simples.
extractfilepath(paramstr(0));
2009/12/15 Ricardo Lima
>
>
> Tem alguma forma de saber se um determinado programa está em execução
> utilizando seu path?
>
> Eu sei que pelo nome do programa é possivel, mas eu preciso do path, ex:
> c:\meu programa\meuexe.exe.
>
> Obrigado,
>
> At.
> rlmariz
>
3 matches
Mail list logo