Laden und Speichern von Icons (Icon Parser, für Icon Dateien oder Resourcen)

[MuTzE.Y85]

Ja das stimmt, 1:0 für dich

[Zacherl]

Hatte ganz vergessen die SaveToResource Funktion komplett zu implementieren Leider gibt es momentan ab und zu noch Probleme ein Icon hinzuzufügen, wenn die EXE vorher kein Icon besessen hat. Fals jemand einen Tipp für mich hat, bitte hier posten:
http://www.delphipraxis.net/170834-h...festlegen.html

SaveToResource Funktion vervollständigt

Das Speichern funktioniert nun in den meisten Fällen. Achtung: Hat die neue Icon Resource mehr Einzelbilder, als die ersetzte Resource, können eventuell weitere Einzelbilder überschrieben werden.

FindIconImageIndex hinzugefügt

FindIconImageIndex sucht anhand der übergebenen Maßen (und optional Farbtiefe) den Index des passendsten Einzelbildes heraus

[ringli]

Ich habe mal versucht mit Hilfe der Unit das MAINICON einer bestehenden Delphi Anwendung zu ändern. Dazu habe ich den Beispielcode von Bummi in leicht abgeänderter Form verwendet. Allerdings gelingt es mir nicht das MAINICON zu ändern. Weder mit einer ICO-Datei noch mit einem Icon aus einer anderen Anwendung. Wahrscheinlich sehe ich meinen Fehler nur nicht. Könnte mir jemand auf die Sprünge helfen?

Delphi-Quellcode:

uses
  dxIconUtils;

procedure TForm2.Button1Click(Sender: TObject);
var
 ir:TdxIconResource;
 hModule: THandle;
begin
   ir:=TdxIconResource.Create;
   //ir.CreateIconHandles := true;

   //ir.LoadFromFile('Testicon.ico');

  hModule := LoadLibraryEx('TestPE.exe', 0, LOAD_LIBRARY_AS_DATAFILE);
  if (hModule <> 0) and (hModule <> INVALID_HANDLE_VALUE) then
  try
    ir.LoadFromResource(hModule, 'MAINICON');
  finally
    FreeLibrary(hModule);
  end;

  ir.SaveToResource('AppWithNewIcon.exe', 'MAINICON');

  ShowMessage(IntToStr(ir.ImageCount)); // Anzahl enthaltener Icons wird angezeigt bspw. 9, 10 etc.

  ir.Free;
end;

BTW: Wie kann man bei der Verwendung von IconDLL's etc. die Nummer des zu verwendenen Icons angeben, da hier der Pfad zur Datei ja immer der selbe ist?

[Zacherl]

Könnte es eventuell sein, dass der Windows Icon Cache noch das alte Icon beinhaltet und deshalb keine Änderung sichtbar ist? Der Code sieht eigentlich gut aus. Was sagt denn GetLastError() nach dem Aufruf von SaveToResource()?

Für Icon DLLs oder EXEn mit ordinalen Resourcenbezeichnern, kannst du die entsprechende Nummer einfach in PChar casten: LoadFromResource(hModule, PChar(1337));

[ringli]

Also der Aufruf von GetLastError gibt Fehler 5 (Zugriff verweigert) aus. Die Datei ist aber definitiv nicht im Zugriff. Virenscanner habe ich grade testweise deaktiviert. Das Ergebnis ist dasselbe. Es sei denn Windows hat sich verschluckt. Das werde ich gleich nochmal ausprobieren.

[ringli]

So, ein Neustart von Windows hat nichts gebracht. Den IconCache schliesse ich mal aus, da ich die zu modifizierende Datei nach der Änderung in einem Resourcenviewer öffne um die Änderung zu betrachten.

Ich bin ehrlich gesagt ratlos.

[Zacherl]

Zitat von ringli:

Also der Aufruf von GetLastError gibt Fehler 5 (Zugriff verweigert) aus. Die Datei ist aber definitiv nicht im Zugriff. Virenscanner habe ich grade testweise deaktiviert. Das Ergebnis ist dasselbe. Es sei denn Windows hat sich verschluckt. Das werde ich gleich nochmal ausprobieren.

Schau mal im Debugger per Single Step, an welcher Stelle innerhalb von SaveToResource() der Fehler auftritt. Und nimm vielleicht testweise mal absolute Pfade, statt der Relativen.

[ringli]

Also der Fehler tritt auf beim Aufruf von DeleteExistingIconResource innerhalb der SaveToResource-Funktion. Hilft dir das weiter? Die Pfade sind absolut. Ich habe die nur fürs Forum auf das wesentliche gekürzt.