Domino Code Fragment

Code Name*
32 bit GetPrivateProfileString funtion call to get Screen Saver and Wallpaper		Date*
04/28/2024		Source (or email address if you prefer)*
Rlatulippe@romac.com
IP address:.3.129.247.196
Description*
Returns Screen Saver and Wallpaper used on Windows system.		Type*
LotusScript		Categories*
(Misc)
Implementation:
Required Client:
Server:
Limitations:
Comments:
Files/Graphics attachments (if applicable): Code:
Delarations:
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

Sub Initialize
    Dim screensaver As String *128    
    Dim wallpaper As String *128    
    Dim ret As Integer    
    Dim message As String    
   
    ret = GetPrivateProfileString  ("BOOT","scrnsave.exe","", _
    screensaver,127,"c:\windows\system.ini")
    If ret = 0 Then
         message="Screensaver not found" & Chr(13) & Chr(10)
    Else
         message="Current Windows Screensaver = " & _
         Left(screensaver,ret) & Chr(13) & Chr(10)
    End If
   
    ret = GetPrivateProfileString("DESKTOP","Wallpaper","",_
    wallpaper,127,"c:\windows\win.ini")
    If ret = 0 Then
         message = message & "Wallpaper not found"
    Else
         message = message & "Current Windows Wallpaper = " _
         & Left(wallpaper,ret)
    End If
    Messagebox message
End Sub