Überprüfen welche Sprache Windows XP hat

[Viperb0y]

Hallo,

Wie mache ich sowas in der art:

Code:

wenn sprache von win xp = deutsch
tue
bla
tue ende
oder wenn sprache von win xp anders ist
tue
blub
tue ende

Wäre praktisch wens gehen würde

[Mirilin]

Klick mich

hoffe mal, es ist das...

[Viperb0y]

Zitat von Mirilin:

Klick mich

hoffe mal, es ist das...

Okay,

Ich kann leider nur PHP

Wie mache ich sowas:

Delphi-Quellcode:

<?php
if (GetLang) == "Deutsch (Deutschland)" {
  bla
} else {
  blub
}
?>

[toms]

Schau mal hier: (msdn)

[Viperb0y]

Zitat von toms:

Schau mal hier: (msdn)

Jo, aber wie mache ich das mit dem IF?

[Mystic]

Da müsstest du in die Informationen sehen, die der Browser im HTTP-Header überreicht. Diese findest du im Array $HTTP_SERVER_VARS. Die Sprache ist im Eintrag 'HTTP_ACCEPT_LANGUAGE'. Die ersten beiden Buchstaben des Strings geben die gewünschte Sprache aus (Für Deutsch de). Nach etwas Rumprobieren und der Hilfe einer PHP-Referenz (Ich kann PHP nun mal nicht so gut ) kam folgender Code raus:

Code:

<?php
  if (substr($HTTP_SERVER_VARS['HTTP_ACCEPT_LANGUAGE'],0,2) == 'de') {
    echo('bla');
  } else {
    echo('blub');
  }
?>

Ich hoffe, dir ist damit geholfen.

Mfg

Mystic

[Viperb0y]

Zitat von Mystic:

Da müsstest du in die Informationen sehen, die der Browser im HTTP-Header überreicht. Diese findest du im Array $HTTP_SERVER_VARS. Die Sprache ist im Eintrag 'HTTP_ACCEPT_LANGUAGE'. Die ersten beiden Buchstaben des Strings geben die gewünschte Sprache aus (Für Deutsch de). Nach etwas Rumprobieren und der Hilfe einer PHP-Referenz (Ich kann PHP nun mal nicht so gut ) kam folgender Code raus:

Code:

<?php
  if (substr($HTTP_SERVER_VARS['HTTP_ACCEPT_LANGUAGE'],0,2) == 'de') {
    echo('bla');
  } else {
    echo('blub');
  }
?>

Ich hoffe, dir ist damit geholfen.

Mfg

Mystic

Sorry falsch ausgedrüückt!

PHP kann ich prima! Da weis ich ja alles! Will nur wissen wie man ne if schleife in Delphi macht!

[Mirilin]

hier findest du was dazu

Ps : Delphi-Hilfe

[Viperb0y]

Zitat von Mirilin:

hier findest du was dazu

Ps : Delphi-Hilfe

Vielen danke! du bist der einzige der mir bis jetzt richtig geholfen hat

Aber danke natürlich auch an die Anderen!

[Moony]

Also, falls du trotzdem in der Delphi hilfe nichts finden solltest:

Delphi-Quellcode:

if LowerCase(Copy(GetWindowsLanguage,1,7)) = 'deutsch' then
begin
  bla
end
else begin
  bla
end;

Gruß, Moony