Главная страница
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.011 c
6-56257
star
2002-08-15 22:11
2002.10.17
Как работать с почтой?


8-56242
Alex_MIB1
2002-06-15 20:22
2002.10.17
Подскажите правильно ли я делаю кнопки


1-56141
BillyJeans
2002-10-08 17:46
2002.10.17
Как вывести содержимое StringGrid в QReport?


3-55991
zks
2002-09-23 12:52
2002.10.17
ADO + MSSQL + D6


14-56302
billybons
2002-09-24 12:46
2002.10.17
help me