Module Mod_String
Implicit None
contains
Character(Len=512) function GetString(Code)
Use User32,only:LoadString
Use Kernel32,only:GetModuleHandle,NULL
Integer res
Integer , Intent(In) :: Code
GetString=''
res = LoadString( GetModuleHandle(NULL) , Code , GetString , 100 )
GetString=GetString( 1 : Len_Trim(GetString)-1 )
End Function GetString
End Module Mod_String
Program www_fcode_cn
use Mod_String
Implicit None
write(*,*) Trim(GetString(1))
End Program www_fcode_cn
欢迎光临 Fortran Coder (http://bbs.fcode.cn/) | Powered by Discuz! X3.2 |