Как определить, находится ли файл в сети?

← →
Виктор (2002-06-14 22:28) [0]

s := "e:\base\my.dat";
b := isNetFile(s);

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

← →
jedi (2002-06-14 22:30) [1]

Naverno mojno sna4ala uznat" na kokom diske sidit file potom uznat" kakoi disk: lokalnii ili setevoi...

← →
Виктор (2002-06-14 22:44) [2]

а как узнать - локальный диск или сетевой?

← →
jedi (2002-06-14 23:06) [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;

← →
jedi (2002-06-14 23:08) [4]

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;

← →
Виктор (2002-06-14 23:16) [5]

спасибо, теперь мне ясно.

Как определить, находится ли файл в сети? Найти похожие ветки