Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

CD-ROM [D7, WinXP]

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

Alex Konshin (2004-05-07 23:45:00) [1]
FindClose не забудь

SergeyM (2004-05-07 22:44:00) [2]
Как раз я только что енто пробовал, но обломался. Пошел в FAQ.

Jack128 (2004-05-07 22:27:00) [3]
в faq ищи пример с FindFirst/FindNext

SergeyM (2004-05-07 22:23:00) [4]
Слушай чето я не вкурил а как я узнаю конец диска?

Jack128 (2004-05-07 22:08:00) [5]
сделаешь вот это:

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

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

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

SergeyM (2004-05-07 21:43:00) [6]
Да нет, я как раз щас пробую так:
сначало GetLocgicalDrives
затем в цикле проверяю СДюшник это или нет
потом наверное через SetCurrentDirectory встану на текущий каталог и в цикле считаю все содержимое диска.
Но на диске ведь дофига всякого мусора, как мне отфильтровать нужные расширения например exe, bmp, jpg,mp3 и др.

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

Jack128 (2004-05-07 21:30:00) [7]

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

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

SergeyM (2004-05-07 21:13:00) [8]
Да мне в принципе всеравно, т.к. я енто еще ни как делать не умею. Т.е. ни разу не пробовал добраться до CD-ROMa

Jack128 (2004-05-07 20:53:00) [9]
лень :-) Те обязательно на апи? Стандартные паскалевские процедуры не катят?

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 20:37:00) [10]
Хорошо щас попробую.
Но если возможно то хотябы коротенький пример дайте.

Jack128 (2004-05-07 20:09:00) [11]
createfile/readfile/writefile

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »