| Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате |
| Форум программистов > Delphi: Общие вопросы > CD и файлы |
| Автор: Genry 9.11.2002, 08:15 |
| Привет!!! 1. Скажите плиzzzzzzzz... Как узнать есть ли на машине CD-ROM. и какое у него имя (E:,F:,....); И если есть виртуальный диск, как узнать что он виртуальный? 2. Как узнать когда последний раз обращались к файлу?... (просто обращение, не изменение, не создание)... Большое спасибо... |
| Автор: Vit 9.11.2002, 08:27 |
| Moderator: пожалуйста 1 топик - 1 вопрос. 1.GetLogicalDrives() GetDriveType() 2. Посмотри в нашем FAQ, я там пример приводил: http://www.forum.vingrad.ru/cgi-bin/newforum/ikonboard.cgi?act=ST;f=32;t=1924 |
| Автор: Alex 9.11.2002, 17:14 |
| procedure TForm1.Button2Click(Sender: TObject); var typ: integer; // Тип диска Drive: char; // Буква диска begin ListBox1.Items.Clear; for Drive:='A' to 'Z' do begin typ:=getdrivetype(pchar(Drive+':\')); if (typ=DRIVE_CDROM) then begin ListBox1.Items.add(Drive + ':\'); end; end; end; |