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;