1 unit uPhysFSLayer;

     2 

     3 {$LINKLIB ../bin/libphysfs.a}

     4 

     5 interface

     6 

     7 procedure initModule;

     8 procedure freeModule;

     9 

    10 implementation

    11 uses uUtils;

    12 

    13 function PHYSFS_init(argv0: PChar) : LongInt; cdecl; external;

    14 function PHYSFS_deinit() : LongInt; cdecl; external;

    15 

    16 function PHYSFS_mount(newDir, mountPoint: PChar; appendToPath: LongBool); cdecl; external;

    17 

    18 procedure initModule;

    19 begin

    20     PHYSFS_init(Str2PChar(ParamStr(0)));

    21 end;

    22 

    23 procedure freeModule;

    24 begin

    25     PHYSFS_deinit;

    26 end;

    27 

    28 end.