680
社区成员
发帖
与我相关
我的任务
分享PB 如何获取电脑上的U盘盘符？或者有谁帮忙用PB翻译一下Delphi代码
如题：
网上搜了下都是通过调用API函数来实现，但是PB调用GetLogicalDrives时获取不到想要的值。
GetLogicalDrives
getdrivetype
下边是Delphi处理代码
u盘盘符判断
procedure TForm1.Button1Click(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;
参考自：http://qqhack8.blog.163.com/blog/static/1141479852012102133475/
网上搜了下都是通过调用API函数来实现，但是PB调用GetLogicalDrives时获取不到想要的值。
GetLogicalDrives
getdrivetype
下边是Delphi处理代码
u盘盘符判断
procedure TForm1.Button1Click(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;
参考自：http://qqhack8.blog.163.com/blog/static/1141479852012102133475/
...全文
请发表友善的回复…
发表回复
A啦Dbit 2015-01-23
- 打赏
- 举报
PB10以后加 ;ansi
PB菜鸟 2015-01-22
- 打赏
- 举报
Function LONG GetDriveTypeA(String drive) Library 'kernel32.dll'
FUNCTION ulong GetLogicalDrives() LIBRARY "kernel32.dll"
FUNCTION ulong GetLogicalDriveStrings(ulong nBufferLength,ref string lpBuffer) LIBRARY "kernel32.dll" ALIAS FOR "GetLogicalDriveStringsA"
FUNCTION ulong GetDriveType(ref string nDrive) LIBRARY "kernel32.dll" ALIAS FOR "GetDriveTypeA"
PB菜鸟 2015-01-22
- 打赏
- 举报
