下面写错了,应该是
function Tform1.GetDiskVolSerialID(cDriveName : char ) : DWord;
var
dwtemp1:dword;
dwtemp2:dword;
begin
GetVolumeInformation(PChar( cDriveName + ':\' ),nil,0,@result,dwtemp1,dwtemp2,
nil,0);
end;
function Tform1.GetDiskVolSerialID(cDriveName : char ) : DWord;
var
dwtemp1:dword;
dwtemp2:dword;
begin
GetVolumeInformation(PChar( cDriveName + ':\' ),nil,0,@result,dwtemp1,dwtemp2,
nil,0);
end;
解决方案 »
- 急!求救!报表预览窗口
- 各们老师;关于有关软件"技术文档"的书写格式,如何写分成那几部分
- 如何得到mp3文件中静音位置
- 菜鸟请问TDataSet问题。
- 用过MxOutLookBarPro的请进 急……在线等待,分不够再加
- 如何引用这条字符串?
- 100分求主菜单的遍历
- 这段SQL语句为什么总是说“FROM 子句语法错误”?
- 发觉以前的老一辈的人喜欢用CLIENTDATASET,但我只会用ADOQUERY和ADOTABLE,不知道我做多层的时候用这两个能不能代替CLIENTDATASET
- 三层中,Socket与DCOM大讨论?? 来者有份!!!!!!!!!
- 這里又買不到delphi5的光碟,請問哪位大俠知道有delphi5的安裝程序下載?
- 很弱智的SQL问题???
if tabnotebook1.TabIndex = 0 then
// do your thing...