1 respuesta en este tema

[sir.dev.a.lot]

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

delphi

Var
  hw: HWND;
 
begin
  Application.Initialize;
  hw := FindWindow('TApplication', 'NombredeMiPrograma');
  If hw <> 0 Then
  begin
    If IsIconic(hw) Then
      ShowWindow(hw, SW_Restore)
    Else
      SetForeGroundWindow(hw);
  end
  Else
  begin
    Application.Title := 'NombredeMiPrograma';
    Application.CreateForm(TForm1, Form1);
    Application.Run;
  end;
end.

Saludos!

[escafandra]

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

 

 

Saludos.