+
−unit uPhysFSLayer;
+
−
+
−{$LINKLIB ../bin/libphysfs.a}
+
−
+
−interface
+
−
+
−procedure initModule;
+
−procedure freeModule;
+
−
+
−implementation
+
−uses uUtils;
+
−
+
−function PHYSFS_init(argv0: PChar) : LongInt; cdecl; external;
+
−function PHYSFS_deinit() : LongInt; cdecl; external;
+
−
+
−function PHYSFS_mount(newDir, mountPoint: PChar; appendToPath: LongBool) : LongInt; cdecl; external;
+
−
+
−procedure initModule;
+
−begin
+
−    PHYSFS_init(Str2PChar(ParamStr(0)));
+
−end;
+
−
+
−procedure freeModule;
+
−begin
+
−    PHYSFS_deinit;
+
−end;
+
−
+
−end.