Константин пишет:
// Stop - семафор,
// sleep - UDF наподобие Application.ProcessMessages в Delphi
  while (gen_id(stop, 0) <> 0)) do sleep(100);
  i = gen_id(stop, 1);
Хм, sleep... Чего уж мелочиться, давай сразу CreateMutex/WaitForSingleObject/ReleaseMutex :)

--
wbr, ps
ps-at-azs-ru

Ответить