resource update

[Premutos]

Zitat von marabu:

Der Name der Resource muss bei einem Delphi-Programm MAINICON sein, der Typ ist ICON.

Grüße vom marabu

ja genau das mein ich, und wie genau kan ich das einbinden?
>> wenn ich mit dem og. programm die resourvcen auflisten lasse erecheint ist das icon leer, woran liegt das?

Code:

procedure TForm1.Button1Click(Sender: TObject);
var Ico: TIcon;
    Stream : TMemoryStream;
    hInst: THandle;
    ptr : Pointer;
begin
  Ico:=TIcon.Create;
  Ico.LoadFromFile('c:\test.ico');

  Stream := TMemoryStream.Create;
  Ico.SaveToStream(Stream);
  Ico.Free;
  getmem (ptr, Stream.size + 1);
  try
    Stream.Seek(soFromBeginning, 0);
    Stream.read(ptr^, Stream.size);
    hInst:=BeginUpdateResource(Pchar('C:\argh.exe'), False);
    if hInst > 0 then
    begin
      UpdateResource(hInst, RT_GROUP_ICON, 'MAINICON', 1031, ptr, Stream.size);
      EndUpdateResource(hInst, False);
      end;
  finally
    freemem (ptr, Stream.size + 1);
    stream.Free;
  end;

end;

Zitat:

schon mal was von satzzeichen gehört ?
wenn das prog kein icon hat, kannst du auch keines "reinhacken"

natürlich kann man das... das icon ist auch nur eine resource => {$R *.dfm}, glaubst du ich hab umsonst extra oben die genauen schritte hingeschrieben um es einzubinden mittels "reshacker"