Forum: Programmieren allgemein
by Klaus01,
10. Okt 2008
if (GetSytemDefaultLangID and $03FF) = $07 then
ShowMessage('irgendwo im deutschsprachigem Raum');
Forum: Programmieren allgemein
by Klaus01,
10. Okt 2008
Sorry, aber Du schreibst Software die auch im Ausland eingesetzt wird
und kannst die simple Funktion nicht umbauen?
function GetOSLanguage: Integer;
begin
result:=GetSystemDefaultLangID;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Forum: Programmieren allgemein
by Klaus01,
10. Okt 2008
Dann schau Dir mal genau an was der Code macht.
LanguageID:=GetSystemDefaultLangID;
Len:=VerLanguageName(LanguageID,PChar(Result), Length(Result));
Grüße
Klaus
Forum: Programmieren allgemein
by Klaus01,
10. Okt 2008
Tante Google befragen, und das hier finden.
Grüße
Klaus
Forum: Programmieren allgemein
by Klaus01,
10. Okt 2008
Vielleicht solltest Du aber auch mal darüber nachdenken
Dein Programm mehrsprachig anzubieten.
Wie kannst Du sicher sein, dass die deutschen Texte im Ausland verstanden werden.
Ein Stichwort dazu wäre: GNU gettext
Grüße
Klaus