1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:

program DeckButler;

uses
  Forms,
  DeckButler_Unit in 'DeckButler_Unit.pas' {Form1},
  MutexConfig in 'MutexConfig.pas',
  Sammlungen_Unit in 'Sammlungen_Unit.pas' {Form2},
  Splash_Unit in 'DB-Bilder\Splash_Unit.pas' {SplashForm};

{$R *.res}

begin

  /// SplashScreen erstellen
  SplashForm:=TSplashForm.Create(Application);

  Try
  /// SplashScreen anzeigen
  SplashForm.Show;
  SplashForm.Update;

  Application.Initialize;
  Application.Title := 'DeckButler 2.0 BETA';
  Application.HelpFile := 'D:\Alex\Delphi\Neue Projekte\DeckButler\DeckButler.chm';
  Application.CreateForm(TForm1, Form1);
  Application.CreateForm(TForm2, Form2);


  /// SplashScreen ausblenden
  If SplashForm.ProgressBar1.Position=100
  Then SplashForm.Hide;

  Finally
  /// SplashScreen freigeben
  SplashForm.Free;
  End;
  Application.Run;
end.					

1:

Application.HelpFile := 'D:\Alex\Delphi\Neue Projekte\DeckButler\DeckButler.chm';					

1:
2:

Application.HelpFile := ExtractFilePath(ParamStr(0)) + 'DeckButler.chm';
//nimmt den Ordner, in dem sich die .exe befindet und wählt darin eine Datei namens 'DeckButler.chm' als HelpFile aus					

1:
2:
3:
4:
5:
6:

macheinbissel;
SplashScreen.Label1.Caption := 'Ein bissel was getan...';
Machnocheinbissel;
SplashScreen.Label1.Caption := 'Noch ein bissel was getan...';
Machnochmehr;
SplashScreen.Label1.Caption := 'Fast fertig...';