Einzelnen Beitrag anzeigen

Benutzerbild von TonyR
TonyR

Registriert seit: 17. Jun 2006
Ort: Bautzen
503 Beiträge
 
FreePascal / Lazarus
 
#4

Re: Diverse Shortcut-Anzeigen

  Alt 25. Aug 2008, 12:55
Also wie man die Sprache herausbekommt?

Zitat von www.delphi-treff.de:
Systemsprache ermitteln
GetSystemDefaultLangID, VerLanguageName


--------------------------------------------------------------------------------

Soll ihr Programm auch auf Systemen mit verschiedenen Systemsprachen zum Einsatz kommen, können Sie diese mithilfe der untenstehenden Funktion ermitteln:

Delphi-Quellcode:
function GetOSLanguage: string;
var
  LanguageID:LangID;
  Len: Integer;
begin
  SetLength(Result, 255);
  LanguageID:=GetSystemDefaultLangID;
  Len:=VerLanguageName(LanguageID,PChar(Result), Length(Result));
  SetLength(Result, Len);
end;

--------------------------------------------------------------------------------
Letzte Aktualisierung: 03.02.2005
Es ist unmöglich, witzig zu sein ohne ein bisschen Bosheit. Die Bosheit eines guten Witzes ist der Widerhaken, der ihn haften lässt. - Georg Christoph Lichtenberg
  Mit Zitat antworten Zitat