hedgewars/uPhysFSLayer.pas
changeset 9378 2be457289e60
parent 9224 bce8cf41d666
child 9407 860f959f92c9
equal deleted inserted replaced
9377:48ab6dea8d2f 9378:2be457289e60
   131 var i: LongInt;
   131 var i: LongInt;
   132     cPhysfsId: shortstring;
   132     cPhysfsId: shortstring;
   133 begin
   133 begin
   134 {$IFDEF HWLIBRARY}
   134 {$IFDEF HWLIBRARY}
   135     //TODO: http://icculus.org/pipermail/physfs/2011-August/001006.html
   135     //TODO: http://icculus.org/pipermail/physfs/2011-August/001006.html
   136     cPhysfsId:= GetCurrentDir() + {$IFDEF DARWIN}'/Hedgewars.app/Contents/MacOS/' + {$ENDIF} ' hedgewars';
   136     cPhysfsId:= GetCurrentDir() + {$IFDEF DARWIN}{$IFNDEF IPHONEOS}'/Hedgewars.app/Contents/MacOS/' + {$ENDIF}{$ENDIF} ' hedgewars';
   137 {$ELSE}
   137 {$ELSE}
   138     cPhysfsId:= ParamStr(0);
   138     cPhysfsId:= ParamStr(0);
   139 {$ENDIF}
   139 {$ENDIF}
   140 
   140 
   141     i:= PHYSFS_init(Str2PChar(cPhysfsId));
   141     i:= PHYSFS_init(Str2PChar(cPhysfsId));