谁帮我这个问题？

[guipei]

DWORD GetLogicalDriveStrings(
DWORD nBufferLength, // size of buffer
LPTSTR lpBuffer // address of buffer for drive strings );
函数的调用，主要是 lpbuffer 参数的调用，在delphi中的形式。和vb不一样。
谢谢。

[guipei]

thanks to ch81.

[ch81]

GetLogicalDriveStrings
这个lpbuffer参数是一个pansichar型。你先开辟一个空间。
procedure TForm1.Button1Click(Sender: TObject);
var Buffer:PChar;
var i:integer;
var l:integer;
var Str:String;
begin
GetMem(Buffer,200);
i:=GetLogicalDriveStrings(199,Buffer);
ShowMessage(inttostr(i));
l:=0;
While l<=i do
begin
if Ord(Buffer^)<>0 then
begin
Str:=Str+Buffer^;
end
else
begin
Memo1.Lines.Add(Str);
Str:='';
end;
l:=l+1;
Buffer:=Buffer+1;
end;
end;

[ch81]

在我机上返回
A:C:D:E:F:G:H:

[煜知搬砖者]

我机上返回，c:d:e:f:

[煜知搬砖者]

没有出现A驱动器