返回所有驱动器，啥都没有.

Question

procedure TForm1.Button1Click(Sender: TObject);
var
i,j:Integer;
tmp:String;
begin
   for i:=65 to 90 do
       begin
         tmp:=chr(i);
         j:=GetDriveType(pchar(tmp));
         if j=DRIVE_FIXED  then
             combobox1.Items.Add(tmp+':'+inttostr(j));  //啥东东都没有
       end;
end;
          经测试:返回值为 1,明明是个驱动器:

Answer 1

var
i,j:Integer;
tmp:String;
begin
   for i:=0 to 23 do
       begin
         tmp:=Chr(67+i)+':\';
         j:=GetDriveType(pchar(tmp));
         if j=DRIVE_FIXED then
             combobox1.Items.Add(tmp+':'+inttostr(j));  //啥东东都*** 有 ***  
       end;
end;