OpenEuphoria

Re: Shutdown Win2000/XP

• Posted by Chris Burch <chriscrylex at aol.com> Mar 05, 2006
• 468 views

Hi

I use this if I I'm doing something thats going to take a long time, ANd I need
the computer shut down later.

--  code generated by Win32Lib IDE v0.18.23r

 
include Win32Lib.ew
without warning

--------------------------------------------------------------------------------
--  Window Window1
sequence IDEFlags
IDEFlags = classDefaults(Window, { {1, {WS_SYSMENU}},{2, {WS_EX_DLGMODALFRAME}}
} )
constant Window1 = createEx( Window, "", 0, Default, Default, 126, 136,
{WS_DLGFRAME, WS_SYSMENU}, {WS_EX_DLGMODALFRAME} )
constant LText2 = createEx( LText, "Minutes to shudown", Window1, 8, 8, 112, 20,
0, 0 )
constant EditText3 = createEx( EditText, "", Window1, 16, 32, 84, 20, 0, 0 )
constant PushButton4 = createEx( PushButton, "Go", Window1, 16, 60, 84, 28, 0, 0
)
---------------------------------------------------------
sequence IDE_labeltable
IDE_labeltable = {
{Window1,"Layer 0",EditText3},
{Window1,"Layer 0",LText2},
{Window1,"Layer 0",PushButton4},
{Window1,"Layer 0",Window1}
}
function setLayerVisible(integer windowName,sequence layerName,integer state)
    integer foundIt
    foundIt=0
    for i=1 to length(IDE_labeltable) do
        if equal(windowName,IDE_labeltable[i][1])
        and equal(layerName,IDE_labeltable[i][2]) then
            setVisible(IDE_labeltable[i][3],state)
            foundIt=w32True
        elsif foundIt then
            exit
        end if
    end for
    if foundIt then
        return 0
    else
        return 1
    end if
end function
function setLayerEnable(integer windowName,sequence layerName,integer state)
    integer foundIt
    foundIt=0
    for i=1 to length(IDE_labeltable) do
        if equal(windowName,IDE_labeltable[i][1])
        and equal(layerName,IDE_labeltable[i][2]) then
            setEnable(IDE_labeltable[i][3],state)
            foundIt=w32True
        elsif foundIt then
            exit
        end if
    end for
    if foundIt then
        return 0
    else
        return 1
    end if
end function
--------------------------------------------------------------------------------
procedure PushButton4_onClick (integer self, integer event, sequence
params)--params is ()
integer mins
sequence cmd_str
integer MsgBox

mins = w32TextToNumber(getText(EditText3))

if mins > 0  then
	cmd_str = sprintf("shutdown -f -s -t %d", {60*mins})
	--integer MsgBox
	--MsgBox = message_box(cmd_str, "Title", #0)

	system(cmd_str, 0)

else
	abort(0)

end if


end procedure
setHandler( PushButton4, w32HClick, routine_id("PushButton4_onClick"))


WinMain( Window1,Normal )

http://members.aol.com/chriscrylex/euphoria.htm
http://uboard.proboards32.com/
http://members.aol.com/chriscrylex/EUSQLite/eusql.html