ドライブの種類を判定する



■必要なコンポーネント

■使用するAPI関数

戻り値 ドライブ
0 未知
1 存在しない
2 フロッピーディスク
3 ハードディスク
4 ネットワークドライブ
5 CD-ROM
6 RAM


■ソースは下記のようになります。

ドライブの種類を判別する処理
procedure TForm1.Button1Click(Sender: TObject);
Var
 Ret : integer;
begin

 //Cドライブの種類を判別
 Ret :=GetDriveType ('C:\') ;

 Case Ret of
  0 : MessageDlg('未知', mtCustom, [mbOK], 0) ;
  1 : MessageDlg('存在しません', mtCustom, [mbOK], 0) ;
  2 : MessageDlg('フロッピーディスク', mtCustom, [mbOK], 0);
  3 : MessageDlg('ハードディスク', mtCustom, [mbOK], 0);
  4 : MessageDlg('ネットワークドライブ', mtCustom, [mbOK],0);
  5 : MessageDlg('CD-ROM', mtCustom, [mbOK], 0) ;
  6 : MessageDlg('RAM', mtCustom,[mbok],0
 end;


end;




Win32APIのページへ



ホーム PV ランキング