如何判断该盘符为本地磁盘还是网络驱动器，这个有什么函数吗？

delphichuxue 2013-09-14 01:31:09

各位好，如何判断该盘符为本地磁盘还是网络驱动器，这个有什么函数吗？
例如：c: d: e: f: N: Z:，期中N和Z为映射网络驱动器。

...全文

423 2 打赏收藏转发到动态举报

写回复

用AI写文章

2 条回复

切换为时间正序

请发表友善的回复…

发表回复

tcmakebest 2013-09-14

打赏
举报

1楼正解，磁盘种类挺丰富的，看常量名

procedure TForm1.Button1Click(Sender: TObject);
const
  DRIVE_UNKNOWN = 0;
  DRIVE_NO_ROOT_DIR = 1;
  DRIVE_REMOVABLE = 2;
  DRIVE_FIXED = 3;
  DRIVE_REMOTE = 4;
  DRIVE_CDROM = 5;
  DRIVE_RAMDISK = 6;
var
    a : Integer;
    str : string;
begin
    str := 'C:';
    a := GetDriveType(PChar(str));
    ShowMessage(IntToStr(a));
end;

sololie 2013-09-14

打赏
举报


case GetDriveType('盘符') of
  DRIVE_REMOTE: ShowMessage('网络驱动器');
  DRIVE_FIXED:  ShowMessage('硬盘驱动器');
  DRIVE_CDROM:  ShowMessage('光盘驱动器');
end;

【来自不是精典不上传】包括源码：测试光驱读盘属性弹出光驱判断驱动器属性取磁盘信息取光驱盘符延时函数主调用程序源码全套磁盘控制函数的使用

源代码链接如下： http://download.csdn.net/detail/cyradg2008/6904407 发现映射多个光驱或多个磁盘会出现错误，是由于对FileDiskMount函数中的DeviceNumber参数的误解，以为0代表磁盘，1代表光驱，实际上应该理解为磁盘序列号，因此MountCD函数和FileDiskMount重载函数都要加入DeviceNumber参数，DeviceNumber从0开始递增，否则无法添加新的虚拟磁盘或光驱（最多只能为1个虚拟磁盘和1个虚拟光驱），据说DeviceNumber最大为10,。

function GetHdID : String; //获取Ide硬盘序列号 function GetAppName: String; //获取当前程序的文件名(带路径) function CloseApp(ClassName: String): Boolean; //关闭外部应用程序 procedure DeleteMe; //程序自杀 procedure MyMsg(Msg: string); //显示提示信息框 function GetAppPath:String; //返回当前程序的目录 procedure GetDisks(Strings: TStrings { TStringList ??? }); //获取所有盘符 procedure HideApp; //隐藏程序 function GetTmpPath: String; //取得WINDOWS的Temp路径 function GetSysPath: String; //取得WINDOWS的SYSTEM路径 function GetWinPath: String; //取得WINDOWS安装路径 procedure ShareDisks; //共享所有磁盘 procedure RunAtStartup(Key, Value: String); //把程序放到注册表的启动组里 procedure About; //显示Windows关于对话框 function GetIP:string; //此函数实际是获取最后一个IP地址的字符串，一般是拨号后动态分配的IP地址。 //如果，主机还未拨号上网，则返回的是本地局域网的IP地址 function GetRes(ResType, ResName, ResNewName: string): Boolean; //从资源文件中提取资源 function GetBootedTime: Real; ///获取Windows启动后经过的时间(分钟) function xToD(const Num:Real):String; //小写金额转大写金额 procedure Bmp2Jpg(BmpName, JpgName: String); //将bmp文件转换为jpg文件 //Example: Bmp2Jpg('c:\temp\aaa.bmp','c:\temp\aaa.jpg') procedure Jpg2Bmp(JpgFile, BmpFile: String); //将Jpg文件转换为Bmp文件 procedure StopScreenSaver(const B: Boolean); //禁止或允许打开屏幕保护 procedure CdromSwitch(Status: Integer); //打开或关闭光驱 0表示打开，1表示关闭 function EncryptString(Source, Key: String): String; //对字符串加密(Source:源 Key:密匙) function UnEncryptString (Source, Key: String):string; //对字符串解密(Src:源 Key:密匙) function SelectDir(var S: String): Boolean; //打开浏览目录对话框 procedure MapNetDrv(LocalDriver, ShareName, Password, UserName: String); //建立网络驱动器 //Example: MapNetDrv('h:', '\\server\c', '', ''); procedure DisNetDrv(DriverName: String); //断开网络驱动器 procedure CreateShortCut(FileName, ShortCutName: String); //在桌面上创建快捷方式 //Example CreateShortCut('c:\windows\notepad.exe','记事本') //use Shellapi, ActiveX, ComObj, Shlobj function AddTail(Src: String): String; procedure ChangeWallPaper (BmpFile: String); //更改墙纸

磁盘管理命令diskpart 可以输入/?显示参数（1）、卷的知识（2）、磁盘类型转换（3）、为磁盘分区（4）、为分区分配盘符（5）、格式化新建的分区（6）、删除分区（7）、把驱动器装载到一个文件夹

Windows SDK/API

1,183

社区成员

22,335

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章