hedgewars/uPhysFSLayer.pas
changeset 11683 17d102f9515d
parent 11644 f17df78181d8
child 11699 83c40c1eb0e7
child 11826 7654e2357934
equal deleted inserted replaced
11682:2c21bc80c95d 11683:17d102f9515d
   196     fp: PChar;
   196     fp: PChar;
   197 {$ENDIF}
   197 {$ENDIF}
   198 begin
   198 begin
   199 {$IFDEF HWLIBRARY}
   199 {$IFDEF HWLIBRARY}
   200     //TODO: http://icculus.org/pipermail/physfs/2011-August/001006.html
   200     //TODO: http://icculus.org/pipermail/physfs/2011-August/001006.html
   201     cPhysfsId:= GetCurrentDir() + {$IFDEF DARWIN}{$IFNDEF IPHONEOS}'/Hedgewars.app/Contents/MacOS/' + {$ENDIF}{$ENDIF} ' hedgewars';
   201     cPhysfsId:= shortstring(GetCurrentDir()) + {$IFDEF DARWIN}{$IFNDEF IPHONEOS}'/Hedgewars.app/Contents/MacOS/' + {$ENDIF}{$ENDIF} ' hedgewars';
   202 {$ELSE}
   202 {$ELSE}
   203     cPhysfsId:= ParamStr(0);
   203     cPhysfsId:= ParamStr(0);
   204 {$ENDIF}
   204 {$ENDIF}
   205 
   205 
   206     i:= PHYSFS_init(Str2PChar(cPhysfsId));
   206     i:= PHYSFS_init(Str2PChar(cPhysfsId));