Ограничения числа запущенных копий процессов!

[Mr.karpiks]

Всем привет, помогите пожалуйста нужна функция для запрета запуска нескольких процессов одновременно!

[eoln]

http://ru.wikipedia.org/wiki/Семафор_(информатика)
Также мьютексы есть

[Mr.karpiks]

Можешь привести раб. код? Пожалуйста!

Есть такой код, но он не работает!

function TForm1.IsRunning(exename: string): THandle; // проверяет, запущен ли процесс sName
var
  hSnapshoot: THandle;
  pe32: TProcessEntry32;
begin
  Result:= 0;
  hSnapshoot:= CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
  if (hSnapshoot = 0) then Exit;
  pe32.dwSize:= SizeOf(TProcessEntry32);
  if (Process32First(hSnapshoot, pe32)) then
    repeat
      if (pe32.szExeFile = exename) then
      begin
        Result:= pe32.th32ProcessID;
        exit;
      end;
    until not Process32Next(hSnapshoot, pe32);
end;

[eoln]

Поиск по форуму createmutex.
Например, http://programmersforum.ru/showpost....81&postcount=8

P.S. Если же надо ограничить копии, скажем, не более 10 одновременно работающих, то лучше семафоры

[Mr.karpiks]

Мне надо запретить запуск дочернего приложения!