#console
Declare Sub GetNkfVersion cdecl Lib "nkf32" (vstr As BytePtr)
Declare Sub NkfConvert cdecl Lib "nkf32" (out As BytePtr,in As BytePtr)
Declare Function SetNkfOption cdecl Lib "nkf32" (opt As BytePtr) As Integer
Dim vstr(31) As Byte
GetNkfVersion(vstr) 'バージョンをゲット
print MakeStr(vstr)
Dim istr(31) As Byte
Dim ostr(31) As Byte
NkfConvert(ostr,"こんにちば") 'へんかんせずそのままひょうじ
print MakeStr(ostr)
SetNkfOption("e") 'EUCに変換
lstrcpy(istr,"abc 漢字 ABC")
NkfConvert(ostr,istr)
print MakeStr(ostr)