Delphi-PRAXiS
Seite 2 von 2     12   

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Sonstige Fragen zu Delphi (https://www.delphipraxis.net/19-sonstige-fragen-zu-delphi/)
-   -   Delphi Programm mehrsprachig (https://www.delphipraxis.net/46134-programm-mehrsprachig.html)

Susanne 20. Mai 2005 14:04

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.

minimops 20. Mai 2005 16:04

Re: Programm mehrsprachig
 
Ich habe es so gelöst:

Delphi-Quellcode:
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;
Es wird dann entsprechend die Ressourcedatei AppName.xxx (xxx=deu/eng/ita...) beim Programmstart geladen.

toms 20. Mai 2005 16:27

Re: Programm mehrsprachig
 
nt


Alle Zeitangaben in WEZ +1. Es ist jetzt 02:14 Uhr.
Seite 2 von 2     12   

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