CopyFile ocx和dll文件的问题，100分求解

Question

我要从一个目录拷贝一个ocx文件到程序目录，拷贝之前我要判断程序目录是否有这个ocx文件和这个ocx是否在使用。出现一个问题：我这个ocx明明没有使用，我用IsFileInUse判断的出的结果确在使用。用CopyFile也没办法覆盖原文件
if LowerCase(ExtractFileExt(RealFileName))='.ocx' then begin
   if FileExists(RealFileName) then begin
   OCXHand:=LoadLibrary(PChar(RealFileName));
   if not IsFileInUse(RealFileName) then
      RegFunc:=GetProcAddress(OCXHand,'DllUnregisterServer');
   end;
end;
if CopyFile(PChar(TempFileName),PChar(RealFileName),False) then begin
    if LowerCase(ExtractFileExt(RealFileName))='.ocx' then begin
       try
         OCXHand:=LoadLibrary(PChar(RealFileName));
         RegFunc:=GetProcAddress(OCXHand,'DllRegisterServer');
       finally
         FreeLibrary(OCXHand);
       end;
     end;
     DeleteFile(PChar(TempFileName));
end;

Answer 1

代碼中第一個LoadLibrary是做啥？你都自己加載進來了，給自己找麻煩？

Answer 2

哈哈,我刚查了下IsFileInUse确实有个  CloseHandle

Answer 3

2楼说的对，OCXHand加载了两次DLL，只释放了一次，所以删除文件时出错。