插入U盘怎样获取U盘盘符？

最新推荐文章于 2023-06-25 14:24:39 发布

fsxlh

最新推荐文章于 2023-06-25 14:24:39 发布

阅读量2.6k

点赞数

文章标签： integer string path div

本文链接：https://blog.youkuaiyun.com/fsxlh/article/details/556956

版权

这段Delphi代码在窗体创建时，通过GetLogicalDriveStrings函数获取逻辑驱动器字符串，遍历驱动器，判断其类型。若为可移动磁盘（DRIVE_REMOVABLE），则弹出消息框提示并将其添加到ListBox中，还给出了不同驱动器类型的常量定义。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

procedure TForm1.FormCreate(Sender: TObject);
var
    buf:array [0..MAX_PATH-1] of char;
    m_Result:Integer;
    i:Integer;
    str_temp:string;
begin
m_Result:=GetLogicalDriveStrings(MAX_PATH,buf);
for i:=0 to (m_Result div 4) do
begin
        str_temp:=string(buf[i*4]+buf[i*4+1]+buf[i*4+2]);
         if getdrivetype(pchar(str_temp)) = DRIVE_REMOVABLE then
         begin
            showmessage(str_temp+'盘为U盘');
            ListBox1.Items.Add(str_temp);
        end;
end;
end;

=========================================
DRIVE_UNKNOWN = 0;
{$EXTERNALSYM DRIVE_UNKNOWN}
DRIVE_NO_ROOT_DIR = 1;
{$EXTERNALSYM DRIVE_NO_ROOT_DIR}
DRIVE_REMOVABLE = 2;
{$EXTERNALSYM DRIVE_REMOVABLE}
DRIVE_FIXED = 3;
{$EXTERNALSYM DRIVE_FIXED}
DRIVE_REMOTE = 4;
{$EXTERNALSYM DRIVE_REMOTE}
DRIVE_CDROM = 5;
{$EXTERNALSYM DRIVE_CDROM}
DRIVE_RAMDISK = 6;