Start and configure your default screen saver

Category:

Screen/Graphics

Type:

Snippets

Difficulty:

Intermediate

Author:

Stefan

Version Compatibility: Visual Basic 5

More information:

This reads the dafault screen saver from the 'system.ini' file, and now you can either start ist, or configure ist.

Instructions: Copy the declarations and code below and paste directly into your VB project.

Declarations:
' Read an ini-file Private Declare Function GetPrivateProfileString Lib "kernel32" Alias _ "GetPrivateProfileStringA" (ByVal lpApplicationName As String, _ ByVal lpKeyName As String, ByVal lpDefault As String, _ ByVal lpReturnedString As String, ByVal nSize As Long, _ ByVal lpFileName As String) As Long ' find out where the Windows directory is, because the system.ini ' is in there Private Declare Function GetWindowsDirectory Lib "kernel32" Alias _ "GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) _ As Long

Code: