[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!