Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.01.28;
Скачать: [xml.tar.bz2];
Вниз
Проверка: Откуда запущена прога...
Reals (2002-01-10 11:21) [0]Здраствуйте! Подскажите,
Как можно проверить, запущена программа с локального диска или с сетевого окружения, то есть с сети.
Нужно сделать проверку, если программу запустили из сети, то выдать соответствующее сообщение и закрыть ее.
Зраранее благодарен.
Romkin (2002-01-10 11:40) [1]GetModuleFileName - а дальше проверяешь путь
Sail (2002-01-10 11:53) [2]Полный путь (имя файла) можно определить, используя ф-ю API
GetModuleFilename, передав ей в качестве первого параметра Nil(0, null)..
Остается затем определить, является ли диск, указанный в пути сетевым или локальным
:-)
panov (2002-01-10 12:30) [3]"Остается затем определить, является ли диск, указанный в пути сетевым или локальным"
Я думаю, что в этом то и заключается проблема.
А полный путь значительно проще определить, воспользовавшись ParamStr(0) или Application.ExeName
Наталья (2002-01-10 13:18) [4]
var DriveType:TDriveType;
DriveChar:string;
begin
DriveChar:=ExtractFileDrive(ParamStr(0));
DriveType:=TDriveType(GetDriveType(PChar(DriveChar+"\")));
Case driveType of
dtFixed : ShowMessage("Fixed "+DriveChar+"\");
dtNetWork :ShowMessage("NetWork "+DriveChar+"\");
end;
end;
Romkin (2002-01-10 13:35) [5]Ага, а если путь \\server\... ?
наверно, только дополнительно проверять на \\, а перед ExtractFileDrive поставить ExpandFileName, для надежности
Наталья (2002-01-10 14:12) [6]>Romkin © (10.01.02 13:35)
Почему ты так решил?
Для Win2000 код не нуждается ни в каких дополнениях.
Reals (2002-01-11 13:58) [7]Спасибо большое всем!
Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.01.28;
Скачать: [xml.tar.bz2];
Память: 0.72 MB
Время: 0.019 c
