---

Hej.

Hvordan forhindre man at man kan åbne mere en én instans af et vindue?? Og
af det pågældende program??

Jeg bruger MDIforms og Delphi interprise.

mvh.

Ib.

---

"Ib Pedersen" <enemark@mail.NOSPAMnet4you.dk> wrote in message news:3c3c501a$0$89064$edfadb0f@dspool01.news.tele.dk...
> Hej.
>
> Hvordan forhindre man at man kan åbne mere en én instans af et vindue?? Og
> af det pågældende program??
>
> Jeg bruger MDIforms og Delphi interprise.
>
> mvh.
>
> Ib.

Hvis du vil undgå at åbne flere instanser af en applikation, kan du gøre følgende
i hoved-formens FormCreate event-procedure:


procedure TForm1.FormCreate(Sender: TObject);
var
wHandle : THandle;
begin
wHandle := CreateMutex(nil, True, 'ApplicationSpecificName');
if WaitForSingleObject(wHandle, 0) = WAIT_TIMEOUT then begin
ShowMessage('Can not open multiple instances!');
Application.Terminate;
end;
end;


Asger.