Új hozzászólás Aktív témák

• #6668 Fehér Mancs tag Delila_1 #6667

  Új Válasz 2010-03-25 10:49:28 #6668

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Fehér Mancs

  tag

  válasz Delila_1 #6667 üzenetére

  Ez is jó, de a desktopra gondoltam első körben, viszont meg is találtam a megoldást.

  (Ha valakit érdekel:
  Option Explicit
  
  Private Const SPIF_UPDATEINIFILE = &H1
  Private Const SPI_SETDESKWALLPAPER = 20
  Private Const SPIF_SENDWININICHANGE = &H2
  
  ' Enter the following Declare as one, single line:
  Private Declare Function SystemParametersInfo Lib "User32" Alias "SystemParametersInfoA" (ByVal uAction As Integer, ByVal uparam As Integer, lpvParam As Any, ByVal fuWinIni As Integer) As Integer
  
  Private Sub Command1_Click()
  Dim filenm As String
  Dim x As Long
  filenm = "c:\winnt\Bgt.bmp"
  ' Enter the following two lines as one, single line:
  x = SystemParametersInfo(SPI_SETDESKWALLPAPER, 0&, filenm, SPIF_UPDATEINIFILE Or SPIF_SENDWININICHANGE)
  End Sub

Új hozzászólás Aktív témák