Check mapped network unit size

Question

I’m developing an app, and I need to check the free space on the mapped network drive, I can grab the contents of a file in my application directory, so I created a script to execute the command to check the free space on batch:

unidade  := 'Z:';
caminho  := ExtractFileDir(Application.ExeName);
vCommand := 'fsutil volume diskfree '+unidade+' | find /i "livres disp" > '+caminho+'\unidade.txt';
WinExec(PChar('cmd /c "'+vCommand+'" '),SW_SHOWNORMAL);

With the code above, and switching the unit to c:, I have the expected return, but when I change to Z:, doesn’t work.

Or if there was another way to do it, I’m using windows-10.

Answer 1

Try it like this

var
  FreeAvailable,TotalSpace,TotalFree : Int64;
begin
  GetDiskFreeSpaceEx('z:',FreeAvailable,TotalSpace,@TotalFree);
  ShowMessage('Espaço livre: '+FormatFloat('#,0',TotalFree));
end;

Source: http://www.planetadelphi.com.br/dica/1128/-obtendo-o-espaco-livre-em-disco.