Huhu,
Delphi und ich, wir haben mal wieder keine gute Arbeitsbeziehung...
Ich möchte das Icon von einem anderen Programm ändern. Es läuft zu dem Zeitpunkt nicht und ist nicht anderweitig geblockt.
Teilweise funktioniert es. Es werden fast alle Icons im Ressource ersetzt. Bis auf eins. Ausgerechnet das Icon, welches im Explorer bzw. Desktop (dort liegt die EXE an der ich teste) wird nicht verändert. Und ich verstehe nicht wieso. Hier mein Code:
Delphi-Quellcode:
var hExe, hRes, hResLoad, hUpdateRes : THandle;
lpResLock : Pointer;
dlg: TOpenDialog;
IconFile:string;
begin
dlg := TOpenDialog.Create(self);
with dlg do
begin
Title := 'Open Icon';
Filter := DialogFilters[2];
if Execute then
begin
IconFile := FileName;
end;
dlg.Free;
end;
hExe:=LoadLibrary(PWideChar(lzResDataFile));
hRes:=FindResource(hExe,MAKEINTRESOURCE(#105),RT_ICON);
hResLoad:=LoadResource(hExe, hRes);
lpResLock:=LockResource(hResLoad);
hUpdateRes := BeginUpdateResource(PWideChar(IconFile), FALSE);
UpdateResource(hUpdateRes, RT_ICON, MAKEINTRESOURCE(105), LANG_NEUTRAL, lpResLock, SizeOfResource(hExe,hRes));
UpdateResource(hUpdateRes, RT_GROUP_ICON, MAKEINTRESOURCE(2057), LANG_NEUTRAL, lpResLock, SizeOfResource(hExe,hRes));
UpdateResource(hUpdateRes, RT_ICON, 'MAINICON', LANG_NEUTRAL, lpResLock, SizeOfResource(hExe,hRes));
EndUpdateResource(hUpdateRes, False);
2057 ist die ID des Icons das nicht geändert wird. Ich habe es auf verschiedenem Weg versucht, deshalb mehrere UpdateResource Einträge. Wie gesagt, bei allen Icons klappt es außer dem einen...
Gruß,
Andreas