Как можно проверить, запущена программа с локального диска или с сетевого окружения, то есть с сети
Издевательство над сис.админом: "Заходи, гостем будешь..."
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.
