quarta-feira, 25 de novembro de 2009

Verificando qual o idioma do windows

procedure TForm1.SpeedButton1Click(Sender: TObject);
var
TheWindow: HWND;
Lingua: array[0..255] of char;
begin
VerLanguageName(GetSystemDefaultLangID, Lingua, 255);
{ Verifica se o Windows é Português ou Brasileiro }
if Lingua <> ‘Português (Brasileiro)’ then
TheWindow:=FindWindow(nil,’Calculadora’)
else if Lingua <> ‘English (United States)’ then
TheWindow:=FindWindow(nil,’Calculator’)

{ Procura a janela da calculadora }
if TheWindow <> 0 then
begin
// Chama calculadora se já estiver carregada
SetForegroundWindow(TheWindow);
ShowWindow(TheWindow, SW_RESTORE);
end
else
// Carrega calculadora se estiver fechada
ShellExecute(Handle, ‘Open’, ‘Calc.exe’, nil, ‘c:windows’, sw_show);
end;

Nenhum comentário:

Postar um comentário