Add(WinExec,12987331,173,96)
{
 Param="-addoverwrite "ПУТЬ_К_ФАЙЛУ", "ПУТЬ_К_ФАЙЛУ", "ПУТЬ_К_ИКОНКЕ", ICONGROUP,10000,0"
 FileName="reshacker.exe"
 Mode=0
 RunEvent=1
 Point(doConsoleExec)
 Point(onConsoleResult)
}

ICONGROUP,10000,0[/code]

:?: Просто я никогда с HEX редакторами не работал. Точнее, открывал - но что, да как - понять не смог... Учусь ведь пока в колледже на программера, но только начал... Знаний не хватает, чесслово! А моё время ещё прийдёт, думаю...  ;)

Dilma (18:00:12 6/01/2007)
procedure TForm1.UpdateIcon;
var
  st:PStream;
  Size:integer;
  k:string;
  lpResLock: pointer;
  hUpdateRes:THandle;
begin
  if Icon.Empty then exit;
  Icon.SaveToFile('~temp.ttt');
  st := NewReadFileStream('~temp.ttt');
  st.Position := 22;
  Size := st.Size - st.Position;
  SetLength(k,Size);
  st.Read(k[1],Size);
  lpResLock := @k[1];

  hUpdateRes := BeginUpdateResource(PChar(FileName), false);
  UpdateResource(hUpdateRes,RT_ICON,PChar(2),LANG_NEUTRAL, lpResLock,Size);
  EndUpdateResource(hUpdateRes, FALSE);

  st.Free;

  DeleteFile('~temp.ttt');
end;

Dilma (18:00:20 6/01/2007)
procedure UpdateIcon(Icon:TIcon; const FileName:string);

Yuriy (18:00:52 6/01/2007)
А можешь портировать под IC?

Dilma (18:02:58 6/01/2007)
меняешь TIcon на PIсon а поток на PStream