Como fazer minha aplicação não abrir 2 vezes

Delphi

30/08/2004

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


Leandrosl2

Leandrosl2

Curtidas 0

Respostas

Edmarss

Edmarss

30/08/2004

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;


GOSTEI 0
Leandrosl2

Leandrosl2

30/08/2004

Oi amigo, obrigado pela dica, mas onde eu boto aquele código... perdoe minha ignorancia.

Leandro.


GOSTEI 0
Edmarss

Edmarss

30/08/2004

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


GOSTEI 0
POSTAR