Abrir única instância
12/09/2004
0
Como faço para não permitir que o usuário abra mais de uma instância do meu aplicativo?
Fmd
Curtir tópico
+ 0
Responder
Posts
13/09/2004
Dataclass
ve se isso resolve teu problema
[ ]´s
[ ]´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], 0);
Responder
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
13/09/2004
Fmd
Valeu [b:c246d66f63]TatuWeb[/b:c246d66f63]. Com a dica daquele outro tópico funcionou.
Responder
Clique aqui para fazer login e interagir na Comunidade :)
