Delphi FAQ

Skąd wziąć język Windowsa

tomaszos
function GetWindowsLanguage: string; 
var 
  WinLanguage: array [0..50] of char; 
begin 
  VerLanguageName(GetSystemDefaultLangID, WinLanguage, 50); 
  Result := StrPas(WinLanguage); 
end; 
 
procedure TForm1.Button1Click(Sender: TObject); // procedura wykorzystania  
begin 
  ShowMessage(GetWindowsLanguage); 
end; 

Kod pochodzi ze strony www.swissdelphicenter.ch.

FAQ

4 komentarzy

do Michał.Zawadzki - ej a co ty Miodek jesteś :)

dziekuje! blad poprawilem!

Nie chce byc zlosliwy - wziac, a nie wziasc. Blisko 80% Polakow robie ten blad.

Art jest jednak spoko!