Einzelnen Beitrag anzeigen

max666

Registriert seit: 21. Dez 2003
50 Beiträge
 
#1

TNA-Programme, zur weiteren Bearbeitung, ermitteln?

  Alt 3. Jan 2004, 10:03
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]
  Mit Zitat antworten Zitat