//声明:
GetLogicalDriveStrings(
nBufferLength: DWORD; {缓冲区大小}
lpBuffer: PAnsiChar {缓冲区}
): DWORD;
//缓冲区的结果是这样储存的: 譬如 A 驱动器会表示为 A:\ 后面隔一个空字符, 依次向后;
//所以每个驱动器会占 4 字节.
//举例:
procedure TForm1.FormCreate(Sender: TObject);
var
PStr: PChar;
DriveArr: array[0..4*26] of Char; {每个驱动器 4 字节, 最多 26 个驱动器}
begin
GetLogicalDriveStrings(SizeOf(DriveArr), DriveArr); {函数调用就这么简单}
PStr := DriveArr; {因为 PStr 是 #0 结尾的, 所以现在它指向的是前 4 个字节}
Memo1.Clear; {清空 Memo}
While PStr<>nil do
begin
Memo1.Lines.Add(PStr);
Inc(PStr,StrLen(PStr)+1); {字符串指针是可以运算的, 这里相当于指针移动 4 个位置, 而指向下一个}
if(Byte(PStr[0]) = 0) then PStr := nil; {如果下一个的第一个字符就是空, 就是没有了, While 等着 nil 终止呢}
end;
end;
//效果图:
WinAPI: GetLogicalDriveStrings - 获取系统中存在的逻辑驱动器字符串
原创
©著作权归作者所有:来自51CTO博客作者JLee79的原创作品,请联系作者获取转载授权,否则将追究法律责任
提问和评论都可以,用心的回复会被更多人看到
评论
发布评论
相关文章
-
java中字符串拼接的多种方式
java中字符串拼接的多种方式
java 字符串拼接 -
java中如何让else与两个if匹配
6:语句程序流程控制 1:顺序结构 2:判断结构 3:选择结构 4:循环结构 1:顺序结构 按照正常顺序执行。。。 2:判断结构 if语句 三种格式: 1. 执行语句; }
java中如何让else与两个if匹配 System 三元运算符 switch语句