cheche
11-08-2006, 19:40:51
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 :)
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
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 :)
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