Domino Code Fragment

Code Name* API Call, How to Make Windows API Calls, Taking the Windows Version into Account	Date* 04/29/2024	Source (or email address if you prefer)* Rlatulippe@romac.com IP address:.18.222.69.152
Description* Windows API calls usually differ, depending upon the Windows version that is in use when the call is made. The following example illustrates how to call the Windows API GetPrivateProfileString function while taking into account the Windows version in use:	Type* LotusScript	Categories* (Misc)

Implementation:	Required Client:	Server:
Limitations:	Comments:

Files/Graphics attachments (if applicable): Code:

Check the Windows version using the NotesSession Platform property before making the API call. In some cases, it may be necessary to also include the optional Alias statement when declaring the function. This argument allows you to declare two different functions that accomplish the same result, based upon the Windows version in use.

The following example illustrates how to call the Windows API GetPrivateProfileString function while taking into account the Windows version in use:

Declare Function GetPrivateProfileString32 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

Declare Function GetPrivateProfileString16 Lib "Krnl386" Alias "GetPrivateProfileString" _
(Byval lpApplicationName As String, lpKeyName As Any, Byval lpDefault As String, _
Byval lpReturnedString As String, Byval nSize As Integer, Byval lpFileName As String) As Integer

Sub Initialize
Dim session As New notessession
Dim mailserver As String *128

If Instr(session.platform,"16") Then
ret = GetPrivateProfileString16 ("NOTES","MailServer","", _
mailserver,127,"c:\notes32\notes.ini")
Elseif Instr(session.platform,"32") Then
ret = GetPrivateProfileString32 ("NOTES","MailServer","", _
mailserver,127,"c:\notes32\notes.ini")
End If
Messagebox Trim(mailserver)
End Sub