Programm einmalig starten
Hierzu werden 2 External Funktions benötigt:
Function Long GetLastError() Library 'kernel32.dll'
Function ULong CreateMutex(ULong lpsa, Boolean fInitialOwner,
String lpszMutexName) Library 'kernel32.dll' Alias for CreateMutexA
//*********************************************************
//
// Object: Application
// Funktion: of_isrunnig
// Access: public
// Arguments: integer
// Returns: boolean = TRUE ... Programm läuft schon
// = FALSE... Programm läuft noch nicht
// Description: Diese Funktion prüft, ob das Programm bereits läuft.
//
//*********************************************************
// Revision History
// Date Name Revision
//--------------------------------------------------------------------------------
// 07.10.2004 Christoph Menken CM Initial Version
//*********************************************************
// Copyright ©2004 Power People All Rights Reserved.
//*********************************************************
String ls_name
// Prüfen, ob es sich um eine Exe handelt
If Handle(GetApplication()) > 0 Then
// Der Mutex heißt so, wie die Applikation mit Null-Terminator
ls_name = GetApplication().AppName + Char(0)
// Den Mutex erzeugen
CreateMutex(0, True, ls_name)
// Prüfen, ob der Mutex erfolgreich erzeugt wurde
// Dies geht nur, wenn er noch nicht existiert
If GetLastError() = 183 Then Return True
End If
Return False
|
