Fortran Coder

标题: 利用fortran调用电脑的计算器后怎么关闭console [打印本页]

作者: 大头鼹鼠 时间: 2017-3-13 09:54
标题: 利用fortran调用电脑的计算器后怎么关闭console
本帖最后由大头鼹鼠于 2017-3-13 09:59 编辑

[Fortran] 纯文本查看 复制代码

program eee

    implicit none

    integer:: res

     call  SYSTEM ("C:\windows\system32\calc.exe")

    end program eee

作者: li913 时间: 2017-3-13 10:47
我在win10运行，打开计算器后console自动关闭。

作者: 大头鼹鼠 时间: 2017-3-13 11:05

li913 发表于 2017-3-13 10:47
我在win10运行，打开计算器后console自动关闭。

这个win10也太牛逼了吧:'

作者: vvt 时间: 2017-3-13 17:12
本帖最后由 vvt 于 2017-3-14 22:24 编辑

语法规范里没有这个功能。
如果是windows平台，可以试试这样：

注意，win10 不能用 calc 来测试。因为 calc 实际上又运行了 Calculator.exe而这个代码只能结束子进程，不能结束孙子进程。

[Fortran] 纯文本查看 复制代码

  use kernel32

  use , intrinsic :: ISO_C_Binding

  Type(        T_STARTUPINFO) ::stStartUp

  Type(T_PROCESS_INFORMATION        ) ::stProcInfo

  integer i

  Call GetStartupInfo( stStartUp )

  i = CreateProcess( 0 , "c:\windows\system32\notepad.exe"//c_null_char , 0 , 0 , 1 , 0 , 0 , 0 , LOC( stStartUp ) , LOC(stProcInfo) )

  read(*,*) 

  i = TerminateProcess( stProcInfo%hProcess , 0 )

end

作者: 大头鼹鼠 时间: 2017-3-14 09:23

vvt 发表于 2017-3-13 17:12
语法规范里没有这个功能。
如果是windows平台，可以试试这样：

谢谢不错

欢迎光临 Fortran Coder (http://bbs.fcode.cn/)