Wallpaper Changer
If you are wondering how you can change your desktop picture this code is the awnser. It's very easy to understend and it's very short.
AI
Shrnutí AI: This codebase represents a historical implementation of the logic described in the metadata. Our preservation engine analyzes the structure to provide context for modern developers.
Zdrojový kód
Option Explicit 'This code is developed by Ivan Uzunov 'e-mail: [email protected] 'Just add this code on a form add a Command1 and press F5 Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, ByVal lpvParam As Any, ByVal fuWinIni As Long) As Long Private Const SPI_SETDESKWALLPAPER = 20 Private Sub Command1_Click() Dim WallPaper As Long 'Just change "C:\REDCAP.bmp" with a existing bitmap on your computer WallPaper = SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, "C:\REDCAP.bmp", 0) End Sub
Původní komentáře (3)
Obnoveno z Wayback Machine