|
|
![]() |
![]() |
![]() |
Как
можно проверить, запущена программа с локального диска или с сетевого
окружения, то есть с сети.
Нужно сделать проверку, если программу запустили из сети, то
выдать соответствующее сообщение и закрыть ее.
Вот пример:
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;
|
| Copyright ©
"Мастера DELPHI" E-mail:
delphi@mastak.com
http://www.delphimaster.ru |
| Источник получения информации: http://www.delphimaster.ru
|
|
