Форум: "Основная";
Текущий архив: 2004.05.30;
Скачать: [xml.tar.bz2];
Вниз
Загрузка программы Найти похожие ветки
← →
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;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.04 c
