function GetSysInfo()
int nvType, nvSize, nResult;
string svResult;
int nvResult;
begin
nResult = GetSystemInfo(LANGUAGE, nvResult, svResult);
if (nResult < 0) then
MessageBox("Get information failed", INFORMATION);
else
if (nvResult == ISLANG_CHINESE_TRADITIONAL) then
MessageBox("Chinese Traditional system.", INFORMATION);
else
if (nvResult == ISLANG_CHINESE_SIMPLIFIED) then
MessageBox("Chinese SIMPLIFIED system.", INFORMATION);
else
if (nvResult == ISLANG_JAPANESE) then
MessageBox("JAPANESE system.", INFORMATION);
else
if (nvResult == ISLANG_ENGLISH) then
MessageBox("ENGLISH system.", INFORMATION);
endif;
endif ;
endif