Hola... a todos...
Mi problema es que quiero cambiar el icono de una aplicacion escrita en delphi y busque, y busque y econtre el siguiente codigo. pero en realidad no me ha funcionado (algo esoty haciendo mal) , puedo cambiar otros recursos pero el icono de una aplicacion no.. les agradecerias sus ideas
Código Delphi
[-]
procedure TForm1.Button7Click(Sender: TObject);
var Ico: TIcon;
Stream : TMemoryStream;
hInst: THandle;
ptr : Pointer;
begin
Ico:=TIcon.Create;
Ico.LoadFromFile('c:\icon.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:\MeineExe.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;
Camibiar icono de un exe desde delphi
Camibiar icono de un ejecutable desde delphi
remplazar icono de un exe desde delphi