Abrir única instância

12/09/2004

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


Fmd

Respostas

13/09/2004

Dataclass

ve se isso resolve teu problema

[ ]´s


program Project1;

uses
Forms,
Windows,
Dialogs,
Unit1 in ´Unit1.pas´ ;

{$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&93;, 0);




Responder Citar

13/09/2004

Fmd

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.


Responder Citar

13/09/2004

Tatuweb

Clique aqui e veja a resposta!


Responder Citar

13/09/2004

Fmd

Valeu [b:c246d66f63]TatuWeb[/b:c246d66f63]. Com a dica daquele outro tópico funcionou.


Responder Citar