Du musst den Code schon richtig anwenden.
Was genau möchtest du machen? Ich dachte, diese Datei mit der Symbolgruppe 105 wäre die Quelle, nicht das Ziel.
Delphi-Quellcode:
procedure Test;
var
AGroupIcon: TSmoGroupIcon;
begin
// Hole die Symbolgruppe #105 aus abc.exe
if not GetGroupIcon('abc.exe', MakeIntResource(105), AGroupIcon) then
RaiseLastOSError;
// Speichere die Symbolgruppe in Test.exe unter dem Namen "MAINICON"
if not SetGroupIcon('D:\Test.exe', 'MAINICON', AGroupIcon) then
RaiseLastOSError;
end;