Registriert seit: 17. Jun 2006
Ort: Bautzen
503 Beiträge
FreePascal / Lazarus
|
Re: Diverse Shortcut-Anzeigen
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
|