Текущий архив: 2002.05.02;
Скачать: CL | DM;

Вниз

Сетевые диски   Найти похожие ветки 

← →
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;
Скачать: CL | DM;

Наверх

Память: 0.46 MB
Время: 0.006 c