本文整理自网络，侵删。
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;
相关阅读 >>
更多相关阅读请进入《Delphi》频道 >>
