ドライブの空き容量を取得できない (ID:37078)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 ドライブの空き容量を取得するため、過去ログを参考にプログラムしてみました。 ところが、いくら、どのドライブをチェックしても、「Drive is not found.」になってしまいます。 何が原因かわかなくて行き詰まりました。 どうぞよろしくお願いいたします。 //------------------------------------------------------ // 環境: WinXp sp3、Delphi2010、HDD空き容量80GB //------------------------------------------------------ function TForm1.GetDiskSpace(strDrive : string) :string; var Fig : string; FigList : array[0..4] of string; i : Integer; Size : Extended; begin //空き容量取得 Size:= DiskFree(Ord(strDrive) - Ord('A') + 1); //単位定義 FigList[0]:='Byte'; FigList[1]:='KB'; FigList[2]:='MB'; FigList[3]:='GB'; FigList[4]:='TB'; //単位変換 i:=0; while (Size>=1024) and (i<=4) do begin Size:= Size / 1024; Inc(i); end; Fig:= FigList[i]; //ラベルに表示 if Size>=0 then result:= Format('%4.1f %s',[Size, Fig]) else if Size=-1 then result:= 'Error: Drive is not found.' else result:= 'Error: ???'; end; //-------------------------------- ShowMessage(GetDiskSpace('C'));