Delphirus - прграммирование на delphi
   Все о delphi Delphirus - прграммирование на delphi
blocks.gif
Навигация
 

Главная
Статьи
Базы данных
Графика
Защита
Интернет
Система
Тексты
Мультимедиа
Файлы
Формы и окна
Другое
Советы
Базы данных
Графика
Интернет
Мультимедиа
Система
Тексты
Файлы
Файлы
Исходники
Компоненты
Инфо
Поиск по сайту
Обратная связь
Самое популярное
Аккаунт
Карта сайта

 
 
 

Советы по delphi \ Интернет и сети \ Сеть \ Как можно проверить, запущена программа с локального диска или с сетевого окружения, то есть с сети

Как можно проверить, запущена программа с локального диска или с сетевого окружения, то есть с сети

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;

Название: Как можно проверить, запущена программа с локального диска или с сетевого окружения, то есть с сети
Дата публикации: 2004-09-03 (2297 Прочтено)

 
 

 

Page generation 0.033 seconds