EnumWindowsProc -> EAccessError, OutOfResources

[Jonas]

Ähm, naja ich benutz ja keine Listbox. Ich erstelle die Labels und Images ja direkt aus WindowList ohne vorher 'ne Listbox zu benutzten.

Delphi-Quellcode:

procedure TForm2.Tasks();
var
i: Integer;
begin
  SetLength(WindowList, 0);

  EnumWindows(@EnumWindowsProc, Integer(@WindowList));

  if oldCount <> high(WindowList) then begin

    oldCount := high(WindowList);
    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 := Low(WindowList) To High(WindowList) Do
begin
taskhandle[i]:= WindowList[I].Handle;
end;

For i := Low(WindowList) To High(WindowList) Do
begin
task[i]:= TImageEx.Create(nil);

Komischerweise meckert er erst wenn ich das 2. Fenster schließe.


Außerdem hab ich noch ne Frage. Wie unterscheidet sich For i := Low(WindowList) To High(WindowList) Do genau von for i := 0 to Length(WindowList) - 1 do ?