API HJÆLP GetSystemDefaultUILanguage

Prøv at sætte
function GetSystemDefaultUILanguage(): LANGID; stdcall; external 'kernel32.dll' name 'GetSystemDefaultUILanguage';

ind lige over det sted, hvor der står implementation.

Lige som jeg har skrevet i dit gamle spm :-)

Ok det ser ud til at virke men hvordan får jeg resultatet ud? Der står der er WORD men så kan jeg ikke rigtig teste på det.

Ved ik hvad de forskellige tal betyder, men der her kommer med 1030 ved mig (dansk version):

function GetSystemDefaultUILanguage(): LANGID; stdcall; external 'kernel32.dll' name 'GetSystemDefaultUILanguage';

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage(IntToStr(GetSystemDefaultUILanguage));
end;

Hmm jeg fatter heller ikke helt outputtet :( Jeg får 1033 (engelsk) tror du, du kan knække den for de 60 point?

Kan da prøve

Det står vist her:

http://msdn.microsoft.com/library/default.asp?url=/library/en-us/passport25/net_passport_vbscript_documentation/single_sign_in/advanced_single_sign_in/language_support.asp

Så kan du lave en funktion som det her:

function FormatNumber(Number: Integer): String;
begin
case Number of
  1030: Result := 'Dansk';
  1033: Result := 'Engelsk';
...
end;
end;

og den lange

http://www.microsoft.com/globaldev/reference/win2k/setup/lcid.mspx

Stoney

Klart nok, såre simpelt :)
Point til dig!
I det gamle spørgsmål ved jeg ikke helt hvem jeg skal give point, de andre skrev en hel masse men intet var brugbart :( Løsning kom af det jeg selv fandt så skal jeg give pointene til mig selv?

For mig er det iorden, men tror det er op til dig selv ;)

Takker foresten for point :-)