Stehe grad uffn schlauch, hab mal bissle durchgetest aber nie funzte es, zu testzwecken behalte ich nun das auflisten der Klassen bei und baue Vorher nur eben eine Abfrage rein.
Ist es ein falscher Weg wenn ich einfach nur Frage
wenn classname gleich diesen Ausdruck hat dann adde den Klassennamen
?!?
Delphi-Quellcode:
function EnumWindowsProc(wHandle: HWND; lb: TListBox): Bool; stdcall; export;
var
ClassName: array[0..255] of char;
ClassName_gesucht: array[0..255] of char;
begin
GetClassName(wHandle, ClassName, SizeOf(ClassName)); // Klassenname ermitteln
ClassName_gesucht:= 'wxWindowClassNR';
if Classname = ClassName_gesucht then
lb.Items.Add(string(ClassName));
end;
procedure TForm1.Label1Click(Sender: TObject);
begin
EnumWindows(@EnumWindowsProc, Integer(Listbox1));
end;