Возвращать сообщения на родном языке компьютераDelphi , ОС и Железо , ЯзыкВозвращать сообщения на родном языке компьютера
Оформил: DeeCo { Call inLanguage like this to get the German text else return english if you use different coutntry codes you can do more } {############### FGetLanguageSettings ############################ # Author: Walter Verhoeven # Date: 14.Sep.2000 # Coming From: InLanguage # Next Event: NONE # Parameters: NONE # Objective: See the users regional settings and return Country #number code # Change: # DD-MMM-YYYYY ¦Programmer # 1) # ########################################################} function FGetLanguageSettings: Integer; var OutputBuffer: PChar; SelectedLCID: LCID; //DWORD constand in Windows.pas begin OutputBuffer := StrAlloc(4); //alocate memory for the PChar try try SelectedLCID := GetUserDefaultLCID; GetLocaleInfo(SelectedLCID, LOCALE_ICOUNTRY, OutputBuffer, 3); Result := StrToInt(OutputBuffer); except Result := 49; //german Abort; end; finally StrDispose(OutputBuffer); //alway's free the memory alocated end; end; {############## INLanguage ####################################### # Author: Walter Verhoeven # Date: .Jun.2000 # Coming From: # Next Event: FGetLanguageSettings # Parameters: Eglish and german text # Objective: provide a method to return # english or german results based on the # users window prefered language setting. # Change: # DD-MMM-YYYYY ¦Programmer # 1) # ##############################################################} function INLanguage(English, German: string): string; begin case FGetLanguageSettings of 49: Result := German; // Return the german string 43: Result := German; // If the PC has a german preferance 41: Result := German; 352: Result := German; else Result := English; // if not german then english end; end; procedure TForm1.Button1Click(Sender: TObject); begin ShowMessage(Format(INLanguage('My %s English Word', 'Riesiges %s Software-Angebot'), ['Hopla'])); end; Статья Возвращать сообщения на родном языке компьютера раздела ОС и Железо Язык может быть полезна для разработчиков на delphi & pascal. Комментарии и вопросыМатериалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.
|
||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |