EnumWindows внури объекта

[King Nothing]

Всем огромное спасибо!

Прошу извинить если кого обидел, просто хотелось достичь определенной цели.

Результат прикреплен, может кому пригодиться.
Достаточно создать объект и перечень ссылок на запущенные приложения готов.

Пример использования:

procedure TRunApplications.BitBtn1Click(Sender: TObject);
Var
  WndName : array[0..254] of char;
  AppList : TAppList;
  i       : Integer ;
begin
  // Фомируем перечень указателей на запущенные приложения
  AppList := TAppList.Create;

  Try
    // Вывод перечня приложений
    With AppList Do Begin
      For i:= (Count-1) DownTo 0 Do Begin
         GetWindowText(Items[i], @WndName, 254);
         ShowMessage(IntToStr(Items[i]) + ': ' + WndName);
      End ;
    End ;

   Finally
    AppList.Destroy;
  End;
end;