IDE Experte - Ist die IDE vollständig geladen?

[FriFra]

Ja, so mache ich es jetzt

Ich starte jetzt einfach einen Timer, der alle 1000ms prüft ob Delphi bereit ist und dann ggf. loslegt

Delphi-Quellcode:

procedure TQuote.TimerRunTimer(Sender: TObject);
  function IdeReady: boolean;
  var
    wnd: HWND;
  begin
    Result := False;

    { Prüfen ob IDE geladen ist }
    wnd := FindWindow('TAppBuilder', nil);
    Result := wnd <> 0;

    { Prüfen ob SplashScreen noch angezeigt wird }
    wnd := FindWindow('TForm', 'SplashScreen');
    Result := wnd = 0;
  end;

  ...

var
  ...
begin
  TimerRun.Enabled := False;
  if IdeReady = True then
  begin

    //Hier gehts weiter
    ...

  end
  else
    TimerRun.Enabled := True;
end;

Das Endergebnis gibts > HIER <