Ergebnis der Suchanfrage

• Forum: Sonstige Fragen zu Delphi

  AW: Event beim Schließen / "Abschiessen" des Programms

   
    by idefix2, 3. Okt 2010
  procedure AbortIfNotUnique (const Bezeichnung: string);
  begin
  createMutex( nil, true, PWideChar(Bezeichnung));
  if GetLastError = ERROR_ALREADY_EXISTS then
  begin
  MessageDlg('Das Programm '+Bezeichnung+' ist schon in Betrieb'#13#10
  +'Sie können immer nur eine Version des Programmes starten',
  mtError,,0);
  halt;
  end;