CDROM

← →
ruslan © (2004-07-17 14:15) [0]

Zdravstvuyte
Naprimer v komputere est 2-a ili 3 cdrom-a (imya cd ustroystv e:, f:, g: ). Dopustim napisali proqrammu i tam medya pleer budet obrasaetsya k faylu katoriy naxoditsya vmesto s etoy proqrammoy v CD
Kak mojno sdelat tak cto nezavisimo v kakom cdrome (e:, f:, g:) naxoditsya nas cd s proqrammoy ona vipolnyalos?

"#:\"--- imya cdroma

MediaPlayer1.Filename :="#:\"+"\vid\primer.avi";

Zaranie blaqodaryu.

← →
cyborg © (2004-07-17 14:57) [1]

Подставляешь буквы сидюков и FileExists()

← →
ruslan © (2004-07-17 15:16) [2]

cybord privet
Подставляешь буквы сидюков --- kak ya moqu uqadat u tebya cdr na kakom bukve lejit? Mne nado cto v lyubom kompyutere ona opredelyala cto na kakom cdr naxoditsya cd.

I eso prozba FileExists() kak mojno ispolzovat v ninem primer napisi.

MediaPlayer1.Filename :="#:\"+"\vid\primer.avi";

Spasibo.

← →
cyborg © (2004-07-17 15:20) [3]

http://delphibase.endimus.com/?action=viewfunc&topic=harddisk&id=10139

if FileExist("C:\games\tumbaumba\readmy.txt") then работаем_с_ним

← →
Baron © (2004-07-17 15:22) [4]

if fileexists("c:\file.txt") = true then
файл есть.
else
файла нет.

← →
ruslan © (2004-07-17 15:52) [5]

cybord Sposibo na sisilke vrode cto to est.

Baron tebe toje blaqodaryu
if fileexists("c:\file.txt") = true then
файл есть.
else
файла нет.

eto vse yasno zdes je imya ustroystva ukazivaetsya yavno. Ya xocu cto bi proqramma sama nasla na kakom cdrome ono naxoditsya?
sposibo

← →
cyborg © (2004-07-17 16:11) [6]

Думать иногда тоже полезно!

Var CDRoms : String; i : Longint; ... CDRoms:=GetDisks(DiskHDD); For i:=1 to Length(CDRoms) do if FileExists(CDRoms[i]+":\vid\primer.avi") then begin Нашли твой файл, играем его. Break; end;

← →
cyborg © (2004-07-17 16:12) [7]

ошибка, вместо
CDRoms:=GetDisks(DiskHDD);
пиши
CDRoms:=GetDisks(DiskCDROM);

← →
Profi © (2004-07-17 19:09) [8]

А не проще Getdir(driver,path) сделать?

← →
ruslan © (2004-07-18 16:17) [9]

Думать иногда тоже полезно!
Ya olnostyu saqlasen s toboy no inoqda skolko demaesh daje mozq nacinaet kipet. Vot toqda i nuzen xorosiy sovet.

Principe ya po druqomu naxoju CDROM kak ya xocu. No delo v tom cto koqda v kompyutere ne ckolko CDROM CD disk doljen naxoditsya v poslednim to est ono opredelyaet posledniy CDROM.

Teper opyat obyasnyayu vopros.
Mne nodo nayti v kakom iz trex Cdrome naxoditsya moy CD s proqrammoy katoriy ya napisal i nazvanie etoqo CDroma priosvaivat v strokovuyu peremennuyu(naprimer cd: string)
Potomu cto v proqramme naprimer MediaPlayer1 obrasaetsya k faylu ???:\vid\primer.avi

A dalse eto peremennaya budet imenom toqo CDROMA

MediaPlayer1.Filename := "cd"+":\"+"\vid\primer.avi";

SPOSIBO

← →
Бином Ньютоныч (2004-07-18 16:50) [10]

MediaPlayer1.Filename :=ExtractFileDrive(ParamStr(0)) + "\vid\primer.avi";

← →
ruslan © (2004-07-18 17:38) [11]

Бином Ньютоныч
BOLSAYA SPOSIBO OCEN TOCNIY OTVET.

Esle mojno eso odin vorpos mojno li kak to ukazat tak
MediaPlayer1.Filename :=???????? + "\vid\primer.avi"; cto ona na lyubom ustroystve (i lyubom HDD i na libom CDROM)rabotal.

SPOSIBO VAM

← →
Бином Ньютоныч (2004-07-18 19:28) [12]

Бином Ньютоныч

[10] vse pravilno i tocno. Rabotaet prekrasno s CDROM ustroystvami (naprimer iz 3-x CDROM ustroystv na kakoy xocesh polojish CD ono rabotaet). Eto otvet polnostyu otvecaet na moy 1 vopros.

[11]Naverno ya ne pravilno obyasnil ceqo ya xocu.

Vasim otvetam dopustim
....
LYUBOYCDR:="ExtractFileDrive(ParamStr(0))";
......
MediaPlayer1.Filename :=LYUBOYCDR+ "\vid\primer.avi";
.....
TO EST NEZAVISIMA NA KOKOM CDR NAXODITSYA PROQRAMMA ONA RABOTAET.ETO VSE PRAVILNO I NET SOMNENIE

Teper ya zadayu druqoy vopros

LYUBOYCDR:="ExtractFileDrive(ParamStr(0))";
HDDC:="c:";
HDDD:="d:";
HDDE:="e:";
................

MediaPlayer1.Filename :=LYUBOYCDR+ "\vid\primer.avi";

TEPER ESLI PROQRAMMA NAXODITSYA NA HDD C: TO NADO UKAZAT
......HDDC+ "\vid\primer.avi";

A ESLI NA d: TO NADO UKAZAT .......... HDDD+ "\vid\primer.avi";

KAK MOZNO ISPOLZOVAT ODNU PEREMENNUYU DLYA VSEX HDD i CDR USTROYSTV?

LYUBOYhddIcdr:="??????????cto mojno syuda napisat vmeste ExtractFileDrive(ParamStr(0))";

.................

MediaPlayer1.Filename :=LYUBOYhddIcdr+ "\vid\primer.avi";

TO EST PROQRAMMA DOLJEN VIPOLNYATSYA I NA HDD I NA CDR (ucitivaya cto i na HDD budet katoloq i fayl \vid\primer.avi)

SPOSIBO

Блин, охренеть, как так можно писать - транслитом и ещё без знаков припинания абсолютно. Люди которые отвечали - просто герои (у них хватило терпения всё это прочитать ...)

извините что не в тему :(

> [13] ruslan © (19.07.04 10:58)

Тебе уже вроде всё рассказали, не пойму чего ещё надо?

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

Slider007.
Ya toje dumayu te lyudi kotorie terpit i otvecaet na vse voprosi oni qeroi. Za etoqo mi (kotorie zadaem voprosi) im bloqadarni.

BOLSAYA SPOSIBO VSEM.

Бином Ньютоныч i cyborg a Vam osbo bloqadaryu za tocniy otvet.

Ya dumayu temu mojno zakrit.

CDROM Найти похожие ветки