Vom Form Handle zum Icon

[backdraft]

Hallo,

welche Möglichkeit habe ich, wenn ich das Fenster Handle habe, mir das Icon des Fensters in ein TBitmap zu kopieren?

Danke Oliver

[DGL-luke]

Du kommst vom fensterhandle zum prozesshandle, von dem zum modulnamen und damit zum pfad der exe. und aus der kannst du die icons auslesen.

Geht alles mit WinAPI-Funktionen - Frag mich aber nicht, wie die heissen.

[backdraft]

Zitat von DGL-luke:

Du kommst vom fensterhandle zum prozesshandle, von dem zum modulnamen und damit zum pfad der exe. und aus der kannst du die icons auslesen.

Geht alles mit WinAPI-Funktionen - Frag mich aber nicht, wie die heissen.

nicht das Programm Icon, sondern das Icon vom Fenster

[idontwantaname]

ich weiß zwar nicht obs hilft, aber schau dir mal das hier an:
http://msdn.microsoft.com/library/en...eving_property

[backdraft]

Zitat von idontwantaname:

ich weiß zwar nicht obs hilft, aber schau dir mal das hier an:
http://msdn.microsoft.com/library/en...eving_property

Also hab spontan mal
vbitmap.Handle := GetProp(AHandle, 'PROP_ICON'); probiert, liefert aber leider als Handle 0 zurück.

[DGL-luke]

@backdraft: Ich meinte auch das Icon vom Fenster...

[backdraft]

Zitat von DGL-luke:

@backdraft: Ich meinte auch das Icon vom Fenster...

woher weiss ich welches fenster in der exe?
ich muss doch auch irgendwie rankommen, wenn das prog läuft

[backdraft]

Habs gefunden, es geht mit:

vIcon := SendMessage(AHandle, WM_GETICON, ICON_SMALL, 0);

oder

vIcon := SendMessage(AHandle, WM_GETICON, ICON_BIG, 0);

von da aus gehts ja leicht zum Bitmap.

Danke trotzdem

[ghost007]

mal ne blöde frage ...
wie komm ich dann weiter zum bitmap? weil des sendmessage liefert mir doch nur 'nen ... integer?

MfG - Ghost007

[DGL-luke]

Wenn mich nicht alles täuscht, bekommst du das Handle.

Delphi-Quellcode:

with TBitmap.Create do
begin
  Handle := vIcon;
  ...

  Free;
end;