Programmicon abfragen

[DieDolly]

In den Projektoptionen kann man ein Icon festlegen. Bei mir ist es ein 256 px großes ICO.
Wie bekomme ich dieses Icon in ein Image? Application.Icon gibt mir leider nur ein 16x16px kleines Bildchen zurück.

[KodeZwerg]

Wenn es als Resource in dieser Dimension abgelegt ist, könntest Du es als Resource reinladen.
Alternativ, schnell mal das hier probieren:

Delphi-Quellcode:

Image1.Picture.Icon.Handle := ExtractIcon( hInstance, PWideChar( ParamStr( 0 ) ), Cardinal( 0 ) );

Ps: Ich glaube dann sollte im Image1 bei diesem Aufruf bereits ein Icon existiert haben... weiß grad nicht 100%

[DieDolly]

Als Resource möchte ich es nicht einbinden denn dann hätte ich doppelte Arbeit wenn ich das Icon wechsle.

[KodeZwerg]

Betrachte bitte Deine .exe mit einem Resource Editor Deiner Wahl.
Programmicons sind dort hinterlegt, ob Du möchtest wird nicht gefragt, so ist es eben.
Mit der ExtractIcon() Methode kannst Du mit dem Cardinal() steuern welchen IconIndex Du abfragen möchtest.

Hast Du es überhaupt probiert?

[Uwe Raabe]

Zitat:

Zitat von DieDolly (Beitrag 1417840)

Als Resource möchte ich es nicht einbinden denn dann hätte ich doppelte Arbeit wenn ich das Icon wechsle.

Wenn es in den Projekt-Optionen als Icon angegeben ist, dann wird es automatisch als Resource "MAINICON" eingebunden. Mit folgendem Code kannst du das in der passenden Größe abrufen:

Delphi-Quellcode:

  Image1.Picture.Icon.Handle := LoadImage(HInstance, 'MAINICON', IMAGE_ICON, 256, 256, 0);

[DieDolly]

Zitat:

ob Du möchtest wird nicht gefragt, so ist es eben.

Ich dachte du meinst eine extra angefertigte Resourcedatei. Dass in der Exe selber noch eine ist, habe ich total vergessen.

[KodeZwerg]

Zitat:

Zitat von Uwe Raabe (Beitrag 1417842)

Delphi-Quellcode:

  Image1.Picture.Icon.Handle := LoadImage(HInstance, 'MAINICON', IMAGE_ICON, 256, 256, 0);

Sehr gut, gegenüber dem hier, bei LoadImage() nimmt der tatsächlich bevorzugt die Größe die man eintippt.

Delphi-Quellcode:

Application.Icon.Handle := LoadIcon( hInstance, MAKEINTRESOURCE( 'MAINICON' ) );