TNA-Programme, zur weiteren Bearbeitung, ermitteln?

[max666]

Hallo!

Hat jemand eine Idee, wie man nur die Programme in der TNA-Bar ermitteln kann.
Mit folgender Procedure kann ich die laufenden Anwendungen in der Taskbar ermitteln.

Delphi-Quellcode:

function TFrmMain.GetTasksList(const List: TStrings): Boolean;

 function EnumWindowsProc(Wnd: HWND; List: TStrings): Boolean; stdcall;
 var
    PID: Longword;
   ParentWnd: HWND;
   ExStyle: DWORD;
   Caption: array [0..35] of Char;
   Item : tListItem;
   Icon : tIcon;
   a :  ^tHandle;
   wintext: array[0..255] of char;
 begin
   if IsWindowVisible(Wnd) then
   begin
     ParentWnd := GetWindowLong(Wnd, GWL_HWNDPARENT);
     ExStyle := GetWindowLong(Wnd, GWL_EXSTYLE);
     if ((ParentWnd = 0) or (ParentWnd = GetDesktopWindow)) and
       ((ExStyle and WS_EX_TOOLWINDOW = 0) or (ExStyle and WS_EX_APPWINDOW <> 0)) and
       (GetWindowText(Wnd, Caption, SizeOf(Caption)) > 0) then
       Begin ...

Hat jemand eine Idee, wie man auch und nur die Programme in der TNA-Bar ermitteln kann?

Gruß aus dem Emsland
max666

[edit=sakura] [delphi]-Tags gesetzt. Mfg, sakura[/edit]