怎么由逻辑盘符获得所在的物理设备符?
比如由逻辑盘符“c:”获得物理设备符“PhysicalDrive0”
比如由逻辑盘符“c:”获得物理设备符“PhysicalDrive0”
解决方案 »
- RzNumericEdit什么输入不了小数?
- 请教在delphi6中,按回车之后,光标往下跳的代码.
- 想做个DLL来访问数据库,可却出错了,请帮个忙看看。
- 介绍一个开发技术知识库网站,up就给分
- 刚学delphi 问指针的问题
- 用AdoDataSet的LoadFormFile装入一个文件后,关闭它再用Open 命令打开表则出错?
- 我想让LABEL。CAPTION的显示实现网页中的效果,请高手帮忙!!!
- 请朋友们推荐一些有关搜索制作游戏修改器的网站或EBOOK,谢谢,来者有分
- 用Query怎样插入一条新的数据????
- 指点!指点!先感谢了!
- snmp的trap怎么用
- 做个调查 看看有多少是计算机专业毕业 现在从事计算机工作的
var
hVolume: THandle;
DiskExtents: PVolumeDiskExtents;
dwOutBytes: Cardinal;
begin
with Result do
begin
DiskNumber := 0;
StartingOffset.QuadPart := 0;
ExtentLength.QuadPart := 0;
end;
hVolume := CreateFile(PChar('\\.\'+DriverLetter+':'), GENERIC_READ or GENERIC_WRITE,
FILE_SHARE_READ or FILE_SHARE_WRITE, nil, OPEN_EXISTING, 0, 0);
if hVolume < 1 then Exit;
DiskExtents := AllocMem(Max_Path);
if DeviceIoControl(hVolume,
IOCTL_VOLUME_GET_VOLUME_DISK_EXTENTS,
nil, 0,
DiskExtents, Max_Path,
dwOutBytes, nil) then
begin
if DiskExtents^.NumberOfDiskExtents > 0 then
Result := DiskExtents^.Extents[0];
end;
FreeMem(DiskExtents);
CloseHandle(hVolume);
end;http://lysoft.7u7.net