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

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

■必要なコンポーネント

Button

■使用するAPI関数

GetDriveType（ドライブの種類を取得する）
【引数の説明】
第一引数　調べたいドライブを入れる　（例）C:\
【戻り値】
下記の図を参照

戻り値	ドライブ
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のページへ