Форум: "Сети";
Текущий архив: 2004.12.26;
Скачать: [xml.tar.bz2];

Вниз

TDriveType, dtFixed, dtNetWork   Найти похожие ветки 

← →
Dr. Genius   (2004-10-14 09:50) [0]

В дайджесте этого сайта была опубликована следующая ф-ия, позволяющая проверить, запущена программа с локального диска или с сетевого окружения, то есть с сети:

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 выдает сообщение, что TDriveType, dtFixed, dtNetWork - это Undeclared Identifier"ы. Какой модуль надо подключить, чтобы работали эти идентификаторы?

---

← →
Rouse_ ©   (2004-10-14 10:57) [1]

FileCtrl

---

Страницы: 1 вся ветка

Форум: "Сети";
Текущий архив: 2004.12.26;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.032 c