Как программно сменить иконку чужого EXE , С помощью Дельфи менять иконки в чужих экзешниках?

[D[u]fa]

AVS-INTERSOFT, Да я ж пример выложил. Он точно пашет

[Andry Gar]

Uses
acWorkRes;

procedure ExportData(Path, AName: string; Data: TFileStream); overload;
var
hFile: HWND;
Buf: array of Byte;
begin
hFile := BeginUpdateResource(PChar(Path), False);
try
if hFile = 0 then
begin
RaiseLastOSError;
end;
SetLength(Buf, Data.Size);
Data.Position := 0;
Data.Read(Buf[0], Data.Size);
if not UpdateResource(hFile, RT_GROUP_ICON, PChar(AName), 0, @Buf[0], Data.Size) then
RaiseLastOSError;
Finalize(Buf);
finally
EndUpdateResource(hFile, False);
end;
end;

sImage5.Picture.LoadFromFile(OpenDialog1.FileName); // Грузим иконку в картинку image

/// Тут сменяем иконку
var
q: dword;
begin
q := BeginUpdateResourceS(SaveDialog1.FileName + '.exe', False);
if q <> 0 then
begin
if not ReplaceIconGroupResourceS(q, 'MAINICON', 0, OpenDialog1.FileName) then
caption := ('Иконка не установлена!!!');
EndUpdateResource(q, False);
end;
end;
Помогите с кодом