资料收集站

1、  
ShowMessage(  Format('$%.4x',[GetSystemDefaultLangID])+Format('$%.4x',[GetUserDefaultLangID]));  
2、  
ShowMessage(GetLocaleString(LOCALE_SENGLANGUAGE));  
 
function  GetLocaleString(lctp:  LCTYPE):  String;  
var  
   j:  Integer;  
   s:  String;  
begin  
       j  :=  GetLocaleInfo(GetSystemDefaultLCID,  lctp,  PChar(nil),  0);  
       SetLength(s,  j);  
       GetLocaleInfo(GetSystemDefaultLCID,  lctp,  PChar(s),  j);  
       SetLength(s,  j-1);  
       Result  :=  s;  
end;  
---------------------------------------------------------------  
 
case  GetSystemDefaultLangID  of  
       $00000404  :  //    中文  (台

Comments (0)

Name

Email

Website

Title

Comment

smaller | bigger

Subscribe via email (registered users only)

I have read and agree to the Terms of Usage.

Add Comment