Array
(
)

Abrir única instância

Fmd
   - 12 set 2004

Como faço para não permitir que o usuário abra mais de uma instância do meu aplicativo?


Dataclass
   - 13 set 2004

ve se isso resolve teu problema

[ ]´s

#Código



program Project1;

uses
Forms,
Windows,
Dialogs,
Unit1 in ´Unit1.pas´ {Form1};

{$R *.RES}

Var HprevHist : HWND;
begin
Application.Initialize;
HprevHist := FindWindow(Nil, PChar(´TheProgrammer´));
if HprevHist = 0 then begin
Application.Title := ´TheProgrammer´;
Application.CreateForm(TForm1, Form1);
Application.Run;
end else
MessageDlg(´Você não pode executar outra cópia do aplicativo´, mtInformation, [mbOK], 0);




Fmd
   - 13 set 2004

Infelizmente não posso usar esse código, pois o programa fica rodando no tray e mesmo não tendo outra instância rodando, ele acusa que já há uma.


Tatuweb
   - 13 set 2004

Clique aqui e veja a resposta!


Fmd
   - 13 set 2004

Valeu TatuWeb. Com a dica daquele outro tópico funcionou.