Problem beim Programmneustart mit Instanzkontrolle

[musicman56]

Hi Sir Rufo,

sag mal, wann schläfst du denn?

Klar, die Unit hat noch Verbesserungspotential. Ich gebe den Mutex auch nicht frei. Habe es auch noch nirgendwo gesehen, muss aber nichts bedeuten. Ich dachte immer, bei Programmende wird der Mutex automatisch freigegeben?

Hier mal meine Variante:

Delphi-Quellcode:

unit RuMutex;

interface

uses Windows, SysUtils;

function CreateRubinSoftwareMutex(MutexName: string): boolean;
function CreateApplicationMutex: boolean;

implementation

function StringReplace(Value: string): string;
var
  i: integer;
begin
  Result := Value;
  for i := 1 to Length(Result) do
  if not CharInSet(Result[i],['0'..'9','a'..'z','A'..'Z'])
  then Result[i] := '_';
end;

function CreateRubinSoftwareMutex(MutexName: string): boolean;
var
  LastError    : DWord;
  SecurityDesc : TSecurityDescriptor;
  SecurityAttr : TSecurityAttributes;
  aName        : string;
  Res          : Cardinal;
begin
  Result := false;
  InitializeSecurityDescriptor(@SecurityDesc, SECURITY_DESCRIPTOR_REVISION);
  SetSecurityDescriptorDacl(@SecurityDesc, True, nil, False);
  SecurityAttr.nLength := SizeOf(SecurityAttr);
  SecurityAttr.lpSecurityDescriptor := @SecurityDesc;
  SecurityAttr.bInheritHandle := False;
  aName := 'Global\RUBiN_Software_' + StringReplace(MutexName);
  Res := CreateMutex(@SecurityAttr, True, PChar(aName));
  LastError := GetLastError;
  if (Res = 0) then raise EOSError.Create('Mutex Modul-Name <'
                         + aName+'> konnte nicht erzeugt werden. Fehler-Code:'
                         + IntToStr(LastError))
  else if (LastError <> ERROR_ALREADY_EXISTS) then Result := true;
end;

function CreateApplicationMutex: boolean;
begin
  Result := CreateRubinSoftwareMutex(ParamStr(0));
end;

end.

[Sir Rufo]

Wenn du das in eine Klasse und als Klassenmethoden verpackst wird das schon runder.

Ich kann da mal - nach meinem Schönheitsschlaf - einen Entwurf machen.

[musicman56]

Noch runder als rund....ich bin gespannt
Brauch jetzt auch meinen Schönheitsschlaf.

[sx2008]

Also in der JCL gibt es die Klasse TJclAppInstances (Unit JclAppInst) die alle Probleme mit den Instanzen abdeckt.
Wenn man z.B. eine zweite Instanz startet obwohl nur eine erlaubt ist, dann gibt die 2. Instanz seine Aufrufparameter an die 1. Instanz weiter und beendet sich sich.
Sind mehrere Instanzen zugelassen können diese untereinander kommunizieren.

Wenn man das Rad nicht neu erfinden will ist diese Klasse die beste Lösung.

[musicman56]

Zitat von sx2008:

Wenn man das Rad nicht neu erfinden will ist diese Klasse die beste Lösung.

Prinzipiell stimme ich dir zu. Wenn ich aber die JCL nicht installiert habe, stellt sich die Frage, ob man wegen einem Liter Milch eine Kuh kaufen sollte?

[sx2008]

Zitat von musicman56:

Wenn ich aber die JCL nicht installiert habe, stellt sich die Frage, ob man wegen einem Liter Milch eine Kuh kaufen sollte?

Du trinkst wahrscheinlich viel mehr Milch als dir bewusst ist. (und die Kuh ist ja kostenlos)
Mal ernsthaft, jede Anwendung die über ein Hobbyprogrämmchen hinaus geht kann von der JCL profitieren.
Alles was Borland/Embacadero in der RTL vergessen hat findet man in der JCL.

[Opa Knack]

Den Bezug zwischen JCL und der Kuh übernehme ich dann mal in meinen Sprachgebrauch...

Wenn ich das richtig verstehe (sorry, Musicman, aber in D2006 ist CharInSet nicht verfügbar, somit konnte ich das nicht ausprobieren), muss ich den Mutex freigeben, bevor ich ihn erzeuge (was ja auch logisch ist). Dann ergibt sich aber aus meiner Sicht das Problem, dass ich den Neustart ja vom Programm aus initiiere, der Mutex also noch besteht, und das dieser erst freigegeben werden kann, wenn das Programm auch beendet ist. Oder sehe ich das falsch?

Ich habe inzwischen ausprobiert, ob ich den Mutex dadurch freigeben kann, dass ich vor Programmende versuche, ihn neu zu erzeugen und bei Vorhandensein über CloseHandle freizugeben, leider jedoch ohne Erfolg.

Hat jemand noch eine andere praktikable Idee?