nonVCL Programm nur einmal starten

[SirThornberry]

einfach die function nehmen die createmutex auruft

Delphi-Quellcode:

const
  kernel32 = 'kernel32.dll';
[...]
function _CreateMutex(lpMutexAttributes: PSecurityAttributes;
  bInitialOwner: Integer; lpName: PChar): THandle; stdcall; external kernel32 name 'CreateMutexA';