delphi获取盘符代码

delphi获取盘符代码

unction GetDriverList():TStrings;
var
Index:Integer;
S:string;
List:TStringList;
begin
SetLength(S,255);
FillChar(S[1],255,#0);
List := TStringList.Create();
GetLogicalDriveStrings(255,Pointer(S));//GetLogicalDriveStrings 是获取所有逻辑磁盘字母,D,E...”
for Index := 1 to 255 do
if S[Index] = #0 Then S[Index] := ',';
List.CommaText := S;
Result := TStringList.Create();
for Index := 0 to List.Count - 1 do
if List.Strings[Index] <> '' then Result.Add(List.Strings[Index]);
List.Free();
end;

procedure TForm1.Button1Click(Sender: TObject);
var
List:TStrings;
begin
List := GetDriverList();
ShowMessage(List.Text);
List.Text;
end;