Проверка: Откуда запущена прога...

← →
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, для надежности

Спасибо большое всем!

Проверка: Откуда запущена прога... Найти похожие ветки