WallChng Wall Change Microsoft Draw """"" """"""" """""""" """""""", """"""""", Form1* Timer1 Timer2 Timer3 Timer4 Timer5 icon1 icon1 """ """" icon2 icon2 """" """"""""" """""""" """""""" """"""" """"" icon3 icon3 Combo1 Combo1 icon4 icon4 """"" """"""" """""""" """""""", """"""""", About About Command1_Click SetDeskWallPaper ForceRedraw SystemParametersInfoM SPI_SETDESKWALLPAPER BMPFile SPIF_UPDATEINIFILE Jonathan Zuck. Form_Click Win31C FileNameO hWNDm lpRecto bEraseW wActionG wParam lParamu fWinIniV Form_Loadz DirDemo Filespec Match MatchNum@ DirBMP bmpfound Called DirBMP2 WallPaper WallPaperFile NextEnd display change' changeWallpaper_Click Form_Resize^ windowstate~ Win31Change Form_GotFocusa WindowSize Wallchng click command1 value timer1_timer Focuse provides detectinge when' yourG given7 There number? Windows messages translate. events example prevent iconized7 program beingS opened programmer AlsoJ knowingv movedR again message Here} routine loses% GetActiveWindow~ form1 timer1 intervalA Form_LostFocus added above changedq fromP Spin1_SpinDown Spin1_SpinUp text1u text@ Decrement\ every SpinDown event Text1_Change% DgDef title responsez HScroll1_ChangeU hscroll1 caption\ Combo1_Changed combo1/ timeloopL SelTextC timeloop2U combo1_click walchng: paper Timer2_Timerd icon1h dragicon icon2p icon3 icon4 icon1_ClickM icon2_Click Timer3_Timer Timer4_Timer Timer5_Timer timer2 timer3 timer4+ timer5 intervlap endsubq Quit_Click About_ClickO visible falseq combo1click listindex GetFreeSpaceb wFlags/ OldFreeSpace FreeSpace GetModuleHandle ModName GetHeapSpaces hModule GetFreeResources8 ModuleName rInfo Totalr} HiWord FreeR LoWordh LongInt\ Min7 TFree OldTotal captionstr clickEnd Waite Group CapSwitch DiskSpaceFree GetDiskSpaceFree Drive SpaceFree GetDiskSaceFree/ OldSpaceFreek diskh icon4_ClickX text3 text2 DiskInfoS DriveNum DriveInfo ResMemDisk Background updateG listing related files routines/ toolsD which available6 MSBASIC valuableS information readers including freely with= others Changes likely result2 viewingQ workingI Official) updates_ Tipsu forum CompuServe address below CompiledY Edited Nelson PublicB software+ Library Houston} numbersn email copy= monthly shareware magazine catalog manyV disks entries markedu margin} CONTENTS Section Updated posted weeks frequency future depend amounth material Names brackets under other about would possible without helpK those willing share their knowledge Contributors" Keith Novisoff YoungZ Dennis@ Harrington/ Microsoft Leadersi MSLANG members Text2_Change MyTime Hours6 OldMyTime CapEnd GetDriveType nDrive DRIVE_FIXED DRIVE_REMOVABLE diskx User8 Kernel Kernel Kernel DiskInfo.DLLd DirBMP *.BMP" Fatal Error" You must put WALLCHNG.EXE in your WINDOWS DIRECTORY! DirBMP2 *.BMP" timer1_timer 5 Minutes 30 Minutes 30 Minutes 5 Minutes Form_Load PAUSE" 1 Second" 10 Seconds 30 Seconds 1 Minute" 5 Minutes 30 Minutes 30 Minutes combo1_click 30 Minutes 5 Minutes 1 Minute" 30 Seconds 10 Seconds 1 Second" PAUSE" Timer2_Timer Timer3_Timer Timer4_Timer Timer5_Timer Quit_Click About_Click About" Wallpaper Changer - Version 8/92" By Tim Hitchings (73637,66)" Special Thanks: " The Waite Group's Visual Basic How-To" Ian Taylor for the DiskInfo.DLL" Nelson Ford for VB-Tips" GetFreeResources HiWord LoWord ResMemDisk M free Free memory: " Free resources: Time: "