#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)