计算机二级DELPHI技巧:DELPHI获取U盘盘符代码- 计算机等级考试

当前位置: 首页 > 图文教程 > 认证考试 > 计算机等级考试 > 计算机二级DELPHI技巧:DELPHI获取U盘盘符代码

计算机等级考试: 全国计算机等级考试调整方案; 2006年4月全国计算机等级考试二级C笔试答案; 全国计算机等级考试二级C语言典型题解析; 全国计算机等级考试二级C语言入门：数组; 参加国家计算机等级考试该如何学习C语言; 全国计算机等级考试C语言之深入理解C语言指针; 计算机等级考试二级C语言之指针、数组和函数; 2007年12月全国计算机职业技能考试安排; 2008四月全国计算机等级考试将有重大调整; 2007年9月全国计算机等级考试二级VB笔试试卷; 2007年9月全国计算机等级考试二级C语言笔试试卷; 2007年9月全国计算机等级考试三级网络技术笔试试卷; 2007年9月全国计算机等级考试二级VFP笔试试卷; 2007年9月全国计算机等级考试四级参考答案; 2007年9月全国计算机等级考试二级java程序设计参考答案; 2007年9月全国计算机等级考试access数据库程序设计参考答案; 全国计算机等级考试考试大纲; 计算机等级考试二级应试技巧; 2009年度计算机应用能力考试的考试模块调整; Word软件文档结构图制作技巧

No. « 1 2 3 › »

技术文章搜索

关键字

出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-10-04 浏览: 260 ::

收藏到网摘: n/a

　　使用delphi程序实现U盘盘符的获取其实不是很难，不过对于新手来说可能有点困难，把代码贴出来，供大家学习

　　procedure TForm1.FormCreate(Sender: TObject);

　　var

　　buf:array [0..MAX_PATH-1] of char;

　　m_Result:Integer;

　　i:Integer;

　　str_temp:string;

　　begin

　　m_Result:=GetLogicalDriveStrings(MAX_PATH,buf);

　　for i:=0 to (m_Result div 4) do

　　begin

　　str_temp:=string(buf[i*4]+buf[i*4+1]+buf[i*4+2]);

　　if getdrivetype(pchar(str_temp)) = DRIVE_REMOVABLE then

　　begin

　　showmessage(str_temp+’盘为U盘’);

　　ListBox1.Items.Add(str_temp);

　　end;