procedure TForm1.Button2Click(Sender: TObject); var LangID : Word; begin LangID := GetSystemDefaultLangID; if LangID and LANG_DANISH = LANG_DANISH then ShowMessage('Danish'); end;
Jeg prøvede at lede efter det, men kunne ikke rigtig finde noget. Men du kan finde alle konstanterne i windows uniten, og derudfra kode din egen funktion.
Synes godt om
Slettet bruger
27. juli 2002 - 17:12#9
Okay, lav lige et svar, du har også været en stor hjælp...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.