Как можно проверить, запущена программа с локального диска или с сетевого окружения, то есть с сети
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;
|
|
|
|
|
дизайн штор . устройство потолков подвесных . Продажа, аренда недвижимости - склад ответственного хранения. Управление запасами. . Правила регистрации фирм, предприятий, компаний. Регистрация фирм предприятий хорошая компания. . |
