Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.06.13;
Скачать: CL | DM;

Вниз

CD-ROM   Найти похожие ветки 

 
SergeyM   (2004-05-07 20:07) [0]

Народ приветик!  
Чето я в тупике, подскажите как, т.е. с помощью каких функций API или может быть других, уже незнаю, мне добраться до CD-ROMa и прочитать содержимое диска. ShellTreeView не подходит, нужно программным путем. Желательно примерчик или ссылку на ресурс с расшифровкой.


 
Jack128 ©   (2004-05-07 20:09) [1]

createfile/readfile/writefile


 
SergeyM   (2004-05-07 20:37) [2]

Хорошо щас попробую.
Но если возможно то хотябы коротенький пример дайте.


 
Jack128 ©   (2004-05-07 20:53) [3]

лень :-)  Те обязательно на апи? Стандартные паскалевские процедуры не катят?

var
 f: file;
 s: string;
begin
 AssignFile(f, "d:\test.dat");
 reset(f, 1);
 SetLength(s, FileSize(f));
 BlockRead(f, PChar(s)^, Length(s));
 CloseFile(f);
end;


 
SergeyM   (2004-05-07 21:13) [4]

Да мне в принципе всеравно, т.к. я енто еще ни как делать не умею. Т.е. ни разу не пробовал добраться до CD-ROMa


 
Jack128 ©   (2004-05-07 21:30) [5]


> ни разу не пробовал добраться до CD-ROMa

а ты что, считаешь что файлы на сидюке чем то отличаются от файлов на винте???


 
SergeyM   (2004-05-07 21:43) [6]

Да нет,  я как раз щас пробую так:
сначало GetLocgicalDrives
затем в цикле проверяю СДюшник это или нет
потом наверное через SetCurrentDirectory встану на текущий каталог и в цикле считаю все содержимое диска.
Но на диске ведь дофига всякого мусора, как мне отфильтровать нужные расширения например exe, bmp, jpg,mp3 и др.

Так как ты думаешь так прокатит?


 
Jack128 ©   (2004-05-07 22:08) [7]

сделаешь вот это:

> Да нет,  я как раз щас пробую так:
> сначало GetLocgicalDrives
> затем в цикле проверяю СДюшник это или нет

а теперь уже не важно сидюк это или винт, схема одинаковая

> Так как ты думаешь так прокатит?
пока нет реального кода - не знаю ;-)


 
SergeyM   (2004-05-07 22:23) [8]

Слушай чето я не вкурил а как я узнаю конец диска?


 
Jack128 ©   (2004-05-07 22:27) [9]

в faq ищи пример с FindFirst/FindNext


 
SergeyM   (2004-05-07 22:44) [10]

Как раз я только что енто пробовал, но обломался. Пошел в FAQ.


 
Alex Konshin ©   (2004-05-07 23:45) [11]

FindClose не забудь



Страницы: 1 вся ветка

Текущий архив: 2004.06.13;
Скачать: CL | DM;

Наверх




Память: 0.49 MB
Время: 0.045 c
11-1074872156
=Sniper=
2004-01-23 18:35
2004.06.13
Как мне установить каретку в RichEdir на позицию например 11?


1-1085773815
DIS
2004-05-28 23:50
2004.06.13
ориентацию бумаги перед печатью


3-1085203949
Крутыш
2004-05-22 09:32
2004.06.13
Где найти инфу на русском языке


1-1086069212
din
2004-06-01 09:53
2004.06.13
Как работает функция DayOfWeek


1-1085675639
Подкрадуха
2004-05-27 20:33
2004.06.13
Сохранение класса в файл...