Icon anderer EXE Datei ändern

[Satyr]

Zugegebenermaßen kenne ich mich nicht gut aus, mit Fehlerbehandlung.

Ich habe es jetzt mal so versucht:

Delphi-Quellcode:

try
 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);

 except
    on e: Exception do
      ShowMessage(e.Message);
end ;

Eine Exception wird mir nicht angezeigt.