Изменение иконки Exe вне проекта программно

[MoneyCrafter]

Я сдох уже.
Нашел юнит, меняющий иконки для любых Exe, так что просто помогите пожалуйста разобраться что есть ResName
Юнит:

unit Dolphin_Changer_ico;
  
 interface   
  
 uses   
   Windows, Classes, SysUtils, Graphics;   
  
 procedure ChangeIcon(FileName, IconFile, ResName:string);
  
 implementation   
  
 resourcestring   
   SInvalidFileName = 'Invalide filename %s';   
  
 type   
   TNewHeader = record   
     idReserved:WORD;   
     idType:WORD;   
     idCount:WORD;   
   end;   
  
   TResDirHeader = packed record   
     bWidth:Byte;   
     bHeight:Byte;   
     bColorCount:Byte;   
     bReserved:Byte;   
     wPlanes:WORD;   
     wBitCount:WORD;   
     lBytesInRes:Longint;   
   end;   
  
   TIconFileResDirEntry = packed record   
     DirHeader:TResDirHeader;   
     lImageOffset:Longint;   
   end;   
  
   TIconResDirEntry = packed record   
     DirHeader:TResDirHeader;   
     wNameOrdinal:WORD;   
   end;   
  
   PIconResDirGrp = ^TIconResDirGrp;   
   TIconResDirGrp = packed record   
     idHeader:TNewHeader;   
     idEntries:array[0..0] of TIconResDirEntry;   
   end;   
  
   PIconFileResGrp = ^TIconFileResDirGrp;   
   TIconFileResDirGrp = packed record   
     idHeader:TNewHeader;   
     idEntries:array[0..0] of TIconFileResDirEntry;   
   end;   
  
   TBeginUpdateRes=function(pFileName: PChar; bDeleteExistingResources: BOOL): THandle; stdcall;   
  
   TUpdateRes=function(hUpdate: THandle; lpType, lpName: PChar;   
                wLanguage: Word; lpData: Pointer; cbData: DWORD): BOOL; stdcall;   
  
   TEndUpdateRes=function(hUpdate: THandle; fDiscard: BOOL): BOOL; stdcall;   
  
 function MakeLangID:WORD;   
 begin   
   Result:=(SUBLANG_ENGLISH_US shl 10) or LANG_ENGLISH;   
 end;   
  
 procedure CheckFileName(Value:string);   
 var
   a, b: boolean;
 begin
   a := Trim(Value) = EmptyStr;
   b := not FileExists(Value);
   if a or b then
     raise Exception.Create(Format(SInvalidFileName, [Value]));
 end;   
  
 procedure ChangeIcon(FileName, IconFile, ResName:string);   
 var   
   I:Integer;   
   Group:Pointer;   
  
   Header:TNewHeader;   
   FileGrp:PIconFileResGrp;   
   IconGrp:PIconResDirGrp;   
   IconGrpSize,   
   FileGrpSize:Integer;   
  
   Icon:TIcon;   
   Stream:TMemoryStream;   
   hUpdateRes:THandle;   
 begin   
   CheckFileName(FileName);   
   hUpdateRes:=BeginUpdateResource(PChar(FileName), False);   
   Win32Check(hUpdateRes <> 0);   
   CheckFileName(IconFile);   
   Icon:=TIcon.Create;   
   Icon.LoadFromFile(IconFile);   
   Stream:=TMemoryStream.Create;   
   try   
     Icon.SaveToStream(Stream);   
   finally   
     Icon.Free;   
   end;   
   Stream.Position:=0;   
   Stream.Read(Header, SizeOf(Header));   
   FileGrpSize := SizeOf(TIconFileResDirGrp) + (Header.idCount - 1) * SizeOf(TIconFileResDirEntry);   
   IconGrpSize := SizeOf(TIconResDirGrp) + (Header.idCount - 1) * SizeOf(TIconResDirEntry);   
   GetMem(FileGrp, FileGrpSize);GetMem(IconGrp, IconGrpSize);   
   Stream.Position:=0;   
   Stream.Read(FileGrp^, FileGrpSize);//loading icongroup   
   Group:=nil;   
   try   
     for I:=0 to FileGrp^.idHeader.idCount - 1 do //building icongroup from loaded entries   
     begin   
       with IconGrp^ do   
       begin   
         idHeader:=FileGrp^.idHeader;   
         idEntries[I].DirHeader:=FileGrp^.idEntries[I].DirHeader;   
         idEntries[I].wNameOrdinal:=I;//fixing Ordinals   
       end;   
       with FileGrp^.idEntries[I] do   
       begin   
         Stream.Seek(lImageOffset, soFromBeginning);   
         ReallocMem(Group, DirHeader.lBytesInRes);   
         Stream.Read(Group^, DirHeader.lBytesInRes);   
         Win32Check(UpdateResource(hUpdateRes,RT_ICON,PChar(MakeIntResource(I)),   
                             MakeLangID, Group, DirHeader.lBytesInRes));   
       end;   
     end;//for   
     Win32Check(UpdateResource(hUpdateRes,RT_GROUP_ICON, PChar(ResName),   
                    MakeLangID, IconGrp, IconGrpSize));//adding the icongroup   
     Win32Check(EndUpdateResource(hUpdateRes, False));   
     finally   
       Stream.Free;   
       FreeMem(FileGrp);   
       FreeMem(IconGrp);   
       FreeMem(Group);   
     end;   
 end;   
  
 var   
   BeginUpdateRes:TBeginUpdateRes;   
   UpdateRes:TUpdateRes;   
   EndUpdateRes:TEndUpdateRes;   
  
 procedure GetFunctions(hLib:HMODULE);   
 begin   
   @BeginUpdateRes:=GetProcAddress(hLib,'BeginUpdateResourceA');   
   @UpdateRes:=GetProcAddress(hLib,'UpdateResourceA');   
   @EndUpdateRes:=GetProcAddress(hLib,'EndUpdateResourceA');   
 end;   
  
 end.

Юзаю

ChangeIcon('Пррррога.exe', 'Иконка.ico', 'Непонятный параметр')

[Alex11223]

Имя ресурса иконки (в ехе).

https://msdn.microsoft.com/en-us/lib...(v=vs.85).aspx

Можно посмотреть чем-нибудь типа Resource Hacker

Если неизвестно (ехе не один), то наверно можно получить имена (для типа иконок) с помощью EnumResourceNames https://msdn.microsoft.com/en-us/lib...(v=vs.85).aspx

[MoneyCrafter]

Alex11223, не работает (у мя называется MAINICON), пишет code 87 'параметр задан неверно'