A script made by ashef which I got
from here and then edited to it's current form:
Code:
#SingleInstance Force
#NoEnv ; Recommended for performance and compatibility with future AutoHotkey releases.
SendMode Input ; Recommended for new scripts due to its superior speed and reliability.
SetWorkingDir %A_ScriptDir% ; Ensures a consistent starting directory.
IniRead, WallPaperFolder, %A_ScriptDir%\wpchange.ini, Settings, WPFolder, NOT_SET
If WallPaperFolder = NOT_SET
{
FileSelectFolder, SetFolder, , 3
if SetFolder =
{
MsgBox, You didn't select a folder, the program will now close.
ExitApp
}
else
{
SetFolder := RegExReplace(SetFolder, "\\$") ; Removes the trailing backslash, if present.
WallPaperFolder = %SetFolder%\
IniWrite, %WallPaperFolder%, %A_ScriptDir%\wpchange.ini, Settings, WPFolder
MsgBox Setting saved, to reset choose the "Reset Folder" item from tray, or delete file %A_ScriptDir%\wpchange.ini.
}
}
RefreshWPs() ; Make a function of it and call that whenever you need to cut down redundant writing.
{
Global
ArrayCount=0
Loop, D:\Stuff\Images\Walls\*.jpg ; wherever you store your wallpapers
{
ArrayCount+=1
Array%ArrayCount% := A_LoopFileName
}
}
ChangeWP() ; Make a function of it
{
global
Random, filenum, 1, %ArrayCount%
filecalled := Array%filenum%
TrayTip,, Setting "%filecalled%" as your wallpaper,,1
FileCopy, %WallPaperFolder%%filecalled%, %A_MyDocuments%\currentwallpaper.jpg, 1
DllCall("SystemParametersInfo", UInt, 0x14, UInt, 0, Str, A_MyDocuments . "\currentwallpaper.jpg", UInt, 2)
RegWrite, REG_SZ, HKEY_CURRENT_USER, Control Panel\Desktop, WallPaper, %WallPaperFolder%%filecalled%
Sleep, 500 ; can't change the wallpaper too quickly in succession.
return
}
Traytip, Refreshing..., Refreshing Wallpapers...,,1
RefreshWPs()
TrayTip,, Wallpaper list refreshed!,,1
Menu, TRAY, Add
Menu, TRAY, Add, Refresh Wallpapers, RefreshWallpapers ; Manual refresh
Menu, TRAY, Add, Change Wallpaper, ChangeWallpaper ; Add a menu for it too
Menu, TRAY, Add
Menu, TRAY, Add, Reset Folder, RstFolder ; Add menu for resetting folder
Return ; Ends the auto-execute section
RefreshWallpapers: ; does the same job as the auto-execute
Traytip, Refreshing..., Refreshing Wallpapers...,,1
RefreshWPs()
TrayTip,, Wallpaper list refreshed!,,1
Return
ChangeWallpaper:
ChangeWP()
Return
RstFolder:
IniWrite, NOT_SET, %A_ScriptDir%\wpchange.ini, Settings, WPFolder
MsgBox Folder settings reset, please restart app to redefine.
Return
#MButton::ChangeWP()
The weird thing is, it works perfectly on my computer (running Win7 RC), it reads the list ok and changes wallpaper just fine. read/writes ini ok.
Then, I compiled it (and it still works on my computer, I'm using the compiled one myself.) and gave it to my brother (running Win7 RC). He ran it and it created the ini file just fine. BUT, when he tries to change the wallpaper, nothing happens.
well, when it should display a traytip
Code:
TrayTip,, Setting "%filecalled%" as your wallpaper,,1
I got "
Setting "filename" as your wallpaper" and my brother gets "
Setting "" as your wallpaper"
My path to the images is "D:\Stuff\Images\Walls" and his is "D:\Kuvat\Muut\Wallpapers". So even the paths are similar (no spaces or funny characters). Only real difference is, I have AHK installed and he doesn't, but I don't think it *should* at least matter.
Login
Register
FAQ
Search
