Форум: "Сети";
Текущий архив: 2002.05.02;
Скачать: [xml.tar.bz2];
ВнизСетевые диски Найти похожие ветки
← →
cypher (2002-02-18 18:19) [0]Уважаемые мастера, каким образом я могу перечислить все сетвые диски на моей машине? А так же можно ли как-нибуть перечислить все сетвые подключения с моей машины на другие компы.. имеется ввиду только доступ к рашареным компонентам ( с кем я устновил связь, какой файл использую и пр.)
← →
Dimka Maslov (2002-02-19 18:55) [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;
Страницы: 1 вся ветка
Форум: "Сети";
Текущий архив: 2002.05.02;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.004 c