Ergebnis der Suchanfrage

• Forum: Sonstige Fragen zu Delphi

  Re: Nur 1 Instanz des Programmes

    Delphi
    by Mazel, 1. Feb 2007
  ...oder nach Semaphor, siehe dazu dieses Beispiel (Der Part um die Instanz zu checken):
  
  procedure InstanceCheck;
  var
  Sem: THandle;
  
  begin
  Sem := CreateSemaphore(nil, 0, 1, 'Programtitle');
  If ((Sem <> 0) and (GetLastError = ERROR_ALREADY_EXISTS)) then
  begin