Сетевые диски
cypher © (2002-02-18 18:19:00)
Уважаемые мастера, каким образом я могу перечислить все сетвые
диски на моей машине? А так же можно ли как-нибуть перечислить все
сетвые подключения с моей машины на другие компы.. имеется ввиду
только доступ к рашареным компонентам ( с кем я устновил связь,
какой файл использую и пр.)
Dimka Maslov (2002-02-19 18:55:00) [1]
procedure GetRemoteDriveList(const List: TStrings);
var
Size, Pos: Cardinal;
Buffer: array[0..127] of AnsiChar;
P: PChar;
begin
List.BeginUpdate;
try
List.Clear;
Size:=GetLogicalDriveStrings(SizeOf(Buffer), Buffer);
Pos:=0;
while Pos<Size do begin
P:=@Buffer[Pos];
if GetDriveType(P) = DRIVE_REMOTE then List.Add(P);
while Buffer[Pos]<>#0 do Inc(Pos);
Inc(Pos);
end;
finally
List.EndUpdate;
end;
end;
Наверх 
ЧАТ |
Орешник |
|
