1 USING: accessors alien alien.c-types elevate io.launcher kernel
2 locals math sequences splitting strings system windows.errors
8 M: windows already-root?
11 M:: windows elevated ( command replace? win-console? posix-graphical? -- process )
13 <process> command >>command
17 command dup string? [ " " split ] when
18 ! lpFile lpParameters lpDirectory nShowCmd
19 [ first ] [ rest ] bi " " join f win-console? >c-bool
21 ShellExecuteW alien-address :> retval retval 32 <= [ retval n>win32-error-check ] [ ] if
22 retval replace? [ exit ] [ ] if
25 ! no-op (not possible to lower)