Все бесплатно
    Все ссылки на файлы, расположенные на страницах сайта, добавлены пользователями и доступны для бесплатного скачивания. За содержание этих файлов администрация сайта ответственности не несет.



Вопросы
  Компонент MainMenu
   Категория: Компоненты
  Cколько файлов есть в определённой папке
   Категория: Файловая система
  Найти все компьютеры в сети
   Категория: Интернет и Сети
  Замена подстроки в строке
   Категория: Текст и строки
  Программно скрыть MainMenu
   Категория: Компоненты
  Как нарисовать календарь
   Категория: Текст и строки
  Компоненты ToolBar и PageScroller
   Категория: Компоненты
  Компонент SpeedButton
   Категория: Компоненты
  Быстрое копирование файлов
   Категория: Файловая система
  Отступ в Memo
   Категория: Компоненты
Delphi - База Знаний: Как можно проверить, запущена программа с локального диска или из сети

  << Вернуться к Содержанию  

var
  DriveType: DWORD;  //TDriveType
  DriveChar: string;
begin
  DriveChar:=ExtractFileDrive(ParamStr(0));
  DriveType:=GetDriveType(PChar(DriveChar + ''));
  case driveType of
    dtFixed: ShowMessage('Fixed ' + DriveChar + '');
    DRIVE_REMOTE: ShowMessage('NetWork ' + DriveChar + '');
  end;
end;
{
TDriveType Value Meaning
0 The drive type cannot be determined.
1 The root directory does not exist.
DRIVE_REMOVABLE The drive can be removed from the drive.
DRIVE_FIXED The disk cannot be removed from the drive.
DRIVE_REMOTE The drive is a remote (network) drive.
DRIVE_CDROM The drive is a CD-ROM drive.
DRIVE_RAMDISK The drive is a RAM disk.
}
  << Вернуться к Содержанию