Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Как определить, находится ли файл в сети? [D6, Win95/98]

Виктор © (2002-06-14 22:28:00)
s := "e:\base\my.dat";
b := isNetFile(s);

Как реализовать функцию isNetFile(), чтобы она возвращала True, если e: - подключенный сетевой диск?

Виктор (2002-06-14 23:16:00) [1]
спасибо, теперь мне ясно.

jedi (2002-06-14 23:08:00) [2]
var
i: Integer;
C: String;
DType: Integer;
DriveString: String;
begin
for i := 65 to 90 do
begin
C := chr(i)+":\";
DType := GetDriveType(PChar(C));
case DType of
0: DriveString := C+" The drive type cannot be determined.";
1: DriveString := C+" The root directory does not exist.";
DRIVE_REMOVABLE: DriveString :=
C+" The drive can be removed from the drive.";
DRIVE_FIXED: DriveString :=
C+" The disk cannot be removed from the drive.";
DRIVE_REMOTE: DriveString :=
C+" The drive is a remote (network) drive.";
DRIVE_CDROM: DriveString := C+" The drive is a CD-ROM drive.";
DRIVE_RAMDISK: DriveString := C+" The drive is a RAM disk.";
end;
if not ((DType = 0) or (DType = 1)) then
lbDrives.Items.Add(DriveString);
end;

end;

jedi (2002-06-14 23:06:00) [3]
C: String;
DType: Integer;
DriveString: String;

begin
C := chr(i)+":\";
DType := GetDriveType(PChar(C));
case DType of
0: DriveString := C+" The drive type cannot be determined.";
1: DriveString := C+" The root directory does not exist.";
DRIVE_REMOVABLE: DriveString :=
C+" The drive can be removed from the drive.";
DRIVE_FIXED: DriveString :=
C+" The disk cannot be removed from the drive.";
DRIVE_REMOTE: DriveString :=
C+" The drive is a remote (network) drive.";
DRIVE_CDROM: DriveString := C+" The drive is a CD-ROM drive.";
DRIVE_RAMDISK: DriveString := C+" The drive is a RAM disk.";
end;

end;

Виктор (2002-06-14 22:44:00) [4]
а как узнать - локальный диск или сетевой?

jedi (2002-06-14 22:30:00) [5]
Naverno mojno sna4ala uznat" na kokom diske sidit file potom uznat" kakoi disk: lokalnii ili setevoi...

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »