Узнать, кто - нибудь пользуется файлами из расшареной папки [D5, Win95/98, Win2k, WinXP]
FireWorks © (2002-10-08 13:00:00)
1) возможны такие варианты, узнать, как либо - используется ли
файл
2) узнать, кто-нить пользуется ресурсом общей папки
3) папка на локальном компе (на моем)
Игорь Шевченко (2002-10-08 13:02:00) [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;
Наверх 
ЧАТ |
Орешник |
|
