Ir al contenido


Foto

[TRUCO DELPHI] Evitar que dos instancias de la misma aplicacion se inicien.


  • Por favor identifícate para responder
1 respuesta en este tema

#1 sir.dev.a.lot

sir.dev.a.lot

    Advanced Member

  • Miembros
  • PipPipPip
  • 545 mensajes
  • Location127.0.0.1

Escrito 10 diciembre 2016 - 03:50

[TRUCO DELPHI] Evitar que dos instancias de la misma aplicacion se inicien.


delphi
  1. Var
  2. hw: HWND;
  3.  
  4. begin
  5. Application.Initialize;
  6. hw := FindWindow('TApplication', 'NombredeMiPrograma');
  7. If hw <> 0 Then
  8. begin
  9. If IsIconic(hw) Then
  10. ShowWindow(hw, SW_Restore)
  11. Else
  12. SetForeGroundWindow(hw);
  13. end
  14. Else
  15. begin
  16. Application.Title := 'NombredeMiPrograma';
  17. Application.CreateForm(TForm1, Form1);
  18. Application.Run;
  19. end;
  20. end.

Saludos!


  • 1

#2 escafandra

escafandra

    Advanced Member

  • Moderadores
  • PipPipPip
  • 3.962 mensajes
  • LocationMadrid - España

Escrito 10 diciembre 2016 - 04:43

Deberías haber leído este tema: Como evitar que mi aplicacion se abra 2 veces en la misma pc.

 

 

Saludos.


  • 1