在ocaml中運行可執行文件（windows）文件

Question

快速的問題。如何在ocaml中運行可執行文件？我相信這是可能的，但我不知道如何。

請提供示例代碼。

Answer 1

如果你只是想運行一個程序，而不是與它溝通，請使用Sys.command。

let exit_code = Sys.command "c:\\path\\to\\executable.exe /argument" in 
(* if exit_code=0, the command succeeded. Otherwise it failed. *) 

對於更復雜的情況，您需要使用functions in the Unix module。儘管名稱，most of them在Windows下工作。例如，如果您需要從命令中獲得輸出：

let ch = Unix.open_process_in "c:\\path\\to\\executable.exe /argument" in 
try 
    while true do 
    let line = input_line ch in … 
    done 
with End_of_file -> 
    let status = close_process_in ch in …