WebSVN – spacemission – Diff – /GamSpeicherung.pas

     procedure DsFancyButton2Click(Sender: TObject);
     procedure AbbrechenBtnClick(Sender: TObject);
     procedure FormHide(Sender: TObject);
     procedure LevelListBoxDblClick(Sender: TObject);
   private
+    function GetSpielstandVerzeichnisSystem: string;
-    function GetSpielstandVerzeichnis: string;
+    function GetSpielstandVerzeichnisUser: string;
+    function GetSaveGameFileName(SpielstandName: string; forceuserdir: boolean): string;
   public
     procedure SearchSaves;
   end;
 var
   SpeicherungForm: TSpeicherungForm;
 implementation
 uses
-  Global, GamMain, ComLevelReader, ActiveX, ShlObj;
+  Global, GamMain, ComLevelReader;
 {$R *.DFM}
-const
-  FOLDERID_SavedGames: TGuid = '{4C5C32FF-BB9D-43b0-B5B4-2D72E54EAAA4}';
-function GetKnownFolderPath(const rfid: TGUID): string;
-var
-  OutPath: PWideChar;
-begin
-  // https://www.delphipraxis.net/135471-unit-zur-verwendung-von-shgetknownfolderpath.html
-  if ShGetKnownFolderPath(rfid, 0, 0, OutPath) {>= 0} = S_OK then
-  begin
-    Result := OutPath;
-    // From MSDN
-    // ppszPath [out]
-    // Type: PWSTR*
-    // When this method returns, contains the address of a pointer to a null-terminated Unicode string that specifies the path of the known folder
-    // The calling process is responsible for freeing this resource once it is no longer needed by calling CoTaskMemFree.
-    // The returned path does not include a trailing backslash. For example, "C:\Users" is returned rather than "C:\Users\".
-    CoTaskMemFree(OutPath);
-  end
-  else
-  begin
-    Result := '';
-  end;
-end;
 { TSpeicherungForm }
 procedure TSpeicherungForm.SearchSaves;
 var
   sr: TSearchRec;
   li2b.caption := 'n/a';
   li3b.caption := 'n/a';
   li4b.caption := 'n/a';
   LadenBtn.enabled := false;
   LoeschenBtn.enabled := false;
-  res := FindFirst(IncludeTrailingPathDelimiter(GetSpielstandVerzeichnis)+'*.sav', 0, sr);
+  res := FindFirst(IncludeTrailingPathDelimiter(GetSpielstandVerzeichnisSystem)+'*.sav', 0, sr);
   try
     while (res = 0) do
     begin
       if (sr.name <> '.') and (sr.name <> '..') then
         LevelListBox.items.Add(ChangeFileExt(sr.Name, ''));
       res := FindNext(sr);
     end;
   finally
     FindClose(sr);
   end;
+  res := FindFirst(IncludeTrailingPathDelimiter(GetSpielstandVerzeichnisUser)+'*.sav', 0, sr);
+  try
+    while (res = 0) do
+    begin
+      // Anmerkung: Contains() ist nicht case-sensitive
+      if (sr.name <> '.') and (sr.name <> '..') and not LevelListBox.Items.Contains(ChangeFileExt(sr.Name, '')) then
+        LevelListBox.items.Add(ChangeFileExt(sr.Name, ''));
+      res := FindNext(sr);
+    end;
+  finally
+    FindClose(sr);
+  end;
+  LevelListBox.Sorted := true;
 end;
 procedure TSpeicherungForm.LoeschenBtnClick(Sender: TObject);
+var
+  fil: string;
 begin
   if LevelListBox.ItemIndex = -1 then exit;
   if MessageDlg('Diesen Spielstand wirklich löschen?', mtConfirmation, mbYesNoCancel, 0) = mrYes then
   begin
     li2b.caption := 'n/a';
     li3b.caption := 'n/a';
     li4b.caption := 'n/a';
     LadenBtn.enabled := false;
     LoeschenBtn.enabled := false;
-    deletefile(IncludeTrailingPathDelimiter(GetSpielstandVerzeichnis)+LevelListBox.Items.strings[LevelListBox.itemindex]+'.sav');
+    fil := GetSaveGameFileName(LevelListBox.Items.strings[LevelListBox.itemindex], false);
+    if not fileexists(fil) then raise Exception.Create('Spielstandsdatei nicht gefunden');
+    deletefile(fil);
     searchsaves;
   end;
 end;
+function TSpeicherungForm.GetSaveGameFileName(SpielstandName: string; forceuserdir: boolean): string;
+var
+  usr, sys: string;
+begin
+  usr := IncludeTrailingPathDelimiter(GetSpielstandVerzeichnisUser) + SpielstandName + '.sav'; // ab SpaceMission 1.2+
+  sys := IncludeTrailingPathDelimiter(GetSpielstandVerzeichnisSystem) + SpielstandName + '.sav'; // alte Versionen von SpaceMission <1.2
+  if fileexists(usr) or forceuserdir then exit(usr);
+  if fileexists(sys) then exit(sys);
+  exit(usr);
+end;
 procedure TSpeicherungForm.LadenBtnClick(Sender: TObject);
 var
   SavGame: TSaveData;
+  fil: string;
 begin
   if LevelListBox.ItemIndex = -1 then exit;
   if LevelListBox.items.count = 0 then
   begin
   end;
   {if liu.visible or (LevelListBox.items.count=0) then
     exit;}
   SavGame := TSaveData.Create;
   try
-    SavGame.LoadFromFile(IncludeTrailingPathDelimiter(GetSpielstandVerzeichnis)+LevelListBox.Items.strings[LevelListBox.itemindex]+'.sav');
+    fil := GetSaveGameFileName(LevelListBox.Items.strings[LevelListBox.itemindex], false);
+    if not fileexists(fil) then raise Exception.Create('Spielstandsdatei nicht gefunden');
+    SavGame.LoadFromFile(fil);
     mainform.FScore := SavGame.Score;
     mainform.FLife := SavGame.Life;
     mainform.FLevel := SavGame.Level;
     mainform.FGameMode := SavGame.GameMode;
     MainForm.FLevelDataAlreadyLoaded := true; // do not call NewLevel() in StartSceneMain
     SavGame.Life := mainform.FLifeAtLevelStart;//mainform.FLife;
     SavGame.Level := mainform.FLevel;
     SavGame.GameMode := mainform.FGameMode;
     if not Assigned(SavGame.LevelData) then SavGame.LevelData := TLevelData.Create;
     SavGame.LevelData.Assign(mainForm.LevelData);
-    SavGame.SaveToFile(IncludeTrailingPathDelimiter(GetSpielstandVerzeichnis)+LevelName.text+'.sav');
+    SavGame.SaveToFile(GetSaveGameFileName(LevelName.text, true));
   finally
     FreeAndNil(SavGame);
   end;
   SearchSaves;
 var
   SavGame: TSaveData;
   Punkte, Leben, Level: integer;
   BeinhaltetLevelDaten: boolean;
   Art: TGameMode;
+  fil: string;
 begin
   ladenbtn.enabled := true;
   loeschenbtn.enabled := true;
   li1.visible := false;
   li2a.visible := false;
   LevelName.Text := LevelListBox.Items.strings[LevelListBox.itemindex];
   SavGame := TSaveData.Create;
   try
     try
-      SavGame.LoadFromFile(IncludeTrailingPathDelimiter(GetSpielstandVerzeichnis)+LevelListBox.Items.strings[LevelListBox.itemindex]+'.sav');
+      fil := GetSaveGameFileName(LevelListBox.Items.strings[LevelListBox.itemindex], false);
+      if not fileexists(fil) then raise Exception.Create('Spielstandsdatei nicht gefunden');
+      SavGame.LoadFromFile(fil);
       Punkte := SavGame.Score;
       Leben := SavGame.Life;
       Level := SavGame.Level;
       Art := SavGame.GameMode;
       BeinhaltetLevelDaten := Assigned(SavGame.LevelData);
     LevelName.enabled := true;
     SpeichernBtn.enabled := true;
   end;
 end;
+function TSpeicherungForm.GetSpielstandVerzeichnisSystem: string;
+begin
+  // nicht mehr verwendet seit version 1.2
+  result := OwnDirectory + 'Spielstände';
+end;
-function TSpeicherungForm.GetSpielstandVerzeichnis: string;
+function TSpeicherungForm.GetSpielstandVerzeichnisUser: string;
 begin
   try
     result := GetKnownFolderPath(FOLDERID_SavedGames);
   except
     result := '';

Subversion Repositories spacemission

spacemission/GamSpeicherung.pas – Rev 45 → 51