if Schleife?

[mirage228]

Der Pfad könnte ggf. falsch sein, verwende "IncludeTrailingPathDelimiter". Weiterhin solltest Du eher auf firststart = 1 prüfen. Die Abfrage nach der Musik soll ja beim ersten Start kommen

Delphi-Quellcode:

  Ini := TIniFile.Create(IncludeTrailingPathDelimiter(Self.programmdirectory.Caption) + '..\game.ini');
  try
    Ausgelesen := Ini.ReadString('Global', 'LangFile', ''); // 1
    stream := Ini.ReadString('Global', 'Stream', '');
    music := Ini.ReadInteger('Global', 'Music', 0);
    slot := Ini.ReadString('Global', 'Slot', '');
    musik := Ini.ReadString('Global', 'Musik', '');
    firststart := Ini.ReadInteger('Global', 'firststart', 0);

    Self.Caption := IntToStr(firststart);
    if (firststart = 1) then
    begin
      if MessageDlg('Do you want to play Backgroundmusic ?', mtConfirmation,
        [mbYes, mbNo], 0) = mrYes then
      begin
        musik := '1';
        Ini.WriteString('Global', 'Musik', '1');
        Ini.WriteString('Global', 'firststart', '0');
      end
      else
      begin
        musik := '0';
        Ini.WriteString('Global', 'Musik', '0');
        Ini.WriteString('Global', 'firststart', '0');
      end;
    end;
  finally
    Ini.Free; 
  end;