progressbar, InitUnits, SplashScreen

[Mschmidt]

Hi z'sammen,
Fachfrage an die Fachmänner- und Frauen; wenn man eine Delphi-Anwendung startet wird ja allerhand vor dem eigentlichen Quellcode
durchgeführt. Ich bräuchte ein Denkanstoß wie ich in einem Splashscreen das anzeige,
was die IDE beim starten der App in den Meldungen auch anzeigt. Also welche Lib geladen wird u.s.w.
Hat wer eine Idee? (Lösung nehme ich auch :-) )
Ist da der Ansatz bei _startExe() und InitUnits möglich?

cherio
MSchmidt

[Bummi]

Delphi-Quellcode:

program Project3;

uses
  Forms,Windows,
  Unit5 in 'Unit5.pas' {Form5},
  Unit6 in 'Unit6.pas' {Splash};

{$R *.res}

begin
  Application.Initialize;
  Splash :=Tsplash.Create(Application);
  Splash.Show;
{nur zur Demo hier, kann auch in Deinem Mainform, Datenmodul oder sonstwo passieren
}
  Sleep(2000);
  Splash.Free;



  Application.MainFormOnTaskbar := True;
  Application.CreateForm(TForm5, Form5);
  Application.Run;
end.

[Mschmidt]

das Splashscreen ist nicht das Problem, vielleicht hab ich mich falch ausgedrückt.
Das Problem ist zu erfahren, was die Anwendung eigentlich beim start tut - das will ich
in der Splashscreen anzeigen.
siehe Anlage - das was dort angezeigt wird soll meine Anwendung auch zeigen.
:-mschmidt

[Daniela.S]

Du könntest eine Art Log basteln, so dass du zwischen deinen Funktionen immer wieder den aktuellen Fortschritt in den SplashScreen in eine TStringList schreibst. Anders wird das Delphi wohl auch nicht machen.

Delphi-Quellcode:

  // tu irgendwas 
  ShowProgress( 'es tut irgendwas' );
  // tut schon wieder was
  ShowProgress( 'und schon wieder' );

[Mschmidt]

Zitat:

Zitat von Daniela.S (Beitrag 1042860)

Du könntest eine Art Log basteln, so dass du zwischen deinen Funktionen immer wieder den aktuellen Fortschritt in den SplashScreen in eine TStringList schreibst. Anders wird das Delphi wohl auch nicht machen.

Delphi-Quellcode:

  // tu irgendwas 
  ShowProgress( 'es tut irgendwas' );
  // tut schon wieder was
  ShowProgress( 'und schon wieder' );

nun ja - da ist das Problem - was tut was? Schau dir mal das Log an, was ich oben als Screen gepostet habe. Woher bekomme ich das?
:-mschmidt

[Daniela.S]

Also ich sitz jetzt nicht vor 'nem Windows Computer um nachzusehen, aber vielleicht hilft dir die ToolHelp32 weiter.

Im speziellen:

Delphi-Quellcode:

  CreateToolhelp32Snapshot()
  Process32First()
  Process32Next()
  Module32First()
  Module32Next()
  EnumProcesses()
  EnumProcessModules()
  GetModuleFileNameExA()

[p80286]

Delphi-Quellcode:

begin
  {--- hier werden die Units initialisiert ----------- }
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  {--- hier nach ini-Datei suchen ---------------------}
  Application.Run;
end.

Wenn Du etwas anzeigen willst, dann brauchst Du ein Form, und zu dem Zeitpunkt ist das meiste eigentlich schon gelaufen.
Du könntest natürlich nach einer Ini-Datei suchen,Dich in eine DB einloggen etc.
Das kannst Du dann problemlos ausgeben.

Gruß
K-H

[Mschmidt]

vielen Dank für die antworten. Leider hilft das alles nicht weiter....
ich werde mich mal mit dem ToolHelp32 Api rumärgern. Leider hat das Teil ja keine Callback Routine in die man sich reinhängen könnte,
und ständig Screenshots machen und vergleichen klingt irgentwie durch die brust ins linke Auge :?.
cherio
Mschmidt