FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
No consigo impedir doble instancia del programa
He estado mirando los trucos y por los foros y no dando mil vueltas y no consigo evitar que se ejecute el programa mas de una vez.
Trabajo sobre windows 2000 y Delphi 7, no se si causa problemas con algunas funciones. La funcion FindWindowEx siempre encuentra el programa pero no se me ocurre nada para que no se abra por segunda vez. ¿Alguna idea? Us saludo a todos. |
#2
|
|||
|
|||
Hola dabas, revisa el truco 162 de trucomania, yo tengo implementada la primera variante y me funciona bien evitando la doble ejecución.
Saludos y suerte |
#3
|
||||
|
||||
Hola dabas:
Si gustas puedes usar la unidad uiapp.pas en mi página. Como ahí menciono yo la uso diariamente en Window98, WindowMe y Windows2000 sin ningún problema. Lo único que tienes que hacer es copiar el código y guardarlo como uiapp.pas (o el nombre que desees) e incluir la unidad al final de la cláusula uses del archivo dpr de tu proyecto. // Saludos |
#4
|
||||
|
||||
Otra solución, puede ser crear semáforos (CreateSemaphore)... y preguntar al iniciar la aplicación si existe ese semáforo, si existe puedes hacer algo parecido a lo que hace Román. En particular utilizo este método en aplicaciones que no usan la unit Forms.
Saludos!
__________________
delphi.com.ar Dedique el tiempo suficiente para formular su pregunta si pretende que alguien dedique su tiempo en contestarla. |
#5
|
|||
|
|||
Perfecto, no se que haria sin vosotros.
Esto es lo que he usado (Trucomania): Añade 'TLHelp32' en el uses de tu form. Añade esta función en el implementation de la form: Código:
function ProgramaAbiertoDosVeces:Boolean; var Datos :TProcessEntry32; {Estructura interna de datos de un proceso} hID : DWord; {identificador del proceso} Snap :Integer; NombreArchivo :String; {path del archivo original} Repetido :Boolean; {true si el programa se ha abierto dos veces} Handle1 :Hwnd; {thandle} Contador :Integer; {Contador de aperturas} begin Contador:=0; NombreArchivo:=Application.Exename; Repetido:=False; GetWindowThreadProcessId(Handle1,@hID); Snap:=CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS,0); try Datos.dwSize:=SizeOf(Datos); if(Process32First(Snap,Datos))then begin repeat if NombreArchivo=StrPas(Datos.szExeFile) then begin Inc(contador); if Contador>=2 then Repetido:=true; end; until (not(Process32Next(Snap,Datos))) or (Repetido); end; finally Windows.CloseHandle(Snap); end; Result:=Repetido; end; Ahora, pon este código en el evento OnCreate de la form principal: Código:
procedure TForm1.FormCreate(Sender: TObject); begin if ProgramaAbiertoDosVeces then begin showmessage('El programa ha sido abierto mas de una vez'); Application.terminate; end; end; |
#6
|
||||
|
||||
Te recomendaría probarlo en plataformas con arquitectura NT, pues no estoy del todo seguro que eso funcione.
Saludos!
__________________
delphi.com.ar Dedique el tiempo suficiente para formular su pregunta si pretende que alguien dedique su tiempo en contestarla. |
#7
|
|||
|
|||
Pues lo he probado en Windows 200 prof. y Windows XP prof. y funciona perfectamente.
Lee correctamente las procesos que se estan ejecutando |
#9
|
||||
|
||||
Cita:
Funciona de perillas en Delphi XE2 y Windows 7. Gracias Román. |
#10
|
||||
|
||||
Supongo que, desde el 2003, ya se ha ejecutado más de dos veces su programa Pero se agradece el comentario.
Ya en serio, tenía idea que, al menos con Delphi 2010, esa unidad ya no funcionaba. // Saludos |
#11
|
||||
|
||||
Ahí se ve, entre otras cosas, lo bueno de Delphi y algunos programadores...
Última edición por dec fecha: 30-08-2012 a las 03:04:41. |
#12
|
||||
|
||||
Hombre, ¿y el programador? En algo habrá contribuido ¿no?. Je, je, es pura broma.
// Saludos |
|
|
|