халява, или кому чем поделиться не жалко
Добавлено: 27 ноя 2007, 00:45
Извините, ребят, что вот так внаглую не используя поиск по форуму создаю эту тему. Просто хочу обратить внимание на один неприятный факт - иногда новичок в кодинге не может самостоятельно разобраться с тем, что ему нужно сделать, и начинает искать похожие сорцы в поисковиках, но их нет, так же, как и времени. Поэтому прошу в этом топике выкладывать кому что не жалко из специализированных сорцов.
Я сам искал код, позволяющий определить имена дисков присутствующих на компе, в паскале. Вот код:
пишу это для патча, который автоматически ищет заданные файлы по всему винту и патчит где находит. Переменную j желательно сделать глобальной, тогда не будет проблем при обращении к массиву имён дисков при поиске.
если считаете что боян или законченный оффтоп - ну извините, но нигде в нете не нашел.
без {$I-} не работает.
весь офтоп удалил
ИА, за что ему огромное спасибо! =)
Я сам искал код, позволяющий определить имена дисков присутствующих на компе, в паскале. Вот код:
Код: Выделить всё
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-} не работает.
весь офтоп удалил
