Приделать иконку к exe файлу без рессурсов.

Если секция ресурсов не будет выровнена на FileAlign(?) иконка отображаться не будет.
Что такое клей - что-то по типу молебокса?

 

asd
Типа соединение нескольких файлов в один.

 

Ребята подскажите в чем проблемма. Добавляю в файл ехе (который содержит секцию ресурсов) иконку, но она там не отображается. Restorator2006 видно что она вроде-бы как добавилась, но графически тоже не отображается, но физически файл иконки был добавлен в ехе.

вот код на делфи

Код (Text):

1. procedure ExportData(Path, AName: String; Data: TFileStream); overload;
2.   var
3.     hFile: HWND;
4.     Buf: array of Byte;
5.   begin
6.     hFile := BeginUpdateResource(PChar(Path), False);
7.     try
8.       if hFile = 0 then
9.       begin
10.         RaiseLastOSError;
11.       end;
12.       SetLength(Buf, Data.Size);
13.       Data.Position := 0;
14.       Data.Read(Buf[0], Data.Size);
15.       if not UpdateResource(hFile, RT_GROUP_ICON, PChar(AName),
16.         0, @Buf[0], Data.Size) then RaiseLastOSError;
17.       Finalize(Buf);
18.     finally
19.       EndUpdateResource(hFile, False);
20.     end;
21.   end;
22.  
23. procedure TForm1.Button1Click(Sender: TObject);
24. var
25.   DAta :TFileStream;
26. begin
27.   if OpenDialog1.Execute = false then exit;
28.   Data := TFileStream.Create(OpenDialog1.FileName, fmOpenRead);
29.   ExportData('с:\1.EXE', '1', Data);
30.   Data.Free;
31. end;

 

NOT ACCEPTABLE RESOURCE TYPE.