hedgewars/uPhysFSLayer.pas
branchphysfslayer
changeset 7963 9910f303f5b6
parent 7959 644b757d20e6
child 8022 10b3b93c1f56
equal deleted inserted replaced
7959:644b757d20e6 7963:9910f303f5b6
    11 uses uUtils;
    11 uses uUtils;
    12 
    12 
    13 function PHYSFS_init(argv0: PChar) : LongInt; cdecl; external;
    13 function PHYSFS_init(argv0: PChar) : LongInt; cdecl; external;
    14 function PHYSFS_deinit() : LongInt; cdecl; external;
    14 function PHYSFS_deinit() : LongInt; cdecl; external;
    15 
    15 
    16 function PHYSFS_mount(newDir, mountPoint: PChar; appendToPath: LongBool); cdecl; external;
    16 function PHYSFS_mount(newDir, mountPoint: PChar; appendToPath: LongBool) : LongInt; cdecl; external;
    17 
    17 
    18 procedure initModule;
    18 procedure initModule;
    19 begin
    19 begin
    20     PHYSFS_init(Str2PChar(ParamStr(0)));
    20     PHYSFS_init(Str2PChar(ParamStr(0)));
    21 end;
    21 end;