Array
(
)

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

Leandrosl2
   - 30 ago 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


Edmarss
   - 30 ago 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;


Leandrosl2
   - 30 ago 2004

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

Leandro.


Edmarss
   - 30 ago 2004

vai em project-> view source

vai aparece algo assim: (se for um novo projeto).

program Project1;

uses
Forms,
Unit1 in ´Unit1.pas´ {Form1};

{$R *.res}

begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.Run;
end.

Duvidas: edmarss@hotmail.com