Как получить список дисков?

Взято с форума Cyberforum

Function GetDisks():TStringlist;
var i:Char;
begin
 Result:=TStringlist.Create;
 for i := 'A' to 'Z' do
 begin
        if (GetDriveType(PChar(i+':\'))<>1) and
        (GetDriveType(PChar(i+':\'))<>0)

        then result.Add(i+':\');

 end;
end;

Function GetDisks():TStringlist;

var i:Char;

begin

Result:=TStringlist.Create;

for i := 'A' to 'Z' do

begin

if (GetDriveType(PChar(i+':\'))<>1) and

(GetDriveType(PChar(i+':\'))<>0)

then result.Add(i+':\');

end;

Как получить список дисков?

MY PROJECTS

Recent Posts

Categories