TDriveType, dtFixed, dtNetWork [D6, Win95/98]
Dr. Genius © (2004-10-14 09:50:00)
В дайджесте этого сайта была опубликована следующая ф-ия,
позволяющая проверить, запущена программа с локального диска или с
сетевого окружения, то есть с сети:
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:00) [1]
FileCtrl
Наверх 
ЧАТ |
Орешник |
|
