一个API函数地问题，请帮我看看

[hsq]

我在用API函数GetDriveType来判断驱动器地类型的时候，如果参数给的是c盘，就会报出这不是硬盘，而如果参数给的是d盘。就会现实说该盘是硬盘驱动器.问题出在哪请帮我看看!!,
还有如果参数给的是Pchar('d:');，就可以。可是一旦给的是Pchar(d)。就一样不行了,这是为什么

[saucer]

GetDriveType的参数类型是Pchar:
(
例子抄自
http://members.truepath.com/delphi/tips/tip115_drivetype1.htm
)

var
x,
DrvType : Integer;
DrvLetter,
DrvString : String;
begin
{ 25 possible drives ... a-z }
for x := Ord('A') to Ord('Z') do
begin

{ set drive letter to be used in GetDriveType }
DrvLetter := Chr(x)+':\';

{ get the drive type }
DrvType := GetDriveType(pChar(DrvLetter));

{ set our drive type string accordingly }
case DrvType of
0,1 : DrvString := '';
DRIVE_REMOVABLE : DrvString := 'Removable';
DRIVE_FIXED : DrvString := 'Fixed';
DRIVE_REMOTE : DrvString := 'Network';
DRIVE_CDROM : DrvString := 'CD-ROM';
DRIVE_RAMDISK : DrvString := 'RAM disk';
end;

{ add drivetype string if it is not blank
according to the above case statement }
if DrvString <> '' then
Listbox1.Items.Add(DrvLetter +
' = ' + DrvString);
end;
end;

[nne998]

是应传 c: d: .................，帮助已写得很清楚。。。

[jishiping]

GetDriveType('C:\'); 后面应该有个\

[skill2002study]

没有这么复杂吧！兄弟！！！！！！！！！！！！检查一下基本语法！