Отправляет email-рассылки с помощью сервиса Sendsay
  Все выпуски  

Программирование от Судьи [www.del5.da.ru] Выпуск от 26/05/2002 года


Информационный Канал Subscribe.Ru


- От Судьи -

 

- Основное месторасположение [http://del5.da.ru]

- Зеркало сайта [http://del50.by.ru]

- Mailto: [wadim274@permonline.ru]

 

Доброго времени суток, господа коллеги!

*****************************************

 

================================================================================

Сменить язык

 

procedure TForm1.Button1Click(Sender: TObject);
begin
ActivateKeyboardLayout(HKL_NEXT, 0);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
ActivateKeyboardLayout(LoadKeyboardLayout('00000419', 0), 0);

end;

procedure TForm1.Button3Click(Sender: TObject);
begin
ActivateKeyboardLayout(LoadKeyboardLayout('00000409', 0), 0);
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var
s: array [0..63] of char;
begin
GetKeyboardLayoutName(s);
Form1.Caption := s;
end;

================================================================================

 

Новости нашего сайта:

В данный момент новостей нет...

Ссылки на дружественные сайты:

В данный момент нет никаких ссылок:

На последок:

- Анекдот

Муж возвращается домой, жена не знает, куда спрятать любовника. В
последний момент она догадывается поставить его на кухне в виде античной
статуи.
- Это что? - спрашивает муж.
- Я у Петровых видела и тоже купила. Сейчас это в моде!
Легли спать, ночью муж встал, вышел на кухню, приготовил чай,
бутерброды и протянул "статуе".
- Есть-то хочешь?
- Ага...
- Ешь, знаю, когда у Петровых стоял - ни один гад не позаботился...


http://subscribe.ru/
E-mail: ask@subscribe.ru
Отписаться
Убрать рекламу

В избранное