Result := _SetVolumeMountPoint(lpszVolumeMountPoint, lpszVolumeName)
else
Result := False; }
end;
function DeleteVolumeMountPoint(lpszVolumeMountPoint: LPCSTR): BOOL;
var
Kernel32: THandle;
begin
if not Assigned(_DeleteVolumeMountPoint) then
begin
Kernel32 := GetModuleHandle(PChar( ' kernel32.dll ' ));
if Kernel32 0 then @_DeleteVolumeMountPoint := GetProcAddress(Kernel32, PChar( ' DeleteVolumeMountPointA ' ));
end;
if Assigned(_DeleteVolumeMountPoint) then
Result := _DeleteVolumeMountPoint(lpszVolumeMountPoint)
else
Result := False;
end;
procedure TMainfrm.btn1Click(Sender: TObject); 不错哦
var
VolumeName: array [0..MAX_PATH] of Char;
begin
GetVolumeNameForVolumeMountPoint(PChar(lbledt1.Text), VolumeName, MAX_PATH);//获取制定分区的GUID
DeleteVolumeMountPoint(PChar(lbledt1.Text));//删除制定分区盘符
SetVolumeMountPoint(PChar(lbledt2.Text), VolumeName);//根据获取的GUID设置新的盘符
end;
相关阅读：
在移动硬盘或U盘里安装系统
SATA硬盘不能识别解决方法
硬盘NCQ功能是什么意思
右击硬盘分区第一项出现Auto的解决办法
如何分区让硬盘分区容量是整数