Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   Como abrir dos instancias a la vez de mi aplicacion (https://www.clubdelphi.com/foros/showthread.php?t=62100)

JoAnCa 03-12-2008 22:28:43

Como abrir dos instancias a la vez de mi aplicacion
 
Hola a todos
Necesito saber como puedo abrir dos instancias a la vez de mi aplicacion, es decir, que si oprimo un boton me salga otra ventana de mi aplicacion, o sea, un clon de la misma ventana activa :rolleyes:

felipe88 03-12-2008 22:44:43

¿Ya probaste con ShellExecute a la misma aplicación? :confused:

cHackAll 03-12-2008 22:48:28

Cita:

Empezado por felipe88 (Mensaje 329518)
¿Ya probaste con ShellExecute a la misma aplicación? :confused:

:eek:.... bueno, si y no :D

Si solo haces "eso" la la primera instancia va a correr otra (la segunda), y esta a su vez va a correr otra (la tercera), y la tercera correra otra instancia... (la cuarta) ..... :D:D:D

Lo que necesitas es utilizar objetos globales, Mutex, entradas de registro, un archivo con un contador o "algo" para llevar la cuenta de las instancias y asi "controlarlo"

Saludos

felipe88 03-12-2008 23:09:54

Cita:

Empezado por cHackAll (Mensaje 329520)
:eek:.... bueno, si y no :D

Si solo haces "eso" la la primera instancia va a correr otra (la segunda), y esta a su vez va a correr otra (la tercera), y la tercera correra otra instancia... (la cuarta) ..... :D:D:D

Lo que necesitas es utilizar objetos globales, Mutex, entradas de registro, un archivo con un contador o "algo" para llevar la cuenta de las instancias y asi "controlarlo"

Saludos

Ahhh... claro... eso del Mutex, :rolleyes: alguna vez leí algo sobre el tema pero para hallar procesos... pero, ¿serivrá para lo que preguntan? :confused:

cHackAll 03-12-2008 23:18:32

Cita:

Empezado por felipe88 (Mensaje 329522)
Ahhh... claro... eso del Mutex, :rolleyes: alguna vez leí algo sobre el tema pero para hallar procesos... pero, ¿serivrá para lo que preguntan? :confused:

Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);
begin
 CreateMutex(nil, False, 'ClubDelphi');
 if GetLastError = 0 then
  WinExec(PChar(ParamStr(0)), SW_SHOWNORMAL);
end;

felipe88 03-12-2008 23:21:52

Mejor no digo nada :o

:D:D

JoAnCa 04-12-2008 21:14:30

Gracias por sus respuestas
Lo habia hecho creando otra vez el formulario, pero se me van de control algunos eventos en la segunda instancia

Probare lo del Mutex


La franja horaria es GMT +2. Ahora son las 13:42:36.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi