{
Return number of exe program instances running now.
Example: PidCounter('Crw32.exe')
}
function PidCounter(exe:String):Integer;
var t,i,n:Integer; b:Boolean;
begin
 n:=0;
 exe:=Trim(exe);
 if Length(exe)>0 then begin
  t:=PidList(Text_New);
  for i:=0 to Text_Numln(t)-1 do
  if IsSameText(exe,Trim(SkipWords(4,Text_GetLn(t,i)))) then n:=n+1;
  b:=Text_Free(t);
 end;
 PidCounter:=n;
end;
