function GetKeyBoardLanguage: String; var p: array[0..100] of char; begin Result := 'Indéterminé'; GetKeyboardLayoutName(p); if UpperCase(StrPas(p)) = '0000040C' then Result := 'Français'; if UpperCase(StrPas(p)) = '00000409' then Result := 'Anglais'; end;
p: array[0..8] of char;
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionfunction GetKeyBoardLanguage: String; var p: array[0..8] of char; begin Result := 'Indéterminé'; GetKeyboardLayoutName(p); if p = '0000040c' then Result := 'Français'; if p = '00000409' then Result := 'Anglais'; end;