RIKI_89D1
Registrado: 23 May 2009
Mensajes: 5
|
Publicado: Sab 23 May, 2009 20:36 pm
Título del mensaje: Cambiar exe de ejecutable en delphi |
 |
|
Hola que tal? miren me gustaria saber como puedo cambiar el icono de un programa echo en delphi desde otro programa (por codigo claro)
tengo este codigo:
| Código: |
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;
|
pero nose por k no me va :¿
cuando le doi click el ejecutable se keda en el icono ese cuadrao azul,que es lo que hay mal?
Gracias[/code] |
|
|
|
