VerySource

 找回密码
 立即注册
搜索
热搜: 活动 交友 discuz
123
返回列表 发新帖
楼主: cruzer

超难问题! 如何 根据 盘符 判断 是不是 U盘 ?

[复制链接]

0

主题

1

帖子

2.00

积分

新手上路

Rank: 1

积分
2.00
发表于 2020-8-19 17:00:02 | 显示全部楼层
往上写点东西,看速度,看usb端口有没数据传输,呵呵,随便说说
回复

使用道具 举报

0

主题

1

帖子

2.00

积分

新手上路

Rank: 1

积分
2.00
发表于 2020-8-20 09:30:01 | 显示全部楼层
这个问题似乎和根据姓名就判断是男是女一样难
回复

使用道具 举报

0

主题

1

帖子

2.00

积分

新手上路

Rank: 1

积分
2.00
发表于 2020-8-20 15:30:01 | 显示全部楼层
吧程序做成 服务 开机启动监测功能
回复

使用道具 举报

0

主题

1

帖子

2.00

积分

新手上路

Rank: 1

积分
2.00
发表于 2020-8-20 20:15:01 | 显示全部楼层
disksize:=0;
  for i:=99 to 122 do      // 'c'-'z';
    begin
      drive:=pchar(chr(i)+':\');
      x:=GetDriveType(drive);
      if x=3 then              //3:代表介质是硬盘.
         begin
           GetDiskFreeSpaceEx(drive,userFreeBytes,totalBytes,@freeBytes);
           k:=1000000000;
           disksize:=totalBytes div k;
           ListItem:=ListView1.Items.Add;
           ListItem.Caption:=UpperCase(chr(i))+' 驱动器';
           ListItem.SubItems.Add(Formatfloat('###,##0',disksize)+'G');
         end;
      if x=2 then      //removable
         begin
           GetDiskFreeSpaceEx(drive,userFreeBytes,totalBytes,@freeBytes);
           disksize:=totalBytes div 1048576;

           ListItem:=ListView1.Items.add;
           ListItem.Caption:=UpperCase(chr(i))+' 可移动磁盘';
           ListItem.SubItems.Add(inttostr(disksize)+'M');
         end;
    end;
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

Archiver|手机版|CopyRight © 2008-2023|verysource.com ( 京ICP备17048824号-1 )

快速回复 返回顶部 返回列表