Ich habe jetzt folgenden Code
Delphi-Quellcode:
Procedure TForm1.Button1Click(Sender: TObject);
Begin
OriginParent := Windows.GetParent(d);
Windows.SetParent(d, 0);
End;
Procedure TForm1.Button2Click(Sender: TObject);
Begin
Windows.SetParent(d, OriginParent);
End;
procedure TForm1.FormCreate(Sender: TObject);
begin
a := FindWindow('Shell_TrayWnd', nil);
b := FindWindowEx(a, 0, 'TrayNotifyWnd', nil);
c:=FindWindowEx(b, 0, 'Syspager', nil);
d:=FindWindowEx(c, 0, 'ToolbarWindow32', 'Infobereich');
end;
und irgendwie klappt es immernoch nicht, obwohl er ein gültiges
Handle liefert. Hm vielleicht sollte ich mich nochmal genauer mit Handles beschäftigen... was ist denn dein
Handle-Suchcode?