Как получить список открытых по сети файлов на удаленном компьютере?

[DmitryZ]

Пожалуйста помогите

[Stilet]

Делал когда-то такое... забыл правда как, поищу, но помоему там через NetFileEnum

Вот нашел, только как пример.

var j,i:integer; FileInfoNT: PFileInfo3Array;

 a, TotalEntriesF,EntriesReadF: DWORD;
  EntriesRead,TotalAvial: Word;
 ui,e:string;ext:string;  tf:TFileInfo3;   nr:_NETRESOURCEA;
begin
 caption:='fdsf';
EntriesReadF:=0;
EntriesRead:=0;
TotalEntriesF:=0;
TotalAvial:=0;
TotalEntries:=0;
 if NetFileEnum(Тут имя компа,nil,nil,3,@FileInfoNT,DWORD(-1),@entriesreadF, @totalentriesF, nil)=0 then begin
   //********* FOR ******************
  j:=1;
  for j:=0 to EntriesReadF-1 do   begin      {}
   if FileInfoNT<>nil then begin
    begin
    ext:=ExtractFileExt(FileInfoNT[j].fi3_pathname);
    delete(ext,1,1);
     e:='      '+FileInfoNT[j].fi3_username+'     '+
    {se[0].Sesi502_cname+}'    '+FileInfoNT[j].fi3_pathname{+
     ' ('+LoginFullName(FileInfoNT[j].fi3_username,'servernt')+')'};
       if {at(Edit1.Text,ext)<>0ext='exe'}pos(LowerCase(ext),LowerCase(Edit1.Text))=0 then begin
          if CheckBox1.Checked then begin
           NetFileClose(nil,FileInfoNT[j].fi3_id);
           WNetCancelConnection2(Pchar('\\'+FileInfoNT[j].fi3_pathname),0,true);
           e:='БАН - '+e;
          end;
          if (FileInfoNT[j].fi3_permissions and 4<>0) then ui:=ui+'Создан';
          if (FileInfoNT[j].fi3_permissions and 2<>0) then ui:=ui+' Записан';
          if (FileInfoNT[j].fi3_permissions and 1<>0) then ui:=' Прочитан';
          if (CheckBox2.Checked)and(not FileExists(FileInfoNT[j].fi3_pathname))
          then else
           {if (CheckBox3.Checked) and (FileInfoNT[j].fi3_permissions=1) then
           else  e:=e+' - '+ui; }
           if e<>Memo2.Lines[Memo2.Lines.count-1] then begin
            e:=TimeToStr(now)+e;
            Memo2.Lines.add(e);{}
           end;
          e:=StringReplace(DateToStr(curdate),':','_',[rfReplaceAll]);
          Memo2.Lines.SaveToFile(e+'.txt');
          if curdate<>date then begin
           curdate:=date;
           Memo2.Lines.Clear;
          end;
        end;
    end;
   end;
  end;
  //******* END FOR ****************{}
// end;
// NetSessionDel(nil,)
end;
//******* END FOR ****************{}
end;