Как можно проверить, запущена программа с локального диска или с сетевого окружения, то есть с сети
Издевательство над сис.админом: "Заходи, гостем будешь..."
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;
Статья Как можно проверить, запущена программа с локального диска или с сетевого окружения, то есть с сети раздела Интернет и Сети Сеть может быть полезна для разработчиков на Delphi и FreePascal.
Комментарии и вопросы
Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.