Vielen Dank!
Von deiner antwort bin ich hier gelandet
http://www.swissdelphicenter.ch/de/showcode.php?id=654
Dann habe ich einen 3zeiler gemacht. Der sogar geht
Delphi-Quellcode:
function GetDiskSize(var free_size, total_size: Int64): Boolean;
begin
GetDiskFreeSpaceEx(PChar('\\server\volume1'), Free_size, Total_size, nil);
end;
Und es klappt. Nun werde ich noch VolumeInfo versuchen. Vielen vielen dank für den stups in die richtige richtung. Fehlerabfragen kommen natürlich noch rein. Was InUse ist kann ich ja mit den beiden werten berechnen. Das ist das kleinste prob.
Gruss und noch einen schönen "Restabend". Leider bin ich hundemüde, sonst wrürde ich das heute noch machen, aber das pack ich leider nichtmehr.
Nochmals Danke!