VPF::CD и файлы - Форум программистов

Genry

Дата 9.11.2002, 08:15 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Привет!!!
1. Скажите плиzzzzzzzz... Как узнать есть ли на машине CD-ROM. и какое у него имя (E:,F:,....); И если есть виртуальный диск, как узнать что он виртуальный?
2. Как узнать когда последний раз обращались к файлу?... (просто обращение, не изменение, не создание)...

Большое спасибо...

Vit

Дата 9.11.2002, 08:27 (ссылка)

(нет голосов)

Загрузка ...

Vitaly Nevzorov

Профиль
Группа: Экс. модератор
Сообщений: 10964
Регистрация: 25.3.2002
Где: Chicago

Репутация: 48
Всего: 207

Moderator: пожалуйста 1 топик - 1 вопрос.

1.GetLogicalDrives()
GetDriveType()

2. Посмотри в нашем FAQ, я там пример приводил:
http://www.forum.vingrad.ru/cgi-bin....;t=1924

--------------------

With the best wishes, Vit
I have done so much with so little for so long that I am now qualified to do anything with nothing
Самый большой Delphi FAQ на русском языке здесь: www.drkb.ru

Alex

Дата 9.11.2002, 17:14 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Экс. модератор
Сообщений: 4147
Регистрация: 25.3.2002
Где: Москва

Репутация: 80
Всего: 162

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;

--------------------

Написать можно все - главное четко представлять, что ты хочешь получить в конце.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »