laufende Tasks

[MatthiasW]

ich möchte die Anwendungen (also die die ein sichtbares Fenster haben und im Taskmanager angezeigt werden) ermitteln. Ich habe code hier aus dem Forum um alle Processe zu ermitteln. Aber nach welchen Kriterien kann ich jetzt die Prozesse ausfiltern die im Taskmanager und im zeiten Fall als Symbol im Systray zu sehen sind? Das ganze soll nur unter Windows 2000/XP funzen.

Gibts da ProzessID's die für sichtbare Applicationen/ oder im Systray stehen?

[sniper_w]

Delphi-Quellcode:

function Getwin(Handle: THandle; List: TStringList): boolean; stdcall;
var
  Buffer : array[0..255] of Char;
begin
  //get the window caption
  SendMessage(Handle, WM_GETTEXT, 255, integer(@Buffer[0]));
  List.Add(Buffer);
  //continue enumeration
  Result :=True;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 ListBox1.Clear;
 EnumWindows(@Getwin, LParam(ListBox1.Items));
end;

Ich glaube, das sollte ausreichen. :mrgreen:

[MatthiasW]

durch diese Funktion werden aber nicht nur die Anwendungen aus der Taskbar gefunden sondern auch eine ganze Menge anderer unsichtbarer Fenster.

[sniper_w]

Delphi-Quellcode:

function EnumWinProc(Wnd: THandle; LParam: LongInt): Boolean; stdcall;
var
 WinCaption : string;
 Len: integer;
begin
 Result := True;
 Len := GetWindowTextLength(Wnd);
 SetLength(WinCaption, Len);
 GetWindowText(Wnd, PChar(WinCaption), Len+1);
 if Trim(WinCaption) <> '' then
   Form1.Listbox1.Items.Add(Format('%.6x : %s', [Wnd, WinCaption]));
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  EnumWindows(@EnumWinProc, 0);
end;

Das könnte eine schnelle Lösung sein.

[MatthiasW]

komisch der angegebene Code liefert bei mir das in dem Bild gezeigte Ergebnis. Wieso bekomme ich immer alle Fenster angezeigt

[sniper_w]

Warum alle Fenster?
Alles was ein Handle (typ HWND) und keine leere Caption besizt wird angezeigt, egal sichtbar oder nicht.

Zitat:

The EnumWindows function enumerates all top-level windows on the screen by passing the handle of each window, in turn, to an application-defined callback function. EnumWindows continues until the last top-level window is enumerated or the callback function returns FALSE.

Remarks

The EnumWindows function does not enumerate child windows.

[Sprint]

Zitat:

Zitat von MatthiasW

Wieso bekomme ich immer alle Fenster angezeigt

Weil EnumWindows nun mal alle TopLevel Fenster ermittelt.

[MatthiasW]

ja, aber mit welcher Funktion kann ich nun nur die in der Taskbar sichtbaren Applicationen ermitteln?

[ReDoX]

Wenn ich verstehe was du meinst dann ist das ,dass richtige für dich http://www.swissdelphicenter.com/de/showcode.php?id=485
Mfg ReDoX

[MatthiasW]

Danke für den Link, das ist genau das was ich gesucht habe :-D