Thema: Delphi EXE Icon austauschen

Einzelnen Beitrag anzeigen

Benutzerbild von Garfield
Garfield

Registriert seit: 9. Jul 2004
Ort: Aken (Anhalt-Bitterfeld)
1.334 Beiträge
 
Delphi XE5 Professional
 
#8

Re: EXE Icon austauschen

  Alt 27. Feb 2008, 16:50
Zitat von toms:
Der Code scheint auch nicht zu funktionieren. (d.h das Exe Icon wird nicht ausgetauscht)
Getestet unter XP.
Ich hatte mir den Quelltext bisher nicht angesehen. Jetzt habe ich festgestellt, dass er funktioniert. Allerdings wird das Icon nur extrahiert.

Auch die oben gepostete Function UpdateExeIcon funktioniert. Ein Fehler liegt im Aufruf:
Zitat von API:
UpdateExeIcon('Project1.exe', 'MainIcon', 'red.ico', makelangid(LANG_German, SUBLANG_GERMAN));
'MainIcon' muss 'MAINICON' geschrieben werden. Ein weiterer Fehler könnte in der Madres.pas liegen. Denn ob es funktioniert oder nicht ist von der Sprache abhängig. LANG_GERMAN und SUBLANG_GERMAN bzw SUBLANG_DEFAULT funktionieren nicht. Aber das von Ciuly verwendete LANG_ROMANIAN, SUBLANG_DEFAULT.
Gruss Garfield
Ubuntu 22.04: Laz2.2.2/FPC3.2.2 - VirtBox6.1+W10: D7PE, DXE5Prof
  Mit Zitat antworten Zitat