Como fazer minha aplicação não abrir 2 vezes
30/08/2004
0
Oi amigos,
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
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
Curtir tópico
+ 0
Responder
Posts
30/08/2004
Edmarss
Uses Windows;
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;
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;
Responder
30/08/2004
Leandrosl2
Oi amigo, obrigado pela dica, mas onde eu boto aquele código... perdoe minha ignorancia.
Leandro.
Leandro.
Responder
30/08/2004
Edmarss
vai em project-> view source
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
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
Responder
Clique aqui para fazer login e interagir na Comunidade :)
