Fórum Abrir única instância #250070

12/09/2004

0

Delphi

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


Fmd

Fmd

Responder

Posts

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], 0);



Responder

Gostei + 0

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

Gostei + 0

13/09/2004

Tatuweb

Clique aqui e veja a resposta!


Responder

Gostei + 0

13/09/2004

Fmd

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


Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar