Форум: "Сети";
Текущий архив: 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.043 c