Arquivo de recursos

08/12/2003

1

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!


Responder
×
+1 DevUP
Acesso diário, +1 DevUP
Parabéns, você está investindo na sua carreira