Re: Limit One Copy
- Posted by Christopher B <president at insight-concepts.com> Jun 30, 2002
- 421 views
Thank you Wolf, your code did the trick. Chris > >-- allow only one instance of this program >object jk >constant >zCreateSemaphore =3D= registerw32Function(kernel32,"CreateSemaphoreA", >=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0{C_POINTER,C_INT,C_INT,C_POINTER},C_INT), >zGetLastError =3D >registerw32Function(kernel32,"GetLastError",{},C_INT), >zERROR_ALREADY_EXISTS =3D 183 >-- create a semaphore for this instance >jk =3D w32Func(zCreateSemaphore,{NULL, 0, 1, >allocate_string("just_once")}) >jk =3D w32Func(zGetLastError,{}) >if jk =3D zERROR_ALREADY_EXISTS then >=A0abort(0) -- abort if we're already running ! >end if > >>=A0Does anyone know how to limit one copy of a program to run= under >>Windows? > > > > --