Einzelnen Beitrag anzeigen

Tpercon

Registriert seit: 7. Jun 2002
638 Beiträge
 
Delphi 5 Professional
 
#7
  Alt 20. Jun 2003, 14:28
OK, wo ist denn jetzt mein Denkfehler? Dami bekomme ich zu viele Einträge.

Delphi-Quellcode:
var MyHandle: THandle;
begin
MyHandle:=GetWindow(Handle, GW_HWNDFIRST);
If MyHandle > 0
 then
  begin
   postinLV(InttoStr(MyHandle),'Taskleiste');
   while MyHandle > 0 do
    begin
     MyHandle:= GetWindow(MyHandle, GW_HWNDNEXT);
     If (IsWindowVisible(MyHandle))or(IsIconic(MyHandle))
      then postinLV(InttoStr(MyHandle),'Taskleiste');
    end;
  end;
  Mit Zitat antworten Zitat