Clarion Types in Windows GetVolumeInformation() call

1

Need help with this one.

MODULE('WinAPI')
  GetVolumeInformation(*CSTRING, *CSTRING, LONG, *LONG, *LONG, *LONG, *CSTRING, LONG), BOOL, PASCAL, RAW, NAME('GetVolumeInformationA')
END

BOOL GetVolumeInformationA(
  [in, optional]  LPCSTR  lpRootPathName,
  [out, optional] LPSTR   lpVolumeNameBuffer,
  [in]            DWORD   nVolumeNameSize,
  [out, optional] LPDWORD lpVolumeSerialNumber,
  [out, optional] LPDWORD lpMaximumComponentLength,
  [out, optional] LPDWORD lpFileSystemFlags,
  [out, optional] LPSTR   lpFileSystemNameBuffer,
  [in]            DWORD   nFileSystemNameSize
);
2

At a complete guess…

map
GetVolumeInformation(ulong,ulong,LONG,ulong,ulong,ulong,ulong,LONG), BOOL, PASCAL, RAW, NAME(‘GetVolumeInformationA’)
end

lpRootPathName cstring(4)
lpVolumeNameBuffer cstring(300)
lpMaximumComponentLength ulong
lpFileSystemFlags ulong
lpFileSystemNameBuffer cstring(500)
code
lpRootPathName = 'c:\'
lpVolumeNameBuffer = ''
! if you don't care about the serial number
gvi = GetVolumeInformation( address(lpRootPathName), 
                      address(lpVolumeNameBuffer )  ,
                      0,
                      address(lpMaximumComponentLength),
                      address(lpFileSystemFlags),
                      address(lpFileSystemNameBuffer),
                      size(lpFileSystemNameBuffer)