Application.Icon setzen

[freimatz]

Hallo,
also erstmal - ich habe eine Lösung:

Delphi-Quellcode:

procedure DoIcon();
var
  h : hIcon;
begin
  h := LoadIcon(hInstance, 'MAINICON');
  Application.Icon.Handle := h;
  InvalidateRect(Application.Handle, nil, true);
end;

begin
  Application.Title := 'BalBlaBla';
  DoIcon();
  Application.Initialize;
  SplashFormCreate('',false);
  Application.ProcessMessages();
  ...

An sich fehlte gegenüber vorigen Versuchen nur ein "Application.ProcessMessages();"

Zitat von Alallart:

500.000 Zeilen? Respekt. Nur baut man Splash Screens nicht eher beim Start des Programms ein?

Das Einbauen und die zeitliche Abfolge ist nicht unbedingt abhängig. Etliche units haben einen initialization Abschnitt und vor allem bei Fremdkomponenten habe ich da nicht den Überblick.

Zwischen Programmstart und bis das Hauptfenster fertig ist können schon mal 10 Sekunden vergehen.
Application.MainFormOnTaskbar ist von Beginn an False; ob das später noch mal auf True geht habe ich nicht untersucht. Das Hauptfenster setzt später auch nochmal das Icon (je nach Konfiguration unterschiedliche)

Mein Splash ist nicht ausschaltbar; andererseits ist er auch nicht fsStayOnTop so dass man noch was anders tun kann.

Danke für alle Beiträge.