XYplorer Beta Club

Code: Select all

' setWallpaper.bas: sets desktop wallpaper to jpg/bmp image file passed as first argument

#Include "windows.bi"
' BOOL WINAPI SystemParametersInfo(UINT uiAction, UINT uiParam, PVOID pvParam, UINT fWinIni);
' https://msdn.microsoft.com/en-us/library/windows/desktop/ms724947(v=vs.85).aspx
Dim As UINT  uiAction 
Dim As UINT  uiParam   = 0    ' 0 If not otherwise indicated by uiAction
Dim As PVOID pvParam   = NULL ' NULL If not otherwise indicated by uiAction
Dim As UINT  fWinIni  

If (Command(1) <> "") Then    ' set wall if 1st arg exists. No sanity check
  uiAction = SPI_SETDESKWALLPAPER
  'pvParam parameter is a pointer to a buffer containing image path as null-terminated string.
  Dim As String  imgPath = Command(1) ' get 1st cmd argument
  Dim As ZString Ptr Img              ' pointer to a null-terminated string var
  Img      = Allocate(Len(ImgPath))   ' set Img size to the string it will carry
  *Img     = ImgPath                  ' put imgpath at Img pointer address
  pvParam  = Img                      ' update pvParam (note: Img is already a pointer)
  fWinini  = SPIF_UPDATEINIFILE       ' signals user profile update
  /'only bmp is supported in pre-Vista
  but IsWindowsVersionOrGreater() apparently unimplemented in fbc
  If (IsWindowsVersionOrGreater(6, 0, 0)) Then
  	 If (InStr(ImgPath, ".bmp") <> Len(ImgPath) - 3) Then End
  EndIf '/
  SystemParametersInfo(uiAction, uiParam, pvParam, fWinIni)
EndIf

Code: Select all

run """<xyscripts>\utils\setWallpaper.exe"" ""<curitem>""";

Code: Select all

 $PS = <<<HEREDOC
Add-Type @"
using System;
using System.Runtime.InteropServices;
using Microsoft.Win32;
namespace Wallpaper
{
   public enum Style : int
   {
       Fit, Center, Stretch, NoChange
   }
   public class Setter {
      public const int SetDesktopWallpaper = 20;
      public const int UpdateIniFile = 0x01;
      public const int SendWinIniChange = 0x02;
      [DllImport("user32.dll", SetLastError = true, CharSet = CharSet.Auto)]
      private static extern int SystemParametersInfo (int uAction, int uParam, string lpvParam, int fuWinIni);
      public static void SetWallpaper ( string path, Wallpaper.Style style ) {
         SystemParametersInfo( SetDesktopWallpaper, 0, path, UpdateIniFile | SendWinIniChange );
         RegistryKey key = Registry.CurrentUser.OpenSubKey("Control Panel\\Desktop", true);
         switch( style )
         {
            case Style.Stretch :
               key.SetValue(@"WallpaperStyle", "2") ; 
               key.SetValue(@"TileWallpaper", "0") ;
               break;
            case Style.Center :
               key.SetValue(@"WallpaperStyle", "0") ; 
               key.SetValue(@"TileWallpaper", "0") ; 
               break;
            case Style.Fit :
               key.SetValue(@"WallpaperStyle", "6") ; 
               key.SetValue(@"TileWallpaper", "0") ;
               break;
            case Style.NoChange :
               break;
         }
         key.Close();
      }
   }
}
"@

[Wallpaper.Setter]::SetWallpaper( '<curitem>', 'Stretch' )

HEREDOC;

  writefile("<xyscripts>\tempPS.ps1", $PS);
  run ("%winsysdir%\WindowsPowerShell\v1.0\powershell.exe -ExecutionPolicy ByPass -File ""<xyscripts>\tempPS.ps1"""), ,2,0;