also bei mir gehts ohne problem. Natürlich bekomm ich nur Icons von Fenstern die ein Icon haben. Also von Panels etc. bekomm ich kein Icon aber von anderen Fenstern schon...
Delphi-Quellcode:
LIconHandle := SendMessage(TheWindowHandle, WM_GETICON, ICON_BIG, 0);
if LIconHandle = 0 then
ImgIcon.Picture.Graphic := nil
else begin
LIcon := TIcon.Create;
LIcon.Handle := LIconHandle;
ImgIcon.Picture.Graphic := LIcon;
LIcon.Free;
end;
allerdings sollte man dabei beachten das die Abfrage von ICON_BIG 0 sein kann aber von ICON_SMALL2 hingegen ein gültiges
handle hat. Also am besten wenn beim ersten aufruf nix zurück kommt noch die anderen icongrößen abfragen in der Hoffnung das dafür ein
Handle hinterlegt ist.