Exit to windows explorer with RR exit

**swordfishunter** · 08-04-2008, 03:05 PM

It seems a solution has been posted heeeeeeere.

http://www.mp3car.com/vbulletin/code...-gui-exit.html

All you experienced coders or perhaps the "guvnor" guino can code this into an exit command pleeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee ase.

I'm not good with coding, basic scripts etc.. but not this.

**swordfishunter** · 08-06-2008, 09:46 AM

bump

**JohnWPB** · 08-06-2008, 10:58 AM

No fancy coding is needed really.

Open the Exectbl.ini and add this line:

"Explorer","RUN;Explorer.exe"

Then on your exit button, in the skin, simply add ||Explorer, so you exit button code would then be:

"QUIT||Explorer"

**swordfishunter** · 08-06-2008, 11:15 AM

Doesnt quite work that way.

Booting straight into RR is fine, however, on exit, if you write the simple Exit run explorer.exe, all you get is an explorer window, no taskbar, no start menu etc.

The solution mentioned rewrites the registry so that on exit, the entire shell, incl. task bar and start menu is loaded.

Just FYI - what needs to be done is in portreathbeach's logic
In the main form load_Load:

'-----------------------------
Dim WSH
WSH = CreateObject("WScript.Shell")
WSH.RegWrite("HKEY_LOCAL_MACHINE\Software\Microsof t\Windows
NT\CurrentVersion\Winlogon\Shell", "explorer.exe")
'-----------------------------

In the 'exit' button:

'-----------------------------
Shell("explorer.exe")
Dim WSH
WSH = CreateObject("WScript.Shell")
WSH.RegWrite("HKEY_LOCAL_MACHINE\Software\Microsof t\Windows NT\CurrentVersion\Winlogon\Shell", My.Application.Info.DirectoryPath & "\Vive.exe")
End
'-----------------------------

Can it be done on AUTO IT?

**EL CAMINO** · 08-06-2008, 01:56 PM

i use this AutoiIt script in my skin for selecting RR or Explorer. you can use it if you want,

Code:

#cs/ 
i.e. "RUN;$SKINPATH$Shell.exe|RoadRunner"  will set RR as the systems shell
     "RUN;$SKINPATH$Shell.exe|windows"     for explorer.
#ce/

if not WinExists("RoadRunner", "") Then
	exit
EndIf
$rr = ObjCreate("RoadRunner.sdk")
if Not IsObj($rr) then Exit

$rrpath=$rr.getinfo("RRPATH")

Switch $CmdLineRaw
	Case "Windows"
		RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\microsoft\Windows NT\CurrentVersion\Winlogon", "shell", "REG_SZ", "explorer.exe")
		$rr.Execute("SETLABEL;!SHELL;UPDATING||WAIT;1||SETLABEL;!SHELL;WINDOWS")

	Case "RoadRunner"
		RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\microsoft\Windows NT\CurrentVersion\Winlogon", "shell", "REG_SZ", $rrpath& "RoadRunner.exe")
		$rr.Execute("SETLABEL;!SHELL;UPDATING||WAIT;1||SETLABEL;!SHELL;Road Runner")
EndSwitch