Abrir 1 vez o programa s�!

Question

Ola as vezes meu cliente clica um monte vez no atalho para abrir meu programa, dai abre varios programas, tem como barrar isso?Valew...

Ivonei · Answer

Veja se � isto:  :) program Project1;uses  Forms,  Windows,  Unit1 in �Unit1.pas� ;{$R *.RES}// Declare a variavelvar  Hwnd : THandle;begin  // FindWindow vai procurar pela classe TApplication  // que tenha o nome do Title que vc configurou  Hwnd := FindWindow(�TApplication�, �Teste�);  // se o Handle e� 0 significa que nao encontrou  if Hwnd = 0 then  begin    Application.Initialize;    // Esta linha e� colocada automaticamente pelo Delphi    // ao se configurar o Title    Application.Title := �Teste�;    Application.CreateForm(TForm1, Form1);  Application.Run;  end  else    // Esta funcao traz para frente (da o foco) para a janela    // da aplicacao que ja esta rodando    SetForegroundWindow(Hwnd);end....

Fer · Answer

Valeuuuuu !!! =))...

Ivonei · Answer

[quote:344d2cfe5d=�FeR�]Valeuuuuu !!! =))[/quote:344d2cfe5d]Precisando, tamos a�  :D...

Fer · Answer

opa num deu certo =((...

Vmotta · Answer

Acrescente essas linha em seu .dpr ok?begin// acrescente essas 3 linhas:  if FindWindow(nil, �Nome do Seu Sistema�) = 0 then  begin    Application.Title := �Nome do Seu Sistema�;    Application.Initialize;    Application.CreateForm(TForm1, Form1);    Application.Run;// acrescente essas 3 linhas:  end  else    MessageDLG(�Sistema j� foi iniciado.�, mtError, [mbok],0);end.n�o se esque�a de declarar na uses as seguintes units:- Dialogs- WindowsQq coisa me manda um e-mail, e eu te mando um exemplo de volta ok? T+Vitor <vmotta@eep.br>...

F�rum Abrir 1 vez o programa s�! #171153