1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:

program ea;
{$APPTYPE CONSOLE}
uses
  SysUtils, Windows;

  const
    LibName = 'Access.dll';
  var
    HLib : THandle;

  type
    TGetUGfsPGfs = function (FileName : PChar; var UGfs, PGfs : DWORD) : integer; cdecl;
    TGetErrorStr = function  : PChar; cdecl;
    TGetVersionNr = function : integer; cdecl;
  var
    GetUGfsPGfs : TGetUGfsPGfs;
    GetErrorStr : TGetErrorStr;
    GetVersionNr : TGetVersionNr;

    UGfs, PGfs : DWORD;

  function DWORDToStr(x : DWORD) : string;
    var
      i : integer;
      Mask : DWORD;
  begin
    Result := '';
    Mask := 1;
    for i := 1 to 32 do begin
      if (Mask and x) <> 0 then
        Result := Result + ' ' + IntToStr(i);
      Mask := Mask shl 1;
    end {for};
  end {DWORDToStr};

begin
  // Insert user code here
  if ParamCount = 0 then begin
    Writeln(Format('Test eds access dll (%s)', [LibName]));
    Writeln('Usage: ea filename');
  end else begin
    try
      HLib := LoadLibrary(PChar(LibName));
      try
        if HLib = THandle(0) then
          raise Exception.Create(Format('Cannot open %s', [LibName]));

        // Extract the required routines
        GetUGfsPGfs := GetProcAddress(HLib, 'GetUGfsPGfs');
        if not Assigned(GetUGfsPGfs) then
          raise Exception.Create('GetUGfsPGfs not found');

        GetErrorStr := GetProcAddress(HLib, 'GetErrorStr');
        if not Assigned(GetErrorStr) then
          raise Exception.Create('GetErrorStr not found');

        GetVersionNr := GetProcAddress(HLib, 'GetVersionNr');
        if not Assigned(GetVersionNr) then
          raise Exception.Create('GetVersionNr not found');

        // Show lib version nr
        Writeln(Format('Lib version Nr: %d', [GetVersionNr]));

        if GetUGfsPGfs(PChar(ParamStr(1)), UGfs, PGfs) = 1 then begin
          Writeln(Format('UGfs: %s', [DWORDToStr(UGfs)]));
          Writeln(Format('PGfs: %s', [DWORDToStr(PGfs)]));
        end else
          raise Exception.Create(StrPas(GetErrorStr));

      finally
        FreeLibrary(HLib);
      end {try};
    except
      on E: Exception do begin
        Writeln('*** ' + E.Message);
      end;
    end {try}
  end {if};
end.					

1:

GetUGfsPGfs(Dateiname$, Ugfs, Pgfs)					

1:

Call GetUGfsPGfs(Dateiname$, Ugfs, Pgfs)					

1:

Procedure Foobar (Foo : String); safecall					

1:

Procedure FooBar (VAR Rueckgabe : OleVariant);					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

The test application uses run-time dynamic linking.
 
You will have to implement this in your application:
 
DWORD SvrToMacUGfs = 0;
DWORD SvrToMacPGfs = 0;
DWORD U,P;
 
for each file listed in the SvrToMac file
{
  GetUGfsPGfs(edsfilename, U, P);
  SvrToMacUGfs |= U;
  SvrToMacPGfs |= P;
}