Zitat von
AlexII:
Wie kann man die Funktion jetzt so umbauen, dass sie nicht den Name der
OS anzeigt, sondern die Nummer?
Sorry, aber Du schreibst Software die auch im Ausland eingesetzt wird
und kannst die simple Funktion nicht umbauen?
Delphi-Quellcode:
function GetOSLanguage: Integer;
begin
result:=GetSystemDefaultLangID;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Label1.Caption := IntToStr(GetOSLanguage);
end;
Nachdenkliche Grüße
Klaus