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

procedure TForm1.FormCreate(Sender: TObject);
begin
  //Autostart
  If ParamStr(1) = '/autostart' then
    Autostart
  Else
...					

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:
39:
40:
41:
42:
43:
44:

//Autostart-Prozedur
procedure Autostart;
var s1,s2: String;
    Dateien: TStringList;
begin
  If FileExists(ExtractFilePath(ParamStr(0)) + 'start.ini') then
    begin
      Form6.Show;
      Ini := TIniFile.Create(ExtractFilePath(ParamStr(0)) + 'start.ini');
      Dateien := TStringList.Create;
      try
        Anzahl := Ini.ReadInteger('Bilder', 'Anzahl', 0);
        for i := 0 to Anzahl Do
          Dateien.Add(Ini.ReadString('Bilder', 'Bild' + IntToStr(i), ''));
        If Ini.ReadBool('Optionen', 'Zufall', True) then
          Repeat
            i := Random(Dateien.Count)
          Until
            i <> Ini.ReadInteger('Bilder', 'LetztesBild', -1)
        Else
          i := Ini.ReadInteger('Bilder', 'LetztesBild', -1) + 1;
        If i > Anzahl then
          begin
            Ini.WriteInteger('Bilder', 'LetztesBild', -1);
            i := 0;
          end;
        SetBackground(Dateien.Strings[i]);
        Ini.WriteInteger('Bilder', 'LetztesBild', i);
      finally
        Ini.Free;
        Dateien.Free;
      end;
      Sleep(1500);
      Form6.Hide;
      Application.Terminate;
    end
  Else
    begin
      s1 := 'Die Datei mit den Informationen zum automatischen Wechsel beim Windows-Start (start.ini) wurde nicht gefunden.';
      s2 := 'Bitte stellen Sie sicher, dass die Datei im Stammverzeichnis von AutoHG ist oder führen Sie die entsprechenden Einstellungen in AutoHG erneut aus um die Datei durch AutoHG erstellen zu lassen.';
      Application.Messagebox(PChar(s1 + #13 + #13 + s2), 'Informationsdatei nicht gefunden', 0+16);
      Application.Terminate;
    end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

var
  Form1: TForm1;
  Ini: TIniFile;
  SpeichernOK, i, Anzahl, Fehlerzahl, Intervall1, Intervall2, Counter, PreCounter, Ende, Zeilen: Integer;
  s, Hauptfehler, Beschreibung, Datei, Benutzer: String;
  Assistent, Gespeichert: Boolean;
  Merlin: IAgentCtlCharacter;
  mHandle: THandle;
  TrayIcon: TIcon;
  Bild: TBitmap;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

begin
  Application.Initialize;
  Application.Title := 'AutoHG';
  Application.CreateForm(TInfoDlg, InfoDlg);
  Application.CreateForm(TForm3, Form3);
  Application.CreateForm(TForm4, Form4);
  Application.CreateForm(TForm5, Form5);
  Application.CreateForm(TForm6, Form6);
  Application.CreateForm(TForm1, Form1);
  Application.CreateForm(TForm7, Form7);
  Application.CreateForm(TForm8, Form8);
  Application.Run;
end.