Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.025 c
1-56046
Bigron
2002-10-08 11:53
2002.10.17
Проблема с печатью


1-56146
Jumbot
2002-10-04 18:13
2002.10.17
Как можно изменить системную дату и время?


14-56312
VictorT
2002-09-24 15:28
2002.10.17
*.swf банер


7-56378
Stuart
2002-08-09 15:22
2002.10.17
Серийный номер диска


14-56340
Nikolas ShmuS
2002-09-25 23:52
2002.10.17
КиШ