Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.011 c
7-2704
Mewerik
2002-01-30 15:39
2002.05.02
Помогите плизззз!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!


6-2633
VID
2002-02-16 19:30
2002.05.02
Отлов появления коннекта


1-2514
f0rm
2002-04-16 23:52
2002.05.02
Ну помогите же!


3-2476
XanderMan
2002-04-10 20:38
2002.05.02
Медленно работает метод TIBTable.Locate


3-2471
Demon Ltd
2002-04-11 01:07
2002.05.02
Стаж в базе