Ich würde eher die Funkion so lassen und im Button einfach nur aufurfen. Also
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;
procedure TForm1.Button1Click(Sender: TObject);
begin
Label1.Caption := GetOSLanguage;
end;
Zitat von
AlexII:
Und ist dann die Abfrage richtig so?
Ich kann dir nicht sagen ob Deutsch (Deutschland) richtig ist. Kannst das ja so wie ich geschrieben habe erstmal ausführen dann weißt du was du drinnen steht wenn es sich um Deutsch hält.