EnumWindowsProc -> EAccessError, OutOfResources

[Jonas]

Heya. Ich versuche aus bestimmten Fenstern Buttons zu erstellen, was an sich auch recht gut klappt. Um auch immer die aktuellen Fenster in meinem Pogramm darzustellen, habe ich meine Procedure in einen Timer gegeben. Ich bekomme jedoch sobald man ein neues Fenster öffnet einen EAcessError oder ab und an auch einen OutOfResources. Ich habe bereits des öfteren nach meinem Fehler gesucht, kam auch immer zu einer bestimmten Zeile, welche ich anschließend wegestrichen hab um den kompletten Fehlerhaften Code zu erkennen. Jedoch kam ich schlussendlich nur noch zur Zeile 'application.run' und nun weiss ich irgendwie nicht mehr weiter. Darum wollte ich hier um Hilfe bitten.

Delphi-Quellcode:

procedure TTaskbar.Tasks();
var
i: Integer;

Function EnumWindowsProc(Wnd: THandle): BOOL; StdCall;
Var
  Capt: Array [0..128] of Char;
Begin
  Result:=true;
  If IsWindowVisible(Wnd) and
     ((GetWindowLong(Wnd, GWL_HWNDPARENT)=0) or
      (HWND(GetWindowLong(Wnd, GWL_HWNDPARENT))=GetDesktopWindow)) and
     ((GetWindowLong(Wnd, GWL_EXSTYLE) and WS_EX_TOOLWINDOW)=0)
  then
  begin
    SendMessage(Wnd, WM_GETTEXT, Sizeof(Capt), integer(@Capt));
    //angezeigt bis 13. Buchstabe//
    Capt[13] := Chr( 0 );
    SetLength(FensterInfo, length(FensterInfo)+1);
    inc(lengthvar);
    FensterInfo[High(FensterInfo)].Caption:=Capt;
    FensterInfo[High(FensterInfo)].Handle:=Wnd;
  end;
end;

begin
  SetLength(FensterInfo, 0);
  EnumWindows(@EnumWindowsProc, 0);

  if oldCount <> high(FensterInfo) then begin

    oldCount := high(FensterInfo);
    for i := 0 to high(Blabel) do
    Blabel[i].Free;
    for i := 0 to high(task) do
    task[i].Free;
    for i := 0 to high(taskicon) do
    taskicon[i].Free;



for i := 0 to Length(FensterInfo) - 1 do
begin
taskhandle[i]:= FensterInfo[I].Handle;
end;

for i := 0 to Length(FensterInfo) - 1 do
begin
task[i]:= TImageEx.Create(nil);
with task[i] do
        begin
             Parent := Taskbar;
             Picture.Bitmap.LoadFromResourceName(imageresDLL, 'task_normal');
             Height := 26;
             Width := 100;
             Top := 12;
             Transparent := true;
             Stretch := true;
             if i <> 0
             then Left := (i * 102) + 63
             else Left := (i * 102) + 63;
             Tag := i;
             OnClick := TaskClick;
             OnMouseEnter := TaskOver;
            OnMouseLeave := TaskNormal;
             Show;
             //Repaint
        end;
end;

for i := 0 to Length(FensterInfo) - 1 do
begin
  Blabel[i] := TLabel.Create(nil);
with  Blabel[i] do
        begin
             Parent := Taskbar;
             Enabled := true;
             AutoSize := false;
             Caption := taskpunkt(FensterInfo[i].Caption);
             Height := 27;
             Width := 74;
             Top := 19;
             visible := true;
             Color := clFuchsia;
             ParentColor := False;
             Transparent := True;
             Font.Color := clwhite;
             //OnClick := TaskClick;
             //OnMouseEnter := TaskOver;
             //OnMouseLeave := TaskNormal;
              if i <> 0
             then Left := (i * 102) + 87 // Width * i + (i-2)*Height
             else Left := (i * 102) + 87;
  end;
end;
  end;
end;

Ich bin irgendwie der Meinung, dass der Fehler nicht an der Procedure selbst, sondern eher an der funktion liegt.