Preventing two instances of a program to run simultaneously
You can use this code to prevent a program from being started again when it already runs:
class facts okToRunMutex : mutex := erroneous. class predicates okToRun : () determ. clauses okToRun() :- okToRunMutex := mutex::createNamed("SomeStrangeName", false()), not(multiThread_native::wait_timeout = okToRunMutex:wait(0)). clauses run():- if okToRun() then TaskWindow = taskWindow::new(), TaskWindow:show() end if.
You are supposed to use some strange name instead of "SomeStrangeName". Microsoft has this to say about the subject:
If you are using a named mutex to limit your application to a single instance, a malicious user can create this mutex before you do and prevent your application from starting. To prevent this situation, create a randomly named mutex and store the name so that it can only be obtained by an authorized user. Alternatively, you can use a file for this purpose. To limit your application to one instance per user, create a locked file in the user's profile directory.