How to check the hard disc space - Clarion9

2

Pay attention to the data types used here Windows API help with CopyFileExA() and Callback to show Progress and here
Windows API help with CopyFileExA() and Callback to show Progress - #12 by CarlBarnes
namely, you need to create a pointer (long but Paul Attryde says use a ulong for pointers How can I access the raw stack data? MS callback proc prototype changes when asm starts popping the stack - #13 by AbdullahAkilah) pointing to a clarion Type’d group structure which matches this MS data type
ULARGE_INTEGER - Win32 apps | Microsoft Docs

Dword’s are ulong’s so this would apply.

UINT64   GROUP,TYPE
lo         ULONG
hi         ULONG
         END

And would be the group data type to point (long/ulong) to in the api.

Its worth noting in the svapi.inc SV have declared which is different to what MS have declared on their website.

_ULARGE_INTEGER   group,type
LowPart                         long
HighPart                        long
                                      end

They also have an equate in WinEqu.clw defined as

Ularge_Integer Equate(Ulong)

Which would be wrong, unless there is some behind the scenes things going on in the runtime.

and then apply to this api.
SHGetDiskFreeSpaceExA function (shellapi.h) - Win32 apps | Microsoft Docs

map
module
MyPrefixForUniquenessToAvoidCompilerWarningsWith3rdPartyAddons_SHGetDiskFreeSpaceExA(CONST *cstring pNullTerminatedStringAkaCstring, long pPointerToUlarge_IntegerFreeBytes,long pPointerToUlarge_IntegerByteNumber , long pPointerToUlarge_IntegerFreeByteNumber),Bool,Raw,Pascal,Name('SHGetDiskFreeSpaceExA')
!Which is also the same as
Prefix_SHGetDiskFreeSpaceExA(long,long,long,long),bool,Pascal,Name(SHGetDiskFreeSpaceExA')
End
End

The next challenge is getting the value out of the group data type UINT64 in order to display.

Because I dont know what data conversion is taking place in the runtime, you could try a Real Over the group structure as shown

TotalFileSize LIKE(INT64),OVER(R_TotalFileSize)

also mentioned here complete with calculations needed to be performed. Hint: Decimal is easiest and scalable.

From 2003!
Clarion, Displaying a ULARGE_INTEGER (computer-programming-forum.com)

I should add, you’ll know when you have the right calculations because they will match what you see in file explorer or dos. :wink: