Monitorear aplicacion desde delphi

[ajvdelphi]

Hola
Podés probar con esto:


procedure TForm1.Button1Click(Sender: TObject);

function EstaEjecutandose (ExeFile:string): boolean;
var H:word;
begin
H := CreateFile(PChar(ExeFile), GENERIC_READ, 0, nil, OPEN_EXISTING, 0, 0);
Result := (H >= 65535);
CloseHandle(H);
end;


begin
if EstaEjecutandose ('c:\windows\notepad.exe')
then Label1.Caption:='SI/YES'
else Label1.Caption:='NO';

end;

Espero sirva
Saludos
Augusto

[[maeyanes]]

Hola ajvdelphi

Bienvenido a los foros de Club Delphi, te recomiendo que le des una leida a la Guía de Estilo.

Otra cosa, cuando publiques código fuente en Delphi, usa las etiquetas [delphi]:

[delphi]
begin
ProcedimientoAEjecutar;
Variable := 'hola mundo';
// ejemplo
end;
[/delphi]

lo que se mostrará en los foros así:

Código Delphi [-]
begin
  ProcedimientoAEjecutar;
  Variable := 'hola mundo';
  // ejemplo
end;

Saludos...

[ajvdelphi]

Hola maeyanes
Ok, entendido, ya me mandé dos, pero aprendí

Saludos
Augusto

[Casimiro Notevi]

A ver si recordamos poner los tags al código fuente, ejemplo:



Gracias