Example of calling the Win32 API routine GetOpenFileName ! ... if any - null string ! otherwise ! character*512 :: file_spec = ""C integer status,ilen ...
確定! 回上一頁