Application.Icon setzen

[Delphi.Narium]

Ungetestet als Idee hingedaddelt:

Delphi-Quellcode:

Icon := TIcon.Create;
st   := TMemoryStream.Create;
try
  SplashForm.cxImageListMainIcon.GetIcon(0, Icon);
  Icon.SaveToStream(st);
  Application.Icon.LoadFromStream(st);
finally
  st.Free;
  Icon.Free;
end;