DetectInputCodepageを利用するスクリです。
ひとまずどんなものなのかチェックするために書いてみたものなので、
まんまなコードですが。精度とかもあるそうで。
http://www.google.co.jp/search?q=DetectInputCodepage
#define IID_IMultiLanguage2 "{DCCFC164-2B38-11d2-B7EC-00C04F8F5D9A}"
#define CLDID_CMultiLanguage "{275C23E2-3747-11D0-9FEA-00AA003F8646}"
#usecom IMultiLanguage2 IID_IMultiLanguage2 CLDID_CMultiLanguage
#comfunc ML2_DetectInputCodepage 22 int, int, var, var, var, var
newcom pML2, IMultiLanguage2
dialog "", 16
if stat = 0 : stop
notesel pSrcStr
noteload refstr
pcSrcSize = strsize
dim lpEncoding, 4
pnScores = 1
ML2_DetectInputCodepage pML2, 0, 0, pSrcStr, pcSrcSize, lpEncoding, pnScores
mes stat
mes "コードページ: "+lpEncoding.1
delcom pML2