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

文章作者 100test 发表时间 2009:05:22 12:01:26
来源 100Test.Com百考试题网

　　2009年下半年全国计算机等级考试你准备好了没?考计算机等级考试的朋友,2009年下半年全国计算机等级考试时间是2009年9月19日至23日。更多优质资料尽在百考试题论坛 百考试题在线题库
　　使用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.
　　end.

　　特别推荐：

　　2009年9月全国计算机等级考试时间及科目预告

　　2009年上半年全国计算机等级考试参考答案请进入计算机考试论坛

　　2009年全国计算机等级考试报名信息汇总

　　2009年NCRE考试有新变化

　　2009年全国计算机等级考试-大纲

　　2009年上半年全国计算机二级考试试题及答案

　　2009年上半年全国计算机等级考试试题答案汇总