IconHandle von Icon Datei

[EWeiss]

Zitat:

Geht's denn beim ersten Aufruf von ExtractIconEx um die Ermittlung der Anzahl von Icons? Dann solltest du keinen Parameter für ein HICON übergeben.

Nein.. Es wird ein Icon für das Menu übergeben.. diese sind unterschiedlich.. hänge gleich mal einen Shot an.
Sorry ja dann dürfte das ausreichen oder?
If ExtractIconEx(AFileName, -1, HICON(nil^), HICON(nil^), 0) <> 0 then

Zitat:

ReportMemoryLeaksOnShutdown meldet nicht freigegebene Icons eben nicht, wie ich selber schon in einem ähnlichen Zusammenhang festgestellt habe.

Ja das war mein Problem habe nicht bedacht das ich so wie du bemerkt hast 2 Icons extrahiere.
Aber! Seltsam ist das schon denn die Icons liegen nur im Format 16x16 vor direkt von einem Icon File nicht aus einer EXE-Datei!
Habe auch im Taskmanager nicht feststellen können das sich der Speicher erhöht der blieb immer konstant.

Also das LDummy hätte eigentlich gar kein Icon ausgeben dürfen.
Weil kein Large Icon in der Icon Datei existiert.

Diese Icons werden addiert + die Icons für die Pfeile.
Danke nochmal für deine Hilfe.

Wenn ein Icon übergeben wird, wird dieses als Overlay auf den Button gezeichnet.

Delphi-Quellcode:

  if ImageIconPath <> '' then
   begin
     FIcon[ButtonCount].ImageIcon := GetHIconFromFile(ImageIconPath, true);
     if (FIcon[ButtonCount].ImageIcon <> 0) then
       btnMenu[ButtonCount].ImageDrop(HButton, FIcon[ButtonCount], X, Y, W, H);
   end;

und später mit
btnMenu[IntI].ImageDropRemove(btnMenu[IntI].Handle);

gelöscht..

gruss

[Dalai]

Zitat von EWeiss:

Nein.. Es wird ein Icon für das Menu übergeben.. diese sind unterschiedlich.. hänge gleich mal einen Shot an.

Die Intention der Funktion GetHIcon insgesamt ist mir schon klar. Es ging mir nur um den darin enthaltenen Aufruf if ExtractIconEx(..., -1, ...) <> 0 . Das eigentliche Extrahieren der Icons erfolgt ja erst danach in einem weiteren Aufruf von ExtractIconEx (sofern der erste Aufruf klappte).

Anders ausgedrückt: Sofern das erste ExtractIconEx klappt, rufst du es danach nochmals auf. Wenn man die Doku zu ExtractIconEx ganz genau nimmt, holen beide Aufrufe (der mit -1 als Index und der mit dem eigentlichen Index) jeweils ein Icon:

Zitat:

nIconIndex
If this value is a negative number and either phiconLarge or phiconSmall is not NULL, the function begins by extracting the icon whose resource identifier is equal to the absolute value of nIconIndex.

Leider ist aus der Doku nicht ersichtlich, ob auch ein Icon geholt wird, wenn man ExtractIconEx(AFileName, -1, Result, HICON(nil^), 0) ruft, also nIconIndex=-1 und nIcons=0, aber trotzdem ein Ziel (hier Result) angegeben wurde.

Zitat:

Habe auch im Taskmanager nicht feststellen können das sich der Speicher erhöht der blieb immer konstant.

Schau lieber auf die Anzahl der Handles, ggf. im Process Explorer bzw. Process Hacker.

Zitat:

Danke nochmal für deine Hilfe.

Keine Ursache. Ich wusste nur deshalb um das Problem, weil ich es selbst schon hatte .

Grüße
Dalai

[EWeiss]

Zitat:

Die Intention der Funktion GetHIcon insgesamt ist mir schon klar. Es ging mir nur um den darin enthaltenen Aufruf if ExtractIconEx(..., -1, ...) <> 0. Das eigentliche Extrahieren der Icons erfolgt ja erst danach in einem weiteren Aufruf von ExtractIconEx (sofern der erste Aufruf klappte).

Sorry hatte dich nicht richtig verstanden habe es oben editiert.. aber hier nochmal..
If ExtractIconEx(AFileName, -1, HICON(nil^), HICON(nil^), 0) <> 0 then

oder besser so!
If ExtractIconEx(AFileName, -1, -1, -1) <> 0 then



gruss

[Dalai]

Zitat von EWeiss:

Sorry hatte dich nicht richtig verstanden habe es oben editiert.. aber hier nochmal..
If ExtractIconEx(AFileName, -1, HICON(nil^), HICON(nil^), 0) <> 0 then

Ja, so meinte ich das.

Zitat:

oder besser so!
If ExtractIconEx(AFileName, -1, -1, -1) <> 0 then

Keine Ahnung, was dann passiert. Deutet die API die HICON-Parameter dann als NULL? Wäre ich mir nicht sicher genug, um es so zu benutzen.

Grüße
Dalai

[EWeiss]

Zitat:

Keine Ahnung, was dann passiert. Deutet die API die HICON-Parameter dann als NULL? Wäre ich mir nicht sicher genug, um es so zu benutzen.

Ich mache es wie im ersten Beispiel dann bin ich auf der sicheren Seite. Danke!

gruss

[Dalai]

Mir fällt gerade ein, dass es wohl gar nicht geht, eine Konstante (hier -1) als var -Parameter zu übergeben. Und die beiden HICON-Parameter von ExtractIconEx sind im Delphi als var deklariert. D.h. der Compiler müsste meckern, wenn 3x -1 übergeben wird.

Grüße
Dalai

[EWeiss]

Zitat von Dalai:

Mir fällt gerade ein, dass es wohl gar nicht geht, eine Konstante (hier -1) als var -Parameter zu übergeben. Und die beiden HICON-Parameter von ExtractIconEx sind im Delphi als var deklariert. D.h. der Compiler müsste meckern, wenn 3x -1 übergeben wird.

Grüße
Dalai

JO denke ich auch war auch nur getippt und nicht getestet..

gruss