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:

//Autostart-Prozedur
procedure Autostart;
var s1,s2: String;
begin
  If FileExists(ExtractFilePath(ParamStr(0)) + 'start.ini') then
    begin
      try
        Ini := TIniFile.Create(ExtractFilePath(ParamStr(0)) + 'start.ini');
        for i := 0 to Anzahl Do
          Dateien.Add(Ini.ReadString('Bilder', 'Bild' + IntToStr(i), ''));
        Zufall := Ini.ReadBool('Optionen', 'Zufall', True);
        If Zufall = True then
          Repeat
            i := Random(Dateien.Count)
          Until
            i <> Ini.ReadInteger('Bilder', 'LetztesBild', 0)
        Else
          i := Ini.ReadInteger('Bilder', 'LetztesBild', 0) + 1;
        SetBackground(Dateien[i]);
        Ini.WriteInteger('Bilder', 'LetztesBild', i);
      finally
        Ini.Free;
      end;
    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:

[Bilder]
Anzahl=2
Bild0=C:\Bilder\1.bmp
Bild1=C:\Bilder\2.bmp
Bild2=C:\Bilder\3.bmp
[Optionen]
Zufall=0					

1:

if Ini.ReadBool('Optionen','Zufall',true) then					

1:

s1 := 'Dies ist die erste Zeile'#13#10'Dies ist die zweite Zeile';					

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

Application.Messagebox(
  pChar('Die Datei mit den Informationen zum automatischen Wechsel ' +
    'beim Windows-Start (start.ini) wurde nicht gefunden.' + #13#10 +
    '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.'),
  'Informationsdatei nicht gefunden',
  MB_OK or MB_ICONERROR);					

1:

MB_OK or MB_ICONERROR