Contributor: BO BENDTSEN
{
BO BendTSEN> There's already a methode For finding all available drives without> accessing them - I'd like to have one to get the volume Labels of the> harddisks, SUBST- and network-drives without waiting seconds While the> Program accesses all the 20 drives available in my system ... ;-)
Try this, it will show any SUBST drives, if a \\ first in the name is returned
you will have a network server name following.
}
Uses
Dos;
Function ResolvePath(Var s : String) : Boolean;
Var
r : Registers;
x : Byte;
begin
ResolvePath := False;
s := s + #0;
r.ds := Seg(S);
r.si := Ofs(S) + 1;
r.es := Seg(S);
r.di := Ofs(S) + 1;
r.ah := 60ドル;
Intr(21,ドル R);
If r.flags and 1 = 1 Then
Exit; { if ZF set then error }
ResolvePath := True;
x := 0;
While (s[x + 1] #0) And (x < 128) Do
Inc(x);
s[0] := Chr(x);
end;
Var
DriveName : String;
begin
DriveName := 'C';
Writeln(ResolvePath(DriveName));
Writeln(DriveName);
end.