Форумы HiProg.com - MS ACCESS, VBA, VB

ник: Силblч
зачем усложнять?
я делаю это all right

надо два exe
1й запускается и проверяет версию программы в свойствах файла второго exe через API getfileinfo если память мне не изменяет и лезет в интернет на фтп и смотрит там свойства той копии если они разные, то скачивает на место второго файла новую версию и запускает её, а сам - самоуничтожается... я ничего уже здесь придумать не могу. да не очкуйте вы! мы так тыщу раз делали!

Private Type VS_FIXEDFILEINFO    dwSignature As Long    dwStrucVersionl As Integer     '  e.g. = &h0000 = 0    dwStrucVersionh As Integer     '  e.g. = &h0042 = .42    dwFileVersionMSl As Integer    '  e.g. = &h0003 = 3    dwFileVersionMSh As Integer    '  e.g. = &h0075 = .75    dwFileVersionLSl As Integer    '  e.g. = &h0000 = 0    dwFileVersionLSh As Integer    '  e.g. = &h0031 = .31    dwProductVersionMSl As Integer '  e.g. = &h0003 = 3    dwProductVersionMSh As Integer '  e.g. = &h0010 = .1    dwProductVersionLSl As Integer '  e.g. = &h0000 = 0    dwProductVersionLSh As Integer '  e.g. = &h0031 = .31    dwFileFlagsMask As Long        '  = &h3F for version "0.42"    dwFileFlags As Long            '  e.g. VFF_DEBUG Or VFF_PRERELEASE    dwFileOS As Long               '  e.g. VOS_DOS_WINDOWS16    dwFileType As Long             '  e.g. VFT_DRIVER    dwFileSubtype As Long          '  e.g. VFT2_DRV_KEYBOARD    dwFileDateMS As Long           '  e.g. 0    dwFileDateLS As Long           '  e.g. 0 End Type Private Declare Function GetFileVersionInfo Lib "Version.dll" Alias "GetFileVersionInfoA" (ByVal lptstrFilename As String, ByVal dwhandle As Long, ByVal dwlen As Long, lpData As Any) As Long Private Declare Function GetFileVersionInfoSize Lib "Version.dll" Alias "GetFileVersionInfoSizeA" (ByVal lptstrFilename As String, lpdwHandle As Long) As Long Private Declare Function VerQueryValue Lib "Version.dll" Alias "VerQueryValueA" (pBlock As Any, ByVal lpSubBlock As String, lplpBuffer As Any, puLen As Long) As Long Private Declare Sub MoveMemory Lib "kernel32" Alias "RtlMoveMemory" (dest As Any, ByVal Source As Long, ByVal length As Long) Public Function FileVerInfo(ByVal FullFileName As String)    Dim rc As Long, lDummy As Long, sBuffer() As Byte    Dim lBufferLen As Long, lVerPointer As Long, udtVerBuffer As VS_FIXEDFILEINFO    Dim lVerbufferLen As Long    'проверка файла    lBufferLen = GetFileVersionInfoSize(FullFileName, lDummy)    If lBufferLen < 1 Then Exit Function 'MsgBox "No Version Info available!": Exit Function    'сохранение в структуру udtVerBuffer    ReDim sBuffer(lBufferLen)    rc = GetFileVersionInfo(FullFileName, 0&, lBufferLen, sBuffer(0))    rc = VerQueryValue(sBuffer(0), "\", lVerPointer, lVerbufferLen)    MoveMemory udtVerBuffer, lVerPointer, Len(udtVerBuffer)    'версия файла exe_main.exe    FileVerInfo = Format$(udtVerBuffer.dwFileVersionMSh) & "." & Format$(udtVerBuffer.dwFileVersionMSl) & "." & Format$(udtVerBuffer.dwFileVersionLSh) & "." & Format$(udtVerBuffer.dwFileVersionLSl) End Function