Получение списка запущенных приложений Опции

[#$# PaVeL #$#]

Как получить список запущенных приложений?
В DRKB способ не стабильный....

[#$# PaVeL #$#]

Странно видимо ошибка где-то в самом коде!
Суть должна была быть такой:
Есть поток класса THread в нем цикл постоянно отлавливающий приложения, потом сверяет зарегестрирован ли такой процесс в списке* если нет, то запускается поток слежения за ним**

Есть ещё один вопрос: в каком Uses`е лежит TaskFirst, TaskNext и.т.д.?

*Список основанн на массиве

Const
  MaxThreadBox = MaxByte * 3;
  FreeSlotValue = 0;

Var
  TrackingProcessBoxs: Array[1..MaxThreadBox] Of HWND;

Function  ExistHWND(iWnd: HWND): Boolean;
Procedure FreeBox(iIndex: Integer);
Function GetFreeBox: Integer;
Function AddUseBox(iWnd: HWND): Integer;
///...
Uses ThreadTrackingProcess_Unit, Main_Form;

Function  ExistHWND(iWnd: HWND): Boolean;
Var
  VCurrentPosScan: Integer;
Begin
  Result := False;
  For VCurrentPosScan := 1 To MaxThreadBox Do
    Begin
      If TrackingProcessBoxs[VCurrentPosScan] = iWnd Then
        Begin
          Result := True;
          Break;
        End;
    End;
End;

Procedure FreeBox(iIndex: Integer);
Begin
  TrackingProcessBoxs[iIndex] := FreeSlotValue;
End;

Function GetFreeBox: Integer;
Var
  VCurrentPosScan: Integer;
Begin
  Result := FreeSlotValue;
  For VCurrentPosScan := 1 To MaxThreadBox Do
    Begin
      If TrackingProcessBoxs[VCurrentPosScan] = FreeSlotValue Then
        Begin
          Result := VCurrentPosScan;
          Break;
        End;
    End;
End;

Function AddUseBox(iWnd: HWND): Integer;
Begin
  Result := GetFreeBox;
  TrackingProcessBoxs[Result] := iWnd;
End;

**Поток слежения запускается без потокаTHread,
Второй вариант написанный в DRKB в разделе "Как создавать потоки без класса TThread?"

Если кто может просьба ПОМОГИТЕ!