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