hallo,
Ich habe folgendes problem. Die variable
Handle ist als readonly deklariert. Wie kann ich den
handle des icons dem TIcon zuweisen?
Delphi-Quellcode:
Var
w: Integer;
Icon: TIcon;
IcoHandle: HIcon;
Begin
// memchk;
Icon := TIcon.Create;
Try
IcoHandle:= ExtractIcon(hinstance, pchar(paramstr(0)), 0);
Icon.Handle := IcoHandle;
Application.Icon.Assign(Icon);
Finally
Icon.Free;
End;