Como fazer minha aplicação não abrir 2 vezes
30/08/2004
0
Tenho uma programa que quando eu clico ele abre e se eu clicar de novo ele abre outro e assim por diante, como fazer com que ele só abra 1.
Obrigado,
Leandro
Leandrosl2
Posts
30/08/2004
Edmarss
var
hMutex: Thandle;
begin
HMutex:=CreateMutex(nil,False,´OneCopyMutex´);
If WaitForSingleObject(hMutex,0) <> wait_TimeOut Then Begin
Applicaiton.Initialize;
Application.CreateForm(TForm1,Form1);
Application.Run;
End;
End;
30/08/2004
Leandrosl2
Leandro.
30/08/2004
Edmarss
vai aparece algo assim: (se for um novo projeto).
program Project1;
uses
Forms,
Unit1 in ´Unit1.pas´ ;
{$R *.res}
begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.Run;
end.
Duvidas: edmarss@hotmail.com
Clique aqui para fazer login e interagir na Comunidade :)