GetSystemDefaultUILanguage HJÆLP!

GetSystemDefaultUILanguage er ikke understøttet på 95,98,NT

Jeg har desværre ingen løsning på det.

Stoney

Øhh hvad jeg skal jeg bruge det til!
Ej mener du at DU ikke har en løsning eller at det bare ikke KAN løses?

Jeg ville bare informere dig så du ikke brugte en masse tid på
at få GetSystemDefaultUILanguage til at virke på 95,98,NT4.

Men jeg skal ALDRIG forstyrre dig med en kommentar mere !!

Stoney

Hey mester det var ikke ment på den måde :) Er super glad på dit svar jeg ville bare lige være sikker på jeg forstod det rigtigt, hvad siger du til at få 50 point for det svar?

Jeg har løst problemet på en lidt alternativ måde :)
I win.ini er der en key der hedder 'StandardName' når man kører engelsk version er værdien = "Romance Standard Time" kører man dansk er værdien = "Rom, normaltid".
Så har jeg en funktion der læser værdien og returnere en string med Danish når værdien er den danske og english når værdien er den engelske. Det er lidt klodset men desværre den eneste måde jeg endnu har fundet til at løse det som virker Win95->WinXP.

Prov dette:

function GetLanguage : string;
var
  ID: Integer;
  Language: PChar;
const
  Size: Integer = 250;
begin
  GetMem(Language, Size);
  ID := GetSystemDefaultLangID;
  VerLanguageName(ID, Language, Size);
  Result := StrPas(Language);
  FreeMem(Language);
end;

og skriv eventuelt dette i din form's OnCreate property:

procedure TForm1.FormCreate(Sender: TObject);
begin
  ShowMessage(GetLanguage);
end;

Held og Lykke
ZeroHero

zerohero> Det kan desværre ikke bruges pga. GetSystemDefaultLangID ikke returnerer det jeg skal bruge, det gør GetSystemDefaultUILanguage til gengæld den virker bare ikke på noget under WinME.

Hvad er det da praecist du vil have returneret? og virker min funktion ikke under ME/98 hos dig?

jo den virker under ME/98 men det er et forkert resultat, jeg har ikke brug for at vide hvilket sprog Windows er sat op til at bruge men hvilket sprog windows bruger som standard i user-interfacet! Menuer mm.