Icon anderer EXE Datei ändern

[Satyr]

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