Текущий архив: 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.45 MB
Время: 0.034 c