VPF::Как определить в каком CD-Rom приводе

Poseidon

Дата 17.3.2006, 20:29 (ссылка)

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

Загрузка ...

Delphi developer

Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

Репутация: 53
Всего: 133

Цитата(Snowy @ 17.3.2006, 18:51

)

var
i: integer;
s: string;
begin
s := GetCDExist;
for i := 1 to Length(s) do
CopyFile(PChar(s[i] + ':\File.txt'), 'C:\File.txt', false);
end;

Я бы еще добвил if FileExists(PChar(s[i] + ':\File.txt') then CopyFile... smile

Это сообщение отредактировал(а) Poseidon - 17.3.2006, 20:30

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

Если хочешь, что бы что-то работало - используй написанное,
если хочешь что-то понять - пиши сам...

Snowy

Дата 17.3.2006, 21:24 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484

Цитата(Poseidon @ 17.3.2006, 20:29

)

if FileExists

Можно. Но необязательно.
Если файла не будет, то и копировать не будет.
Просто вернет 0. Ну и фиг с ним.

bems

Дата 17.3.2006, 22:41 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 3400
Регистрация: 5.1.2006

Репутация: 31
Всего: 88

Цитата(Snowy @ 17.3.2006, 21:24

)

Если файла не будет, то и копировать не будет.
Просто вернет 0. Ну и фиг с ним.

тогда и все 26 букв перебрать можно. нету диска ну и фиг с ним

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

Обижено школьников: 8

Snowy

Дата 17.3.2006, 23:53 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484

Цитата(bems @ 17.3.2006, 22:41

)

тогда и все 26 букв перебрать можно. нету диска ну и фиг с ним

Можно. Но не обязательно.
И так и перетак, но работать будет.
Вариации всякие возможны. Я представил свою. Она мне нравится.
Но и шаг влево и вправо - не преступление.

Guedda

Дата 18.3.2006, 02:56 (ссылка)

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

Загрузка ...

Подрывник

Профиль
Группа: Завсегдатай
Сообщений: 3137
Регистрация: 27.12.2005
Где: Ростов-на-Дону

Репутация: 14
Всего: 78

Если он будет перебирать все буквы, тогда есть вероятность того, что файлсуществует на локальном диске, а не на CD-роме. Так что Snowy прав, и этот вариант подходит лучше всего.

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

Ll 2

bems

Дата 19.3.2006, 09:33 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 3400
Регистрация: 5.1.2006

Репутация: 31
Всего: 88

Цитата(Guedda @ 18.3.2006, 02:56

)

Если он будет перебирать все буквы, тогда есть вероятность того, что файлсуществует на локальном диске, а не на CD-роме. Так что Snowy прав, и этот вариант подходит лучше всего.

Цитата(Snowy @ 17.3.2006, 20:14

)

GetDriveType(...) = DRIVE_CDROM

но в общем

Цитата(Snowy @ 17.3.2006, 23:53

)

Вариации всякие возможны. Я представил свою. Она мне нравится.

Так что давайте попітаемся остановиться smile

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

Обижено школьников: 8

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