Arquivo de recursos
08/12/2003
0
Alguém sabe como alterar o icone padrão do executável do delphi
usando um arquivo de recurso? Já tentei fazendo isto aqui, mas acho que não aconteceu absolutamente nada, isto é, o aplicativo foi compilado mas o ícone não mudou, continua com aquele ´relâmpago amarelo e verde´ chato!
Vejam:
ARQUIVO DE RECURSO (Samples.rc)
Myicon ICON ´sample.ico´
Código para usá-lo:
Adicionei isto {$R Samples.res} e usei assim:
procedure TForm1.FormCreate(Sender: TObject);
var
icon : TIcon;
begin
icon:= TIcon.Create;
try
icon.Handle := LoadIcon(hInstance,´Myicon´);
finally
icon.Free;
end;
end;
Eu sei que isto é possível fazendo diretamente assim:
Menu Project/Options/Application/Load Icon...
Mas não é assim que eu quero! Eu quero fazer usando um arquivo de recurso, como já falei. Vou compilar em linha de comando usando um arquivo de lote (.bat). Gostaria de saber o que está errado neste código, se alguém puder ajudar agradeço!
usando um arquivo de recurso? Já tentei fazendo isto aqui, mas acho que não aconteceu absolutamente nada, isto é, o aplicativo foi compilado mas o ícone não mudou, continua com aquele ´relâmpago amarelo e verde´ chato!
Vejam:
ARQUIVO DE RECURSO (Samples.rc)
Myicon ICON ´sample.ico´
Código para usá-lo:
Adicionei isto {$R Samples.res} e usei assim:
procedure TForm1.FormCreate(Sender: TObject);
var
icon : TIcon;
begin
icon:= TIcon.Create;
try
icon.Handle := LoadIcon(hInstance,´Myicon´);
finally
icon.Free;
end;
end;
Eu sei que isto é possível fazendo diretamente assim:
Menu Project/Options/Application/Load Icon...
Mas não é assim que eu quero! Eu quero fazer usando um arquivo de recurso, como já falei. Vou compilar em linha de comando usando um arquivo de lote (.bat). Gostaria de saber o que está errado neste código, se alguém puder ajudar agradeço!
Ginosam
Curtir tópico
+ 0
Responder
Clique aqui para fazer login e interagir na Comunidade :)