Domino Code Fragment

Code Name*
16 bit GetPrivateProfileString function call to get ScreenSaver and WallPaper in Windows.		Date*
07/04/2025		Source (or email address if you prefer)*
[email protected]
IP address:.108.162.241.90
Description*
Returns Screen Saver and Wallpaper settings on Windows system.		Type*
LotusScript		Categories*
(Misc)
Implementation:
Required Client:
Server:
Limitations:
Comments:
Files/Graphics attachments (if applicable): Code:
Declarations:
Declare Function GetPrivateProfileString Lib "Kernel" _
(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