|
7959
|
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.
|