Shut down/Desktop Icons

BlitzMax Forums/BlitzMax Programming/Shut down/Desktop Icons

CASO	(Posted 2006) [#1]

Is there a way to tell Windows to shut down?

Is there a way to create a shortcut icon on the desktop?

Both of these were possible in BlitzPlus through a lib.

Triforce Guardian

(Posted 2006) [#2]

You can do it via winapi.

EOF	(Posted 2006) [#3]

Try the code here which has these commands:

Standby
Hibernate
Shutdown
Restart
LogOff

Strict

Framework BRL.Blitz
Import brl.retro
Import "-lkernel32"
Import "-ladvapi32"

Extern "Win32"
	'advapi32
	Function OpenProcessToken(ProcessHandle, DesiredAccess, TokenHandle:Byte Ptr)
	Function LookupPrivilegeValue(lpSystemName$z, lpName$z, lpLuid:Byte Ptr) = "LookupPrivilegeValueA@12"
	Function AdjustTokenPrivileges(TokenHandle, DisableAllPrivileges, NewState:Byte Ptr,..
		BufferLength, PreviousState:Byte Ptr, ReturnLength:Byte Ptr)
	'kernel32
	Function GetVersion()
	Function GetCurrentProcess()
	Function SetSystemPowerState(fSuspend, fForce)
	Function ExitWindowsEx(uFlags%,dwReserved%=0)
	Function GetLastError()                               
End Extern

'Standby
'Hibernate
'Shutdown
'Restart
'LogOff

End


Function Standby(forced%=False)
	If EnableShutdownPrivileges()
		SetSystemPowerState(True, forced)
	EndIf
End Function

Function Hibernate(forced%=False)
	If EnableShutdownPrivileges()
		SetSystemPowerState(False, forced)
	EndIf	
End Function

Function Shutdown(forced%=False)
	If EnableShutdownPrivileges()
		ExitWindowsEx $8 | $4 * forced
	EndIf
End Function

Function Restart(forced%=False)
	If EnableShutdownPrivileges()
		ExitWindowsEx $2 | $4 * forced
	EndIf
End Function

Function LogOff(forced%=False)
	If EnableShutdownPrivileges()
		ExitWindowsEx $0 | $4 * forced
	EndIf
End Function

Function EnableShutdownPrivileges%()
	Const TOKEN_ADJUST_PRIVILEGES% = $20
	Const TOKEN_QUERY% = $8
	Const SE_PRIVILEGE_ENABLED% = $2
	Local tokenPrivilege%[4]
	If LookupPrivilegeValue(Null, "SeShutdownPrivilege", Byte Ptr(tokenPrivilege)+4)
		Local hProc% = GetCurrentProcess() ' -1
		Local hToken%
		If OpenProcessToken(hProc, TOKEN_ADJUST_PRIVILEGES | TOKEN_QUERY, Varptr(hToken))
			tokenPrivilege[0] = 1
			tokenPrivilege[3] = SE_PRIVILEGE_ENABLED
			If AdjustTokenPrivileges(hToken, False, Byte Ptr(tokenPrivilege), Null, Null, Null)
				Return True
			EndIf
		EndIf
	EndIf
End Function

CASO	(Posted 2006) [#4]

It returns-
"Compile Error"
"CString can only be used with extern functions"
-when you try to run it.

EOF	(Posted 2006) [#5]

I get no error here. Are you using BlitzMax 1.22?

CASO	(Posted 2006) [#6]

I synced the modules and now it works.

Drackbolt

(Posted 2010) [#7]

Talk about reviving an old thread... but I'm curious, what's the answer to the second question (creating shortcuts)?

_JIM	(Posted 2010) [#8]

http://www.tacktech.com/display.cfm?ttid=316

Drackbolt

(Posted 2010) [#9]

Sorry, I thought it would be obvious that we were all talking about how to create a shortcut within Blitzmax. :) Can anyone help with that?