Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Как определить, что запуск приложения произвели с CD-ROM? [D6, Win95/98, WinME, NT4, Win2k, WinXP]

brestmarket © (2002-09-26 15:14:00)
Как определить, что запуск приложения произвели с CD-ROM?

Dot (2002-09-28 09:23:00) [1]
iна дискете тоже самое если замкнуть
imo гораздо легче сказал Antonius
if getdrivetype(PChar(ExtractFileDrive(ParamStr(0))+"\")) = 5 then
begin
{на сдроме}
end
ExtractFileDrive можно свистнуть из сисютильс или сделать самому

Delphi 5.01 (2002-09-27 18:30:00) [2]
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

Antonius (2002-09-27 15:40:00) [3]
Думаю нет. Все что программа знает о том, откуда ее запустили - это путь и имя экзешника. Проще всего их взять paramstr(0).

brestmarket (2002-09-26 15:31:00) [4]
А другие способы существуют?

Song (2002-09-26 15:23:00) [5]
Вырезать из строки запуска букву диска и проверить её с помощью GetDriveType()

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »