如何检查网络共享EXE文件是否被多个用户使用？

Question

我有一个应用程序位于网络共享文件夹中的服务器上。网络中的许多用户可以同时使用该文件。我想执行该 EXE 文件的更新，为此，我想知道网络中的谁（除了我之外）当前正在使用该文件。

是否可以通过编程方式检查这一点？例如：列出现在正在使用该文件的所有用户名？或者至少检索该文件上的锁数量？

谢谢。

Answer 1

要列出计算机中打开的共享文件，您可以使用 ADSI（Active Directory 服务接口）。

为了从 delphi 使用这些接口，您必须导入 Active DS 类型库

然后访问 IADsFileServiceOperations 接口，其中包含名为 Resources 此方法返回一个包含所有打开的共享资源的集合。

检查这个示例代码

{$APPTYPE CONSOLE}

uses
  ActiveDs_TLB,
  Variants,
  ActiveX,
  SysUtils;


function ADsGetObject(lpszPathName:WideString; const riid:TGUID; out ppObject):HRESULT; safecall; external 'activeds.dll';


procedure ListSharedResourcesInUse;
var
  FSO           : IADsFileServiceOperations;
  Resources     : IADsCollection;
  Resource      : OleVariant;
  pceltFetched  : Cardinal;
  oEnum         : IEnumvariant;
begin
  //establish the connection to ADSI
  ADsGetObject('WinNT://./lanmanserver', IADsFileServiceOperations, FSO);
  //get the resources interface 
  Resources := FSO.Resources;
  //get the enumerator
  oEnum:= IUnknown(Resources._NewEnum) as IEnumVariant;
  while oEnum.Next(1, Resource, pceltFetched) = 0 do
  begin
    Writeln(Format('Resource %s User %s',[Resource.Path,Resource.User]));
    Resource:=Unassigned;
  end;
end;


begin
 try
    CoInitialize(nil);
    try
      ListSharedResourcesInUse;
    finally
      CoUninitialize;
    end;
 except
    on E:Exception do
        Writeln(E.Classname, ':', E.Message);
 end;
 Writeln('Press Enter to exit');
 Readln;
end.

Answer 2

如果您真正需要的是替换可能正在使用的 exe 文件，您可以重命名可执行文件，然后将新文件复制到同一位置。新用户将运行新的可执行文件，而旧的（重命名的）可执行文件可以在最后一个运行它的用户关闭应用程序后立即删除。

Answer 3

这可能有点过分了，但是拥有服务器-客户端架构怎么样？应用程序可能正在您的服务器上运行，每次有人启动客户端时，它都会连接到服务器。

在方程式中添加一个“状态/状态”，可以根据您当前的需要进行更改：正常、准备升级、升级进行中等。

这样您就可以遍历打开的连接列表，并向每个人发送一条消息，告知系统将置于维护模式，或者当客户端启动时，它可以通知用户发生了什么。

干杯

Answer 4

如果您启动 exe，它将被锁定以进行写入。因此，替换或重命名 exe 是安全的，但如果不能，则意味着该 exe 已被使用。

PsFile 和“net file”可以显示文件是否打开并且可以关闭文件。但这对于已启动程序的用户来说并不好。

我认为最好创建向程序的所有用户发送消息的功能。如果您需要升级，请禁用新登录并向所有用户发送消息“请退出，需要升级！”。重试此操作，直到可以替换 exe。 PsFile 无法判断谁在使用文件，但只能判断文件是否被使用。