驱动器类型的识别

ether 2000-12-28 04:44:00
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.
...全文
100 1 打赏 收藏 举报
写回复
1 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
The_east_key 2000-12-29
建议您访问www.etechbase.net/tech,里面有很多资料,也许可以解决您的问题。
访问http://168.168.18.11:81/etechbase/advsearch.php将您的问题输入查询内容框,选择不同的精确程度,即可以找到你所需要的答案。效果还是可以的。
  • 打赏
  • 举报
回复
相关推荐
发帖
非技术区
加入

819

社区成员

Delphi 非技术区
社区管理员
  • 非技术区社区
申请成为版主
帖子事件
创建了帖子
2000-12-28 04:44
社区公告
暂无公告