Дык, одно увлечение Delphi уже должно говорить о карланстве.

Смешной_Медведко, карланство - это что?

Cover, попробуй изложить суть проблемы, может смогу помочь.
Я уже и забыл что на это сообщество подписан...

ну проблему уже решил, но всё таки изложу. вдруг лучшее решение найдётся :)
нужно посчитать число запущенных программ:

function ProccessesCount(ExeName : string) : integer;
var
SnapShot : THandle;
ProcEntry : TProcessEntry32;
begin
Result := 0;
SnapShot := CreateToolhelp32Snapshot(th32cs_snapprocess, 0);
if Process32First(SnapShot, ProcEntry) then
begin
if UpperCase(Trim(th32cs_snapprocess.szExeFile)) = UpperCase(Trim(ExeName)) then inc(Result);
while Process32Next do
if UpperCase(Trim(th32cs_snapprocess.szExeFile)) = UpperCase(Trim(ExeName)) then inc(Result);
end;
end;

суть проблемы была в том, что этот код не работал :)

Ну в принципе мне кажется что этот код достаточно нормален. А почему не работал?

из-за системного косяка, оставшегося ещё со времён Win95

И как ты это исправил?

как обычно тупо: нашёл рабочий пример, поменял имена переменных и вставил себе в проект