---

Hej Gruppe.

Hvordan checker man i et delphi-program om det
allerede er startet i forvejen og så bare aktiverer det
startede program istedet for at starte det igen?

Hilsen Lars

---

> Hej Gruppe.
>
> Hvordan checker man i et delphi-program om det
> allerede er startet i forvejen og så bare aktiverer det
> startede program istedet for at starte det igen?
>
> Hilsen Lars

var
hSem: Cardinal;
begin
hsem:=createsemaphore(nil, 0, 1, 'sem_lnvidservguard');
if (hsem>0) and (getlasterror=error_already_exists) then
begin
ShowMessage('Programmet er allerede startet!');
closehandle(hsem);
exit;
end;
....
end.

/Nic

---

Tak for det :)

Hilsen Lars

---

> Tak for det :)
>
> Hilsen Lars

Velbekomme :)