Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.05.30;
Скачать: CL | DM;

Вниз

Загрузка программы   Найти похожие ветки 

 
fish ©   (2004-05-15 12:46) [0]

Подскажите, как определить откуда поисходит запуск приложения!


 
begin...end ©   (2004-05-15 12:56) [1]

В смысле?


 
Goida ©   (2004-05-15 13:05) [2]

Тебе путь к ЕХЕшнику нужен? Тогда Application.EXEName


 
begin...end ©   (2004-05-15 13:07) [3]

Или ExtractFilePath(ParamStr(0))


 
fish ©   (2004-05-15 13:09) [4]

нет. У меня exe-файл. Он типа делает активизацию проги. Мне необходимо чтобы данный файл загружался только с дискеты.


 
begin...end ©   (2004-05-15 13:13) [5]

Ну тогда, используя те функции, которые тебе уже дали, получи имя диска, а потом проверь, что это за диск - флоппик, винчестер и т.д.


 
fish ©   (2004-05-15 13:32) [6]

Я использовл серийник диска, поэтому прога работает если дискета вставлена, однако если файл скопирован на машину, а дискета еще вставлена, то он запускается и с машины.
По поводу Application.EXEName спасибо. Впринципе то что нужно  покапаюсь.


 
begin...end ©   (2004-05-15 13:38) [7]

Пример:

var
 Drive: String;
begin
 Drive := Application.ExeName[1];
 Drive := Drive + ":\";
 if not (GetDriveType(PChar(Drive)) = DRIVE_REMOVABLE) then
   Application.Terminate;
end;


 
begin...end ©   (2004-05-15 13:40) [8]

> [7] begin...end

P.S. Плохой пример :)



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

Текущий архив: 2004.05.30;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.114 c
14-1083906842
Nickola2
2004-05-07 09:14
2004.05.30
С Днём Радио!


1-1084559440
Dhg
2004-05-14 22:30
2004.05.30
Как определить цвет пикселя.


14-1083896805
X9
2004-05-07 06:26
2004.05.30
Чат на Delphi


3-1084124067
normandia
2004-05-09 21:34
2004.05.30
Перекомпоновать таблицу в SQL запросе


14-1084447579
Knight
2004-05-13 15:26
2004.05.30
Старые песни о главном... о высокие технологии и тех кто рядом.