Недавно добавленные исходники
• DeLiKaTeS Tetris (Тетрис) 4 613 • TDictionary Custom Sort 6 618 • Fast Watermark Sources 6 395 • 3D Designer 9 340 • Sik Screen Capture 6 726 • Patch Maker 7 111 • Айболит (remote control) 7 116 • ListBox Drag & Drop 5 977 • Доска для игры Реверси 97 547 • Графические эффекты 7 313 • Рисование по маске 6 600 • Перетаскивание изображений 5 473 • Canvas Drawing 5 850 • Рисование Луны 5 565 • Поворот изображения 5 079 • Рисование стержней 3 650 • Paint on Shape 2 883 • Генератор кроссвордов 3 779 • Головоломка Paletto 3 035 • Теорема Монжа об окружностях 3 848 • Пазл Numbrix 2 531 • Заборы и коммивояжеры 3 243 • Игра HIP 2 206 • Игра Go (Го) 2 138 • Симулятор лифта 2 520 • Программа укладки плитки 2 163 • Генератор лабиринта 2 657 • Проверка числового ввода 2 314 • HEX View 2 647 • Физический маятник 2 275

Главная

Исходники (более 1 300 примеров)

Компоненты

Форум

Определить состояние CapsLock

Озеро, тонет хакер:
- F1!!! F1!!! ... Тьфу-ты... Нelр!!! Нelр!!!

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  if GetKeyState(VK_CAPITAL) and 1 = 0 then
    Form1.Caption := 'Caps lock не горит'
  else
    Form1.Caption := 'Caps lock горит';
end;