[DUG] Virus scanning causing GetFileVersion to go slow

[Colin Johnsun]

Why don't you have some sort of ini-file located with the network
file. The ini file can then contain the version number of the file.

Instead of checking the version number of the network file, read the
ini-file and go from there.

Regards,
Colin

On 24 September 2012 16:53, Robo <robo555 at gmail.com> wrote:
> Our program on start up checks for updates on a network drive by
> comparing file version numbers against the local file.
>
> The method runs quick on local files, but slow on the network file,
> especially for files larger than 10MB. We found that disabling virus
> scanning (Microsoft Forefront in this case) means the check is done in
> less than 1sec instead of 10sec.
>
> Anyone know a way to check the version number of a network file
> without triggering the virus scanner? This is particularly problematic
> because this runs every time the program starts, so start up time is
> increasing by heaps.
>
> Here's our code for checking file version:
>
> function TFileVersion.ReadVersionInfo(sProgram: string; Major, Minor,
>                                         Release, Build : pWord) :Boolean;
> var
>   Info:       PVSFixedFileInfo;
> //{$ifdef VER120} {Delphi 4 definition for this differs from D2 & D3}
> //  InfoSize:   Cardinal;
> //{$else}
>   InfoSize:   UINT;
> //{$endif}
>   nHwnd:      DWORD;
>   BufferSize: DWORD;
>   Buffer:     Pointer;
> begin
>   BufferSize := GetFileVersionInfoSize(pchar(sProgram),nHWnd); {Get buffer size}
>   Result := True;
>   if BufferSize <> 0 then begin {if zero, there is no version info}
>     GetMem( Buffer, BufferSize); {allocate buffer memory}
>     try
>       if GetFileVersionInfo(PChar(sProgram),nHWnd,BufferSize,Buffer) then begin
>         {got version info}
>         if VerQueryValue(Buffer, '\', Pointer(Info), InfoSize) then begin
>           {got root block version information}
>           if Assigned(Major) then begin
>             Major^ := HiWord(Info^.dwFileVersionMS); {extract major version}
>           end;
>           if Assigned(Minor) then begin
>             Minor^ := LoWord(Info^.dwFileVersionMS); {extract minor version}
>           end;
>           if Assigned(Release) then begin
>             Release^ := HiWord(Info^.dwFileVersionLS); {extract release version}
>           end;
>           if Assigned(Build) then begin
>             Build^ := LoWord(Info^.dwFileVersionLS); {extract build version}
>           end;
>
>           iDateTime := (Info^.dwFileDateMS) shl 32;
>           iDateTime := iDateTime + Info^.dwFileDateLS;
>           //always comes back zero for some reason
>
>         end else begin
>           Result := False; {no root block version info}
>         end;
>       end else begin
>         Result := False; {couldn't extract version info}
>       end;
>     finally
>       FreeMem(Buffer, BufferSize); {release buffer memory}
>     end;
>   end else begin
>     Result := False; {no version info at all in the file}
>   end;
> end;
>
> Thanks
>
> Robo
> _______________________________________________
> NZ Borland Developers Group - Delphi mailing list
> Post: delphi at listserver.123.net.nz
> Admin: http://delphi.org.nz/mailman/listinfo/delphi
> Unsubscribe: send an email to delphi-request at listserver.123.net.nz with Subject: unsubscribe