cnodnarb Professional Member
Joined: 11 Sep 2002 Posts: 762 Location: Rockeledge, GA
|
Posted: Thu Sep 12, 2002 8:50 pm Post subject: Windows Custimization Tool |
|
|
Lots of great tricks to be learned here. If you wish to modify this program, go for it, but please leave the initial comments in place. The main reason for this post is just in case you need to pull an individual function from this project, as it covers quite a few things.
Here's a short list of toggles:
Add Open With to All Files
Start Menu Program Scrolling
Explore From Here to Folder Right Click
Disable Run from Start Menu
Disable Find from Start Menu
No Network Neighborhood
No Desktop
No Shutdown
No Recent Documents
No Explorer File Menu
No Active Desktop
No Active Desktop Changes
No IE Icon on Desktop
No Favorites in Start Menu
No Folder Options
No Recent Documents on Exit
No Log Off
No Background Properties
No Screen Saver Properties
No Appearance Properties
No Display Settings Properties
No Device Manager
No Hardware Profiles
No File System Button
No Virtual Memory Button
No Arrow on Shortcuts
Change Folder Icons (On folder right click)
Cascading Control Panel (In start menu)
Button Functions Demonstrated:
Change Internet Explorer Title
Destroy Desktop This Session
Destroy Taskbar This Session
Change A Folder Icon
Code: |
rem Original Script by Brandon Cunningham
rem Other authors, please insert comments below this line if you modify script.
title Windows Customization Tool
list create,1
DIALOG CREATE,Windows Customization Tool,-1,0,630,424
DIALOG ADD,CHECK,CHECK1,5,5,150,18,Add Open With to All Files,,click
DIALOG ADD,CHECK,CHECK2,25,5,160,18,Start Menu Program Scrolling,1,click
DIALOG ADD,CHECK,CHECK3,45,5,230,18,Add Explore From Here to Folder Right Click,,click
DIALOG ADD,CHECK,CHECK4,65,5,230,18,Disable Run from Start Menu,,click
DIALOG ADD,CHECK,CHECK5,85,5,,,Disable Find from Start Menu,,click
DIALOG ADD,CHECK,CHECK6,103,5,,,No Network Neighborhood,,click
DIALOG ADD,CHECK,CHECK7,125,5,,,No Desktop,,click
DIALOG ADD,CHECK,CHECK8,145,5,,,No Shutdown,,click
DIALOG ADD,CHECK,CHECK10,165,5,,,No Recent Documents,,click
DIALOG ADD,CHECK,CHECK11,185,5,180,18,No Explorer File Menu,,click
DIALOG ADD,CHECK,CHECK12,205,5,180,18,No Active Desktop,,click
DIALOG ADD,CHECK,CHECK13,225,5,,,No Active Desktop Changes,,click
DIALOG ADD,CHECK,CHECK14,245,5,,,No IE Icon on Desktop,,click
DIALOG ADD,CHECK,CHECK15,265,5,,,No Favorites in Start Menu,,click
DIALOG ADD,CHECK,CHECK17,285,5,,,No Folder Options,,click
DIALOG ADD,CHECK,CHECK18,305,5,,,Clear Recent Documents on Exit,,click
DIALOG ADD,CHECK,CHECK19,325,5,,,No Log Off,,click
DIALOG ADD,STATUS,STATUS1
DIALOG ADD,CHECK,CHECK20,345,5,,,No Background Properties,,click
DIALOG ADD,CHECK,CHECK21,365,5,,,No Screen Saver Properties,,click
DIALOG ADD,CHECK,CHECK22,385,5,,,No Appearance Properties,,click
DIALOG ADD,CHECK,CHECK23,5,255,,,No Display Settings Properties,,click
DIALOG ADD,CHECK,CHECK24,24,255,180,18,No Device Manager,,click
DIALOG ADD,CHECK,CHECK25,44,255,,,No Hardware Profiles,,click
DIALOG ADD,CHECK,CHECK26,65,255,,,No File System Button,,click
DIALOG ADD,CHECK,CHECK27,85,255,,,No Virtual Memory Button,,click
DIALOG ADD,BUTTON,BUTTON1,6,425,200,20,Change Internet Explorer Title
DIALOG ADD,BUTTON,BUTTON2,30,425,200,20,Launch System Configuration Utility
DIALOG ADD,CHECK,CHECK28,104,255,180,18,No Arrow on Shortcuts,,click
DIALOG ADD,BUTTON,BUTTON3,55,425,200,20,Hide Desktop
DIALOG ADD,BUTTON,BUTTON4,80,425,200,20,Hide Taskbar
DIALOG ADD,BUTTON,BUTTON5,105,425,200,20,Destroy Desktop This Session
DIALOG ADD,BUTTON,BUTTON6,130,425,200,20,Destroy Taskbar This Session
DIALOG ADD,BUTTON,BUTTON7,255,425,200,20,Restart (Restores Destroyed Items)
DIALOG ADD,BUTTON,BUTTON8,155,425,200,20,Launch Program
DIALOG ADD,BUTTON,BUTTON9,180,425,200,20,Open Control Panel
DIALOG ADD,BUTTON,BUTTON10,205,425,200,20,Open Folder
DIALOG ADD,CHECK,CHECK29,125,255,165,18,Change Folder Icons,,click
DIALOG ADD,BUTTON,BUTTON11,230,425,200,20,Change A Folder Icon
DIALOG ADD,CHECK,CHECK30,145,255,155,18,Cascading Control Panel,,click
if %1
%%dirdlg = %1
goto continue
else
end
DIALOG SHOW
%%desktophide = 0
%%taskbarhide = 0
if @ok(@regread(root,*\shell\Open With\Command))
dialog set,check1,1
else
end
if @ok(@regread(Local,Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced,StartMenuScrollPrograms))
dialog clear,check2
else
end
if @ok(@regread(root,folder\shell\rootexplore\command))
dialog set,check3,1
else
end
if @ok(@regread(curuser,Software\Microsoft\Windows\CurrentVersion\Policies\Explorer,NoRun))
dialog set,check4,1
else
end
if @ok(@regread(curuser,Software\Microsoft\Windows\CurrentVersion\Policies\Explorer,NoFind))
dialog set,check5,1
else
end
if @ok(@regread(curuser,Software\Microsoft\Windows\CurrentVersion\Policies\Explorer,NoNetHood))
dialog set,check6,1
else
end
if @ok(@regread(curuser,Software\Microsoft\Windows\CurrentVersion\Policies\Explorer,NoDesktop))
dialog set,check7,1
else
end
if @ok(@regread(curuser,Software\Microsoft\Windows\CurrentVersion\Policies\Explorer,NoClose))
dialog set,check8,1
else
end
if @ok(@regread(curuser,Software\Microsoft\Windows\CurrentVersion\Policies\Explorer,NoRecentDocsMenu))
dialog set,check10,1
else
end
if @ok(@regread(curuser,Software\Microsoft\Windows\CurrentVersion\Policies\Explorer,NoFileMenu))
dialog set,check11,1
else
end
if @ok(@regread(curuser,Software\Microsoft\Windows\CurrentVersion\Policies\Explorer,NoActiveDesktop))
dialog set,check12,1
else
end
if @ok(@regread(curuser,Software\Microsoft\Windows\CurrentVersion\Policies\Explorer,NoActiveDesktopChanges))
dialog set,check13,1
else
end
if @ok(@regread(curuser,Software\Microsoft\Windows\CurrentVersion\Policies\Explorer,NoInternetIcon))
dialog set,check14,1
else
end
if @ok(@regread(curuser,Software\Microsoft\Windows\CurrentVersion\Policies\Explorer,NoFavoritesMenu))
dialog set,check15,1
else
end
if @ok(@regread(curuser,Software\Microsoft\Windows\CurrentVersion\Policies\Explorer,NoFolderOptions))
dialog set,check17,1
else
end
if @ok(@regread(curuser,Software\Microsoft\Windows\CurrentVersion\Policies\Explorer,ClearRecentDocsOnExit))
dialog set,check18,1
else
end
if @ok(@regread(curuser,Software\Microsoft\Windows\CurrentVersion\Policies\Explorer,NoLogoff))
dialog set,check19,1
else
end
if @ok(@regread(curuser,Software\Microsoft\Windows\CurrentVersion\Policies\System,NoDispBackgroundPage))
dialog set,check20,1
else
end
if @ok(@regread(curuser,Software\Microsoft\Windows\CurrentVersion\Policies\System,NoDispScrSavPage))
dialog set,check21,1
else
end
if @ok(@regread(curuser,Software\Microsoft\Windows\CurrentVersion\Policies\System,NoDispAppearancePage))
dialog set,check22,1
else
end
if @ok(@regread(curuser,Software\Microsoft\Windows\CurrentVersion\Policies\System,NoDispSettingsPage))
dialog set,check23,1
else
end
if @ok(@regread(curuser,Software\Microsoft\Windows\CurrentVersion\Policies\System,NoDevMgrPage))
dialog set,check24,1
else
end
if @ok(@regread(curuser,Software\Microsoft\Windows\CurrentVersion\Policies\System,NoConfigPage))
dialog set,check25,1
else
end
if @ok(@regread(curuser,Software\Microsoft\Windows\CurrentVersion\Policies\System,NoFileSysPage))
dialog set,check26,1
else
end
if @ok(@regread(curuser,Software\Microsoft\Windows\CurrentVersion\Policies\System,NoVirtMemPage))
dialog set,check27,1
else
end
if @ok(@regread(root,LNKFILE,IsShortcut))
dialog clear,check28
else
dialog set,check28,1
end
if @ok(@regread(ROOT,Folder\shell\ChangeIcon))
dialog set,check29,1
else
end
:here
if @file(c:\windows\start menu\Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D},d)
dialog set,check30,1
else
end
%%start = 1
wait event
goto @event()
:evloop
if @equal(%%start,1)
dialog clear,status1
%%start = 0
else
end
wait event
goto @event()
:check1click
if @equal(@dlgtext(check1),1)
registry write,root,*\shell\Open With,,Op&en With
registry write,root,*\shell\Open With\Command,,C:\Windows\rundll32.exe shell32.dll","OpenAs_RunDLL "%"1
else
registry delete,root,*\shell\Open With
end
goto evloop
:check2click
if @equal(@dlgtext(check2),1)
registry delete,Local,Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced,StartMenuScrollPrograms
else
registry write,Local,Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced,StartMenuScrollPrograms,FALSE
end
goto evloop
:check3click
if @equal(@dlgtext(check3),1)
registry write,ROOT,Folder\shell\RootExplore,,E&xplore From Here
registry write,root,folder\shell\rootexplore\command,,"Explorer.exe /e,/root,/idlist,%i"
else
registry delete,root,folder\shell\rootexplore
end
goto evloop
:check4click
if @equal(@dlgtext(check4),1)
registry write,curuser,Software\Microsoft\Windows\CurrentVersion\Policies\Explorer,NoRun,1|0
else
registry delete,curuser,Software\Microsoft\Windows\CurrentVersion\Policies\Explorer,NoRun
Dialog Set,status1, You will have to restart windows for the change to take effect.
end
goto evloop
:check5click
if @equal(@dlgtext(check5),1)
registry write,curuser,Software\Microsoft\Windows\CurrentVersion\Policies\Explorer,NoFind,1|0
else
registry delete,curuser,Software\Microsoft\Windows\CurrentVersion\Policies\Explorer,NoFind
Dialog Set,status1, You will have to restart windows for the change to take effect.
end
goto evloop
:check6click
if @equal(@dlgtext(check6),1)
registry write,curuser,Software\Microsoft\Windows\CurrentVersion\Policies\Explorer,NoNetHood,1|0
Dialog Set,status1, You will have to restart windows for the change to take effect.
else
registry delete,curuser,Software\Microsoft\Windows\CurrentVersion\Policies\Explorer,NoNetHood
Dialog Set,status1, You will have to restart windows for the change to take effect.
end
goto evloop
:check7click
if @equal(@dlgtext(check7),1)
registry write,curuser,Software\Microsoft\Windows\CurrentVersion\Policies\Explorer,NoDesktop,1|0
Dialog Set,status1, You will have to restart windows for the change to take effect.
else
registry delete,curuser,Software\Microsoft\Windows\CurrentVersion\Policies\Explorer,NoDesktop
Dialog Set,status1, You will have to restart windows for the change to take effect.
end
goto evloop
:check8click
if @equal(%%evloop,1)
%%evloop = 0
goto evloop
else
end
if @not(@equal(@dlgtext(check8),1))
goto skipask
else
end
%%ask = @ask(You will have to press ctrl+alt+del to be able to shut down windows with this option selected"," do you wish to continue?)
if @null(%%ask)
dialog clear,check8
%%evloop = 1
goto evloop
else
end
:skipask
if @equal(@dlgtext(check8),1)
registry write,curuser,Software\Microsoft\Windows\CurrentVersion\Policies\Explorer,NoClose,1|0
else
registry delete,curuser,Software\Microsoft\Windows\CurrentVersion\Policies\Explorer,NoClose
Dialog Set,status1, You will have to shut down your computer by pressing ctrl+alt+del then reboot for this change to take effect.
end
goto evloop
:check9click
if @equal(@dlgtext(check9),1)
registry write,curuser,Software\Microsoft\Windows\CurrentVersion\Policies\Explorer,DisableRegistryTools,1|0
Dialog Set,status1, You will have to restart windows for the change to take effect.
else
registry delete,curuser,Software\Microsoft\Windows\CurrentVersion\Policies\Explorer,DisableRegistryTools
Dialog Set,status1, You will have to restart windows for the change to take effect.
end
goto evloop
:check10click
if @equal(@dlgtext(check10),1)
registry write,curuser,Software\Microsoft\Windows\CurrentVersion\Policies\Explorer,NoRecentDocsMenu,1|0
else
registry delete,curuser,Software\Microsoft\Windows\CurrentVersion\Policies\Explorer,NoRecentDocsMenu
Dialog Set,status1, You will have to restart windows for the change to take effect.
end
goto evloop
:check11click
if @equal(@dlgtext(check11),1)
registry write,curuser,Software\Microsoft\Windows\CurrentVersion\Policies\Explorer,NoFileMenu,1|0
else
registry delete,curuser,Software\Microsoft\Windows\CurrentVersion\Policies\Explorer,NoFileMenu
Dialog Set,status1, You will have to restart windows for the change to take effect.
end
goto evloop
:check12click
if @equal(@dlgtext(check12),1)
registry write,curuser,Software\Microsoft\Windows\CurrentVersion\Policies\Explorer,NoActiveDesktop,1|0
else
registry delete,curuser,Software\Microsoft\Windows\CurrentVersion\Policies\Explorer,NoActiveDesktop
Dialog Set,status1, You will have to restart windows for the change to take effect.
end
goto evloop
:check13click
if @equal(@dlgtext(check13),1)
Dialog Set,status1, This disables editing the Active Desktop from the Customize Settings feature"," however they can still add items by Right Clicking on items in the explorer window.
registry write,curuser,Software\Microsoft\Windows\CurrentVersion\Policies\Explorer,NoActiveDesktopChanges,1|0
else
registry delete,curuser,Software\Microsoft\Windows\CurrentVersion\Policies\Explorer,NoActiveDesktopChanges
Dialog Set,status1, You will have to restart windows for the change to take effect.
end
goto evloop
:check14click
if @equal(@dlgtext(check14),1)
registry write,curuser,Software\Microsoft\Windows\CurrentVersion\Policies\Explorer,NoInternetIcon,1|0
Dialog Set,status1, You will have to restart windows for the change to take effect.
else
registry delete,curuser,Software\Microsoft\Windows\CurrentVersion\Policies\Explorer,NoInternetIcon
Dialog Set,status1, You will have to restart windows for the change to take effect.
end
goto evloop
:check15click
if @equal(@dlgtext(check15),1)
registry write,curuser,Software\Microsoft\Windows\CurrentVersion\Policies\Explorer,NoFavoritesMenu,1|0
else
registry delete,curuser,Software\Microsoft\Windows\CurrentVersion\Policies\Explorer,NoFavoritesMenu
Dialog Set,status1, You will have to restart windows for the change to take effect.
end
goto evloop
:check16click
if @equal(@dlgtext(check16),1)
registry write,curuser,Software\Microsoft\Windows\CurrentVersion\Policies\Explorer,NoChangeStartMenu,1|0
else
registry delete,curuser,Software\Microsoft\Windows\CurrentVersion\Policies\Explorer,NoChangeStartMenu
Dialog Set,status1, You will have to restart windows for the change to take effect.
end
goto evloop
:check17click
if @equal(@dlgtext(check17),1)
registry write,curuser,Software\Microsoft\Windows\CurrentVersion\Policies\Explorer,NoFolderOptions,1|0
else
registry delete,curuser,Software\Microsoft\Windows\CurrentVersion\Policies\Explorer,NoFolderOptions
Dialog Set,status1, You will have to restart windows for the change to take effect.
end
goto evloop
:check18click
if @equal(@dlgtext(check18),1)
registry write,curuser,Software\Microsoft\Windows\CurrentVersion\Policies\Explorer,ClearRecentDocsOnExit,1|0
else
registry delete,curuser,Software\Microsoft\Windows\CurrentVersion\Policies\Explorer,ClearRecentDocsOnExit
end
goto evloop
:check19click
if @equal(@dlgtext(check19),1)
registry write,curuser,Software\Microsoft\Windows\CurrentVersion\Policies\Explorer,NoLogoff,1|0
Dialog Set,status1, You will have to restart windows for the change to take effect.
else
registry delete,curuser,Software\Microsoft\Windows\CurrentVersion\Policies\Explorer,NoLogoff
Dialog Set,status1, You will have to restart windows for the change to take effect.
end
goto evloop
:check20click
if @equal(@dlgtext(check20),1)
registry write,curuser,Software\Microsoft\Windows\CurrentVersion\Policies\System,NoDispBackgroundPage,1|0
else
registry delete,curuser,Software\Microsoft\Windows\CurrentVersion\Policies\System,NoDispBackgroundPage
end
goto evloop
:check21click
if @equal(@dlgtext(check21),1)
registry write,curuser,Software\Microsoft\Windows\CurrentVersion\Policies\System,NoDispScrSavPage,1|0
else
registry delete,curuser,Software\Microsoft\Windows\CurrentVersion\Policies\System,NoDispScrSavPage
end
goto evloop
:check22click
if @equal(@dlgtext(check22),1)
registry write,curuser,Software\Microsoft\Windows\CurrentVersion\Policies\System,NoDispAppearancePage,1|0
else
registry delete,curuser,Software\Microsoft\Windows\CurrentVersion\Policies\System,NoDispAppearancePage
end
goto evloop
:check23click
if @equal(@dlgtext(check23),1)
registry write,curuser,Software\Microsoft\Windows\CurrentVersion\Policies\System,NoDispSettingsPage,1|0
else
registry delete,curuser,Software\Microsoft\Windows\CurrentVersion\Policies\System,NoDispSettingsPage
end
goto evloop
:check24click
if @equal(@dlgtext(check24),1)
registry write,curuser,Software\Microsoft\Windows\CurrentVersion\Policies\System,NoDevMgrPage,1|0
else
registry delete,curuser,Software\Microsoft\Windows\CurrentVersion\Policies\System,NoDevMgrPage
end
goto evloop
:check25click
if @equal(@dlgtext(check25),1)
registry write,curuser,Software\Microsoft\Windows\CurrentVersion\Policies\System,NoConfigPage,1|0
else
registry delete,curuser,Software\Microsoft\Windows\CurrentVersion\Policies\System,NoConfigPage
end
goto evloop
:check26click
if @equal(@dlgtext(check26),1)
registry write,curuser,Software\Microsoft\Windows\CurrentVersion\Policies\System,NoFileSysPage,1|0
else
registry delete,curuser,Software\Microsoft\Windows\CurrentVersion\Policies\System,NoFileSysPage
end
goto evloop
:check27click
if @equal(@dlgtext(check27),1)
registry write,curuser,Software\Microsoft\Windows\CurrentVersion\Policies\System,NoVirtMemPage,1|0
else
registry delete,curuser,Software\Microsoft\Windows\CurrentVersion\Policies\System,NoVirtMemPage
end
goto evloop
:button1button
%%input = @input(New IE Title,@regread(LOCAL,Software\Microsoft\Internet Explorer\Main,Window Title))
if @null(%%input)
goto evloop
else
end
registry write,LOCAL,Software\Microsoft\Internet Explorer\Main,Window Title,%%input
goto evloop
:button2button
shell open,@windir()\system\Msconfig.exe
goto evloop
:check28click
if @equal(@dlgtext(check28),1)
registry delete,root,LNKFILE,IsShortcut
Dialog Set,status1, You will have to restart windows for the change to take effect.
else
registry write,root,LNKFILE,IsShortcut
Dialog Set,status1, You will have to restart windows for the change to take effect.
end
goto evloop
:button3button
if @equal(%%desktophide,0)
window hide,#progman
dialog set,button3,Show Desktop
%%desktophide = 1
else
%%desktophide = 0
dialog set,button3,Hide Desktop
window normal,#progman
end
goto evloop
:button4button
if @equal(%%taskbarhide,0)
window hide,#shell_traywnd
dialog set,button4,Show Taskbar
%%taskbarhide = 1
else
%%taskbarhide = 0
dialog set,button4,Hide Taskbar
window normal,#shell_traywnd
end
goto evloop
:button5button
%A = @sendmsg(@win(#progman),$02,0,0)
goto evloop
:button6button
%A = @sendmsg(@win(#shell_traywnd),$02,0,0)
goto evloop
:button7button
exitwin reboot
goto evloop
:button8button
%%filedlg = @filedlg(Applications|*.exe,Lauch Application)
if @null(%%filedlg)
goto evloop
else
end
shell open,%%filedlg
goto evloop
:button9button
shell open,control
goto evloop
:button10button
%%dirdlg = @dirdlg(Choose Folder)
if @null(%%dirdlg)
goto evloop
else
end
shell open,%%dirdlg
goto evloop
:check29click
if @equal(@dlgtext(check29),1)
registry write,ROOT,Folder\shell\ChangeIcon,,&Change Icon
registry write,root,folder\shell\changeicon\command,,@shortname(%0) @chr(34)"%1"@chr(34)
else
registry delete,ROOT,Folder\shell\ChangeIcon
end
goto evloop
:close
exit
:button11button
%%dirdlg = @dirdlg(Choose Folder)
if @null(%%dirdlg)
goto evloop
else
end
%%input = @input(Insert Mouse Over Message)
directory change,@path(%0)icons
%%filedlg = @filedlg(Icon Files and Executable Files|*.ico;*.exe,Choose Icon)
if @null(%%filedlg)
goto evloop
else
end
file delete,c:\windows\ShellIconCache
inifile open,%%dirdlg\desktop.ini
%%deleteme = @iniread(.ShellClassInfo,IconFile)
file setattr,%%dirdlg\%%deleteme,-h-r-s-a
file delete,%%dirdlg\%%deleteme
file delete,%%dirdlg\desktop.ini
file copy,%%filedlg,%%dirdlg\@name(%%filedlg).ico
list add,1,[.ShellClassInfo]
if %%input
list add,1,InfoTip=%%input
else
end
list add,1,IconFile=@name(%%filedlg).ico
list add,1,IconIndex=0
list add,1,ConfirmFileOp=0
list add,1,OriginalIcon="%"
list savefile,1,%%dirdlg\desktop.ini
file setattr,%%dirdlg\desktop.ini,ARHS
file setattr,%%dirdlg\@name(%%filedlg).ico,RHSA
file setattr,%%dirdlg,S
if @equal(@path(%%dirdlg),c:\windows\desktop\)
wait 1
directory rename,%%dirdlg,c:\windows\desktop\Temp
wait 1
directory rename,c:\windows\desktop\temp,%%dirdlg
wait
window send,#progman,@name(%%dirdlg)@key(f5)
else
wait
window send,#CabinetWclass,@key(f5)
end
goto evloop
:continue
%%input = @input(Insert Mouse Over Message)
directory change,@path(%0)icons
%%filedlg = @filedlg(Icon Files and Executable Files|*.ico;*.exe,Choose Icon)
if @null(%%filedlg)
stop
else
end
file delete,c:\windows\ShellIconCache
inifile open,%%dirdlg\desktop.ini
%%deleteme = @iniread(.ShellClassInfo,IconFile)
file setattr,%%dirdlg\%%deleteme,-h-r-s-a
file delete,%%dirdlg\%%deleteme
file delete,%%dirdlg\desktop.ini
file copy,%%filedlg,%%dirdlg\@name(%%filedlg).ico
list add,1,[.ShellClassInfo]
if %%input
list add,1,InfoTip=%%input
else
end
list add,1,IconFile=@name(%%filedlg).ico
list add,1,IconIndex=0
list add,1,ConfirmFileOp=0
list add,1,OriginalIcon="%"
list savefile,1,%%dirdlg\desktop.ini
file setattr,%%dirdlg\desktop.ini,ARHS
file setattr,%%dirdlg\@name(%%filedlg).ico,RHSA
file setattr,%%dirdlg,S
if @equal(@path(%%dirdlg),c:\windows\desktop\)
wait 1
directory rename,%%dirdlg,c:\windows\desktop\Temp
wait 1
directory rename,c:\windows\desktop\temp,%%dirdlg
wait
window send,#progman,@name(%%dirdlg)@key(f5)
else
wait
window send,#CabinetWclass,@key(f5)
end
stop
:check30click
if @equal(@dlgtext(check30),1)
directory create,c:\windows\start menu\Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}
else
directory delete,c:\windows\start menu\Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}
end
goto evloop
|
|
|