![]() |
Re: Programm mehrsprachig
vielen Dank!
Irgendwie gar nicht wirklich schwer, aber irgendwie hab ich da schon ein paar Tage davor gesessen und kam damit nicht richtig klar. |
Re: Programm mehrsprachig
Ich habe es so gelöst:
Delphi-Quellcode:
Es wird dann entsprechend die Ressourcedatei AppName.xxx (xxx=deu/eng/ita...) beim Programmstart geladen.
procedure TFRM_Main.SetLocal(LocalOverride: string);
var Reg: TRegistry; AppName : PChar; begin Reg := TRegistry.Create; try if Reg.OpenKey('Software\Borland\Locales', True) then Reg.WriteString(Application.ExeName, LocalOverride); finally Reg.Free; end; AppName := PChar(Application.ExeName) ; ShellExecute(Handle,'open', AppName, nil, nil, SW_SHOWNORMAL) ; Application.Terminate; Close; end; procedure TFRM_Main.ACT_LANG_ENGExecute(Sender: TObject); begin SetLocal('eng'); end; procedure TFRM_Main.ACT_LANG_ITAExecute(Sender: TObject); begin SetLocal('ita'); end; procedure TFRM_Main.ACT_LANG_DEUExecute(Sender: TObject); begin SetLocal('deu'); end; procedure TFRM_Main.ACT_LANG_FRAExecute(Sender: TObject); begin SetLocal('fra'); end; |
Re: Programm mehrsprachig
nt
|
Alle Zeitangaben in WEZ +1. Es ist jetzt 02:14 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz