Я сам искал код, позволяющий определить имена дисков присутствующих на компе, в паскале. Вот код:
Код: Выделить всё
uses dos,crt;
var i,j:word;с:char;dr:string[3];disks:array[1..26] of char;
begin
c:='A';
j:=1;
for i:=1 to 26 do
begin
dr:=c+':\'; {дело в том, что chdir('A') для диска не подойдёт, поэтому меняем каталог как в досе - chdir('a:\'). большие буквы нарисовал для красивого отображения}
chdir(dr);
case ioresult of
152:writeln('drive ',c,' not ready');
0: begin
writeln('found drive ',c);
disks[j]:=c;
inc(j);
end;
inc(c);{равносильно c:=chr(ord(c)+1)}
end;
end.
если считаете что боян или законченный оффтоп - ну извините, но нигде в нете не нашел.
без {$I-} не работает.
весь офтоп удалил
ИА, за что ему огромное спасибо! =)
