开发环境:VB6
程式版本更新, 读取INI文件做对比, 确认版本是否最新.
可用VB6的工具下的API检视员来自动生成API调用代码.
INI文件内容:
[Version]
TEST=2017-11-20 00:00:00
调用API.
Private Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" ( _
ByVal lpApplicationName As String, _
ByVal lpKeyName As Any, _
ByVal lpDefault As String, _
ByVal lpReturnedString As String, _
ByVal nSize As Long, _
ByVal lpFileName As String) As Long
Private Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" ( _
ByVal lpApplicationName As String, _
ByVal lpKeyName As Any, _
ByVal lpString As Any, _
ByVal lpFileName As String) As Long
读取INI文件:
Dim strOldVersion As String
strOldVersion = String(20, 0)
GetPrivateProfileString "Version", "TEST", "2017-07-01 00:00:00", strOldVersion, 20, ".\Version.ini"
写INI文件:
Dim newDate As String
newDate = Format(AdoFile!filecreatedate, "yyyy-MM-dd hh:MM:ss")
WritePrivateProfileString "Version", "TEST", newDate, App.Path & "\Version.ini"