Загрузка программы

← →
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]

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

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

Пример:

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

> [7] begin...end

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

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