Скачать: CL | DM;

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 вся ветка

Скачать: CL | DM;



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