Icon eines Executable ändern?
Verfasst: 02.02.2009 19:05
Hallo,
ich bin z.Z. dabei einen kleinen Icon-Changer zu schreiben. Hier mein derzeitiger Code:
Irgendwie werden die Icon-Files verschmissen. Hinterher zeigt Windows das "Icon-Nicht-Verfügbar"-Icon an:

Res-Hacker vom Nicht veränderten Programm:

Resource Hacker Screen vom veränderten Programm

Die 0 kommt also von meinem Tool
Wie kann ich die Icons richtig austauschen?
//edit: Verwendete PB Version ist 4.30 Vollversion
ich bin z.Z. dabei einen kleinen Icon-Changer zu schreiben. Hier mein derzeitiger Code:
Code: Alles auswählen
Macro MAKEINTRESOURCE(I)
(I)
EndMacro
File$ = OpenFileRequester("","","Executables (*.exe)|*.exe",0)
IconFile$ = OpenFileRequester("","","Icons (*.ico)|*.ico",0)
If IconFile$ <> ""
ReadFile(0,IconFile$)
lof = Lof(0)
imgBuffer = AllocateMemory(lof)
memlen = MemorySize(imgBuffer)
ReadData(0,imgBuffer,memlen)
CloseFile(0)
resHandle = BeginUpdateResource_(File$,#False)
UpdateResource_(resHandle, #RT_GROUP_ICON, MAKEINTRESOURCE(200), #LANG_NEUTRAL, imgBuffer, memlen)
EndUpdateResource_(resHandle,#False)
EndIf

Res-Hacker vom Nicht veränderten Programm:
Resource Hacker Screen vom veränderten Programm

Die 0 kommt also von meinem Tool
Wie kann ich die Icons richtig austauschen?
//edit: Verwendete PB Version ist 4.30 Vollversion