Umlaute im nicht deutschen Windows umwandeln?

[AlexII]

Und ist dann die Abfrage richtig so?

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  Ident: Integer;
  MyLang: PChar;
const
  Size: Integer = 250;
begin
  GetMem(MyLang, Size);
  Ident:=GetSystemDefaultLangID;
  VerLanguageName(Ident, MyLang, Size);
  Label1.Caption:=StrPas(MyLang);
  FreeMem(MyLang);

  if Label1.Caption='Deutsch (Deutschland)' then
  begin
  nicht umwandeln...
  end else umwandeln..;

end;

[Larsi]

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.

[AlexII]

Ja Label1.Caption ist dann "Deutsch (Deutschland)" aber soll ich wirklich dann so abfragen?

Delphi-Quellcode:

if Label1.Caption='Deutsch (Deutschland)' then
  begin
  nicht umwandeln...
  end else umwandeln..;

Gibt's da nicht eine Nummer oder so für die deutsche Sprache?

[DeddyH]

Siehe GetSystemDefaultLangID

[Klaus01]

Zitat von AlexII:

Ja Label1.Caption ist dann "Deutsch (Deutschland)" aber soll ich wirklich dann so abfragen?

Delphi-Quellcode:

if Label1.Caption='Deutsch (Deutschland)' then
  begin
  nicht umwandeln...
  end else umwandeln..;

Gibt's da nicht eine Nummer oder so für die deutsche Sprache?

Dann schau Dir mal genau an was der Code macht.

Delphi-Quellcode:

LanguageID:=GetSystemDefaultLangID;
Len:=VerLanguageName(LanguageID,PChar(Result), Length(Result));

Grüße
Klaus

[AlexII]

Wie kann man die Funktion jetzt so umbauen, dass sie nicht den Name der OS anzeigt, sondern die Nummer?

[DeddyH]

Hast Du meinen Link verfolgt?

[Klaus01]

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

[AlexII]

Zitat von DeddyH:

Hast Du meinen Link verfolgt?

Ja aber ich weiß nicht was ich damit anfangen soll, verzeih.

[AlexII]

Zitat von Klaus01:

Sorry, aber Du schreibst Software die auch im Ausland eingesetzt wird und kannst die simple Funktion nicht umbauen?

Ja so ist das manchmal, Bill wurde ja auch aus der Schule geschmissen.

Ich hab erst vor kurzen angefangen Proceduren durchzunehmen, die Funktionen kommen später dran. Ich weiß sie sind fast gleich, aber mir fällt alles so schwer.