18 lines
420 B
Factor
18 lines
420 B
Factor
IN: process
|
|
USING: alien compiler io io-internals kernel math parser generic
|
|
win32-api ;
|
|
|
|
: (run-process) ( string flag -- )
|
|
>r f swap f f 0 r> f f
|
|
"STARTUPINFO" <c-object>
|
|
"STARTUPINFO" c-size over set-STARTUPINFO-cb
|
|
"PROCESS_INFORMATION" <c-object> CreateProcess
|
|
win32-error=0 ;
|
|
|
|
: run-process ( string -- )
|
|
0 (run-process) ;
|
|
|
|
: run-detached ( string -- )
|
|
DETACHED_PROCESS (run-process) ;
|
|
|