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

Вниз

Узнать, кто - нибудь пользуется файлами из расшареной папки   Найти похожие ветки 

← →
FireWorks ©   (2002-10-08 13:00) [0]

1) возможны такие варианты, узнать, как либо - используется ли файл
2) узнать, кто-нить пользуется ресурсом общей папки
3) папка на локальном компе (на моем)

---

← →
Игорь Шевченко ©   (2002-10-08 13:02) [1]

Пример:

procedure TfrmMain.PrintNetFiles;
type
PFileInfo3 = ^TFileInfo3;
var curw : PFileInfo3;
bufw : Pointer;
rc, read, total, resumeh : Cardinal;
I : Integer;
LI : TListItem;
begin
lvFiles.Items.Clear();
resumeh := 0;
repeat
bufw := nil;
rc := NetFileEnum(LPWSTR(FServerName), nil, nil, 3,
bufw, 2048, read, total, @resumeh);
if (rc <> ERROR_MORE_DATA) AND (rc <> ERROR_SUCCESS) then
Break;
curw := PFileInfo3(bufw);
for I:=0 to Pred(read) do begin
LI := lvFiles.Items.Add();
LI.Caption := curw^.fi3_username;
LI.SubItems.Add(curw^.fi3_pathname);
Inc(curw);
end;
if bufw <> nil then
NetApiBufferFree(Pointer(bufw));

until rc <> ERROR_MORE_DATA;
if (rc <> ERROR_SUCCESS) then
RaiseLastWin32Error;
end;



---

Страницы: 1 вся ветка

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

Наверх

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