delphi – 如何使用CreateFile访问物理磁盘?
发布时间:2020-12-15 09:19:47 所属栏目:大数据 来源:网络整理
导读:我在Lazarus编程论坛 how to open a physical disk上询问过.我想让用户在单击“选择磁盘”按钮时从系统中选择物理磁盘. Stack Overflow中有一些示例类似但不完全相同(例如 Delphi – Using DeviceIoControl passing IOCTL_DISK_GET_LENGTH_INFO to get flash
我在Lazarus编程论坛
how to open a physical disk上询问过.我想让用户在单击“选择磁盘”按钮时从系统中选择物理磁盘. Stack Overflow中有一些示例类似但不完全相同(例如
Delphi – Using DeviceIoControl passing IOCTL_DISK_GET_LENGTH_INFO to get flash media physical size (Not Partition)).
有很多使用CreateFile(in the documentation,特别是an example of calling 任何人都可以指向我解释它的链接的方向或更好仍然是用Delphi或Free Pascal编写的实际示例?任何人都可以帮我理解如何使用它吗? 解决方法
您的C示例包含以下代码:
/* LPWSTR wszPath */ hDevice = CreateFileW(wszPath,// drive to open 0,// no access to the drive FILE_SHARE_READ | // share mode FILE_SHARE_WRITE,NULL,// default security attributes OPEN_EXISTING,// disposition 0,// file attributes NULL); // do not copy file attributes 将该函数调用转换为Delphi只需更改语法: // wszPath: PWideChar hDevice := CreateFileW(wszPath,FILE_SHARE_READ or FILE_SHARE_WRITE,nil,OPEN_EXISTING,0); 也就是说,使用:=用于赋值,或用于组合位标志,nil用于空指针,0用于空文件句柄. 该函数调用如下: #define wszDrive L"\.PhysicalDrive0" DISK_GEOMETRY pdg = { 0 }; // disk drive geometry structure bResult = GetDriveGeometry (wszDrive,&pdg); 再次,只需将语法更改为Delphi: const wszDrive = '.PhysicalDrive0'; var pdg: DISK_GEOMETRY; ZeroMemory(@pdg,SizeOf(pdg)); bResult := GetDriveGeometry(wszDrive,@pdg); Delphi无类型字符串常量自动是它们需要在上下文中的任何类型,因此我们不需要像C使用的任何L前缀.反斜杠在Delphi中并不特殊,因此不需要进行转义. Delphi不允许在声明中初始化局部变量,因此我们使用ZeroMemory将所有内容设置为零.使用@代替&获取指向变量的指针. (编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |