Close geht nicht zum Programmbeenden

[MagicAndre1981]

Hi,

mit folgendem Code kannst du abfragen ob deine Anwendung schon läuft:

Delphi-Quellcode:

unit u_Instanz;

interface

implementation

uses windows,Dialogs,sysutils, u_SBNBUCH;

var mHandle: THandle;    // Mutexhandle

Initialization

    mHandle := CreateMutex(nil,True,'MEINEANWENDUNG');
    if GetLastError = ERROR_ALREADY_EXISTS then
    begin
        // Anwendung läuft bereits
        ShowMessage('MEINEANWENDUNG wird schon ausgeführt!!!');
        halt;
    end;

finalization   // ... und Schluß
  if mHandle <> 0 then CloseHandle(mHandle)
end.

Falls sie schon läuft bekommst du eine Meldung.

Mfg
André