驱动器类型的识别

[ether]

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;

type
TForm1 = class(TForm)
Memo1: TMemo;
Button1: TButton;
Button2: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
var
d: Char;
s: String;
begin
for d:='A' to 'Z' do
begin
s := d + ': ';
case GetDriveType(PChar(d + ':.')) of
// 0: s := s + 'The drive type cannot be determined.';
// 1: s := s + 'The root directory does not exist.';
DRIVE_REMOVABLE: s := s + 'The drive can be removed from the drive.';
DRIVE_FIXED: s := s + 'The disk cannot be removed from the drive.';
DRIVE_REMOTE: s := s + 'The drive is a remote (network) drive.';
DRIVE_CDROM: s := s + 'The drive is a CD-ROM drive.';
DRIVE_RAMDISK: s := s + 'The drive is a RAM disk.';
else
// s := s + 'Unknown!!!!!!';
end;
if Length(s)>3 then
Memo1.Lines.Add(s);
end;
end;

end.

[The_east_key]

建议您访问www.etechbase.net/tech,里面有很多资料，也许可以解决您的问题。
访问http://168.168.18.11:81/etechbase/advsearch.php将您的问题输入查询内容框，选择不同的精确程度，即可以找到你所需要的答案。效果还是可以的。