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

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

← →
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 можно свистнуть из сисютильс или сделать самому

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