EnumWindowsProc -> EAccessError, OutOfResources

[Jonas]

Zitat:

Er sollte meckern, da man keine lokalen Procedure als CallBack Funktionen übergeben darf.

Huh? Das check ich nicht so ganz?


Hier mal meine überarbeitete Version der funktion
 Und er meckert bei dir nicht, da du die Typensicherheit (die Typprüfung würde schliesslich meckern bei lokalen Proceduren als Parameter) mit dem @ Zeichen umgangen hast. Das ist mit mittlerweile klar, nur ohne dieses @ zeichen, also ohne umgehen der Typsicherheit, funktioniert es ja nicht. Ich meine bei

Delphi-Quellcode:

begin
SetLength(Arr, 0);
EnumWindows(@EnumWindowsProc, DWORD(@arr));

@EnumWindowsProc kommt dann nicht genügend wirkliche Parameter und bei @arr ohne @ kann ich es zwar noch kompilieren, werde dann aber direkt in die zeile
    SetLength(arr^, length(arr^)+1); geschmissen, nachdem das Programm noch nichtmals richtig erschienen ist.

Delphi-Quellcode:

 type
   TFensterInfo=record
     Handle: HWND;
     Caption: String;
     Icon: HIcon;
   end;
 FensterInfo= array of TFensterInfo;
 PFensterInfo= ^FensterInfo;

var
  lengthvar: integer = 0;
  oldCount: Integer;

function EnumWindowsProc(Wnd: HWND; lp: LPARAM): BOOL; stdcall;
Var
  Capt: Array [0..128] of Char;
  arr: PFensterInfo;
Begin
  Result:=true;
  arr := PFensterInfo(lp);

  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(arr^, length(arr^)+1);
    inc(lengthvar);
    arr^[High(arr^)].Caption:=Capt;
    arr^[High(arr^)].Handle:=Wnd;
  end;
end;

procedure TForm2.Tasks();
var
i: Integer;
arr: FensterInfo;
begin
SetLength(Arr, 0);
EnumWindows(EnumWindowsProc, DWORD(@arr));
// für den teil siehe oben //
end;