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

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