| Blog信息 |
|
blog名称:网络爬虫
日志总数:39
评论数量:202
留言数量:2
访问次数:246658
建立时间:2005年3月22日 |
| |
|
 delphi获取驱动器信息
软件技术, 电脑与网络
网络爬虫 发表于 2007/6/20 18:09:52 |
|
delphi教程－获取驱动器类型信息
实例说明
在delphi应用程序中，有时候需要获取驱动器的类型信息，比如软驱一般是A和B，c一般是硬盘，但其他盘符具体是什么类型就很难讲了。本例将介绍用Delphi编程判断驱动器的类型。
编程思路
delphi要获取驱动器的类型信息，可直接调用API函数GetDriveType即可。
编程步骤
本例主要源代码如下：
//点击“获得类型”按钮后的事件
procedure TForm1.ButtonlClick(Sender: TObject);
var
//检测结果
Result:Integer;
//驱动器根目录
Driver:String;
begin
Driver:=Edit1.text;
//检测驱动器类型
Result:=GetDriveType(pchar(Driver));
Case Result of
Drive_Removable:Memo1.Lines.Add(Edit1.text+'为可移动驱动器');
Drive_Fixed:Memo1.Lines.Add(Editl.text+'不可移动驱动器');
Drive_Remote:Memo1.Lines.Add(Edit1.text+'网络驱动器');
Drive_CDROM:Memo1.Lines.Add(Edit1.text+'CD-ROM驱动器');
Drive_RamDisk:Mem01.Lines.Add(Editl.text+'虚拟驱动器');
Else Mem01.Lines.Add(Edit1.text+'驱动器符号无效');
end;
end;
编程总结
Windows的API函数GetDriveType，其语法格式如下：
DeclareFunctionGetDriveTypeLib"Kernel"(ByValDriveNumberAsInteger)AsInteger
入口参数DriveNumber的取值为O，1，2，3等，其中A驱动器为O；B驱动器B为1；c驱动器为2；依此类推，函数返回值是O为未检测到驱动器；2为软驱；3为硬盘；4为CD-ROM光驱或网络驱动器。 |
|
|
回复:delphi获取驱动器信息
软件技术, 电脑与网络
数据挖掘青年发表评论于2007/6/23 10:58:18 |
| 我们把可移动硬盘或者U盘插到电脑上，由于不同电脑的硬盘分区不一，所以它可能是作为D盘、E盘....出现。
请问楼主，在delphi中容易找到那个是可移动硬盘，返回它当前的路径吗（是D、E还是其他）？ 谢谢！ |
|
» 1 »
|