FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Permitir la ejecucion de una Sola Aplicacion
Gente, me gustaria saber si alguien conoce la forma de controlar que no se pueda ejecutar mas de una instancia de mi aplicacion... Y en el caso de que ya exista que la restaure...
Desde ya muchas gracias |
#2
|
||||
|
||||
Buenas lucianojdg:
Yo hago una cosa media extraña que me pasaron hace algún tiempo. A pesar de eso me sigue funcionando perfectamente. Pruebalo... Tienes que ponerlo en el OnCreate de tu Form Principal. Código:
procedure TMainForm.FormCreate(Sender: TObject); var Sem : THandle; begin Sem := CreateSemaphore(nil,0,1,'PROGRAM_NAME'); if ((Sem <> 0) and (GetLastError = ERROR_ALREADY_EXISTS)) then begin CloseHandle( Sem ); ShowMessage('This program is already running.'+ 'Este programa ya se está ejecutando...'); Halt; end; end;
__________________
No sabiendo que era imposible... él fue... y lo hizo!!! En fase de construcción: LoBusco.com más .com que nunca! |
|
|
|