Текущий архив: 2002.11.28;
Скачать: 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 вся ветка
Текущий архив: 2002.11.28;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.01 c
