Текущий архив: 2004.12.26;
Скачать: 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 вся ветка
Текущий архив: 2004.12.26;
Скачать: CL | DM;
Память: 0.46 MB
Время: 0.037 c
