Как работать с данными на CD?

← →
Ш-К (2007-03-13 02:35) [0]

Вполне обыкновенная ситуация. Есть приложение, которое инсталируется с CD. И есть данные, которые на этом CD лежат.
Про запуске установленного приложения, оно должно запросить компакт. И вот вопрос:
Как проверить, что компакт наличиствует и что это именно тот компакт?
Подобные приложения делают это независимо от буквы привода. И делают это как-то мягко. Такое ощущение, что совсем не ексепшену отсутствия файла.

← →
Джо © (2007-03-13 02:42) [1]

ExtractFilePath(ParamStr(0)) даст тебе папку, в которой находится твой исполнимый файл.

← →
Gero © (2007-03-13 02:52) [2]

Думаю, они перебирают все CD-устройства и смотрят на наличие на них нужных файлов.

← →
Германн © (2007-03-13 02:58) [3]

> Джо © (13.03.07 02:42) [1]

Конечно сказал правду. Но "гложат меня смутные сомнения" :)
В сабже есть
> Подобные приложения делают это независимо от буквы привода.

После осмысления этого сабж становится совершенно непонятным! :(

← →
Ш-К (2007-03-13 03:05) [4]

Джо © (13.03.07 02:42) [1]
Прошу прощения. Я говорю об установленном приложении, а не устанавливаемом.
Просто исполняемый файл, данные для которого лежат на CD. Мне нужно идентифицировать этот CD независимо от привода.

Gero © (13.03.07 02:52) [2]

> Думаю, они перебирают все CD-устройства и смотрят на наличие
> на них нужных файлов.

Что-то быстро они это делают. Может по метке диска сверяются?

← →
Джо © (2007-03-13 03:10) [5]

> [4] Ш-К (13.03.07 03:05)
> Что-то быстро они это делают. Может по метке диска сверяются?

Почему бы и нет.

← →
Джо © (2007-03-13 03:17) [6]

Или просто обращается к заранее известному файлу.

← →
Германн © (2007-03-13 03:19) [7]

> Джо © (13.03.07 03:10) [5]

<offtop>
Серёг, а сколько в Киеве стоит бутылка Хенесси? (ХО, VS, VSOP ) Хоть какая-нибудь из них?
</offtop>

← →
Джо © (2007-03-13 04:12) [8]

> [7] Германн © (13.03.07 03:19)
>
> > Джо © (13.03.07 03:10) [5]
>
> <offtop>
> Серёг, а сколько в Киеве стоит бутылка Хенесси? (ХО, VS,
> VSOP ) Хоть какая-нибудь из них?
> </offtop>

VS где-то до 150 гривень (500 мл).
Я в последнее время что-то на скотч перешел, вкуснее :) J. W. Black Label какой тут V.S. с ним сравнится? ;)

← →
Skyle © (2007-03-13 06:32) [9]

Я бы перебирал все диски в системе и на тех, которые CDROM, искал бы ключевой файл.

← →
eXPell © (2007-03-13 06:48) [10]

я как-то так вот делал, вроде работало:)
procedure TForm1.Image3Click(Sender: TObject); const disk:array[1..25] of string=("B","C","D","E","F","G","H","I","J","K","L","M","N","O","P","Q","R","S", "T","U","V","W","X","Y","Z"); var f:double; s,cod:string; h :LongInt; begin h:=1; repeat cod:=disk[h]; form1.ListBox1.Items.Add(filesearch("THUMS$S.avi",cod+":\ЯS\E\C\")); if listbox1.Items[h-1]="" then h:=h+1 else begin memo30.Lines.LoadFromFile(form1.ListBox1.Items[h-1]); label17.Caption:="1"; end; Until (label17.Caption="1") or (h=23); form1.ListBox1.Clear; if label17.Caption="0" then begin showmessage("Several files same short!"); form1.Close; end;

← →
eXPell © (2007-03-13 06:50) [11]

За memo30, label17 и пр. сильно не ругайте - так надо было тогда, да и по другому я не умел:)

← →
Думкин © (2007-03-13 06:59) [12]

И не лень массив создавать?
chr(ord(A)+h-1)?

> chr(ord(A)+h-1)?

chr(ord("A")+h-1)?

> eXPell © (13.03.07 06:48) [10]
> я как-то так вот делал, вроде работало:)
> procedure TForm1.Image3Click(Sender: TObject);
> const
> disk:array[1..25] of string=("B","C","D","E","F","G","H",
> "I","J","K","L","M","N","O","P","Q","R","S", "T","U","V",
> "W","X","Y","Z");

А как же GetLogicalDrives или GetLogicalDriveStrings?

> Skyle © (13.03.07 07:43) [14]

а на фик? насколько помнится необходимый файл просто искали по указанному пути, меняя только диски.
А ето самый файл нигде просто не мог находиться кроме как на CD. :)

ЗЫ. что-то в этом роде))))...

Как работать с данными на CD? Найти похожие ветки