Скачать: CL | DM;

Как определить, что запуск приложения произвели с CD-ROM?   Найти похожие ветки 

← →
brestmarket   (2002-09-26 15:14) [0]

Как определить, что запуск приложения произвели с CD-ROM?

---

← →
Song ©   (2002-09-26 15:23) [1]

Вырезать из строки запуска букву диска и проверить её с помощью GetDriveType()

---

← →
brestmarket   (2002-09-26 15:31) [2]

А другие способы существуют?

---

← →
Antonius ©   (2002-09-27 15:40) [3]

Думаю нет. Все что программа знает о том, откуда ее запустили - это путь и имя экзешника. Проще всего их взять paramstr(0).

---

← →
Delphi 5.01   (2002-09-27 18:30) [4]

Est esho odno reshenie,i ochen logkoie, raz proga zapushena s kompakta znachit nelza tam zapis delat, a znachit i fail sozdavat ne poluchitsa, nu vot delaesh tipa

{I-} //otrubaem proverku na oshibki
AssgnFile(OutPut,Application.ExeName+".bk");
ReWrite(OutPut);
Err:=IOResult;
if Err=0 then
begin
ShowMessage("Progu zapustili s vinchestera!")
DeleteFile(Application.ExeName+".bk");
end else
ShowMessage("Fail ne sozdalsa a znachit mi na kompakte!");
CloseFile(OutPut);
{I+} //razreshaem proverku osibok

---

← →
Dot ©   (2002-09-28 09:23) [5]

iна дискете тоже самое если замкнуть
imo гораздо легче сказал Antonius
if getdrivetype(PChar(ExtractFileDrive(ParamStr(0))+"\")) = 5 then
begin
{на сдроме}
end
ExtractFileDrive можно свистнуть из сисютильс или сделать самому

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.013 c