Merge pull request #904 from UltraStar-Deluxe/fix-special-characters

fix special characters in file and folder names
UltraStar-Deluxe · Oct 11, 2024 · 459a0f8 · 459a0f8
2 parents e6bb354 + 31129e5
commit 459a0f8
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/base/UFilesystem.pas b/src/base/UFilesystem.pas
@@ -42,7 +42,7 @@ interface
   UPath;
 
 type
-  TSytemSearchRec = TSearchRec;
+  TSytemSearchRec = TUnicodeSearchRec;
 
   TFileInfo = record
     Time: integer;  // timestamp
@@ -439,7 +439,7 @@ function TFileSystemImpl.ExcludeTrailingPathDelimiter(const FileName: IPath): IP
 
 function TFileSystemImpl.FindFirst(const FilePattern: IPath; Attr: integer; var F: TSytemSearchRec): integer;
 begin
-  Result := SysUtils.FindFirst(FilePattern.ToNative(), Attr, F);
+  Result := SysUtils.FindFirst(FilePattern.ToWide(), Attr, F);
 end;
 
 function TFileSystemImpl.FindNext(var F: TSytemSearchRec): integer;