![]() |
![]() |
| Paypal | FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
|||||||
| Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Buscar | Temas de Hoy | Marcar Foros Como Leídos |
|
|
Herramientas | Buscar en Tema | Desplegado |
|
#4
|
|||
|
|||
|
perdon, entendi que querias saber si tu aplicacion estaba ejecutandose.
Aqui va otro ej, sacado de Trucomania, donde puedes saber si un exe esta ejecutandose pero necesitas saber el path donde se encuentra el mismo. 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 que te sirva. Saludos |
| Herramientas | Buscar en Tema |
| Desplegado | |
|
|
|