首页
社区
课程
招聘
各位,我用这个代码取C盘的卷标,怎么取不到呢(DELPHI7代码)
发表于: 2008-1-3 13:04 4566

各位,我用这个代码取C盘的卷标,怎么取不到呢(DELPHI7代码)

2008-1-3 13:04
4566
procedure TForm1.Button1Click(Sender: TObject);
var
  szname:array[1..32] of char;
  d1,d2:cardinal;
begin
  fillchar(szname,sizeof(szname),#0);
  GetVolumeInformation('c:',@szname,32,nil,d1,d2,nil,0);
  messagebox(0,@szname,nil,0);
end;

[培训]《安卓高级研修班(网课)》月薪三万计划,掌握调试、分析还原ollvm、vmp的方法,定制art虚拟机自动化脱壳的方法

收藏
免费 0
支持
分享
最新回复 (4)
雪    币: 454
活跃值: (1673)
能力值: ( LV3,RANK:30 )
在线值:
发帖
回帖
粉丝
2
Delphi代码不熟……就表面来看有个错误,C:需要加反斜杠C:\
2008-1-3 13:40
0
雪    币: 212
活跃值: (10)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
3
我一加反斜杠,运行就出错啊
2008-1-3 13:42
0
雪    币: 454
活跃值: (1673)
能力值: ( LV3,RANK:30 )
在线值:
发帖
回帖
粉丝
4
自己翻翻MSDN咯,C++代码,无问题
TCHAR szVol[MAX_PATH+1];
GetVolumeInformation(_T("C:\\"), szVol, MAX_PATH+1, 0, 0, 0, 0, 0);
MessageBox(0, szVol, szVol, MB_OK);
2008-1-3 13:57
0
雪    币: 212
活跃值: (10)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
5
谢谢楼上的,我找到原因了
GetVolumeInformation(pchar('c:\'),@szname,32,nil,d1,d2,nil,0);
这里有个强制转换必须要加上,否则程序就飞了
2008-1-3 14:15
0
游客
登录 | 注册 方可回帖
返回
//