Недавно добавленные исходники

•  DeLiKaTeS Tetris (Тетрис)  4 072

•  TDictionary Custom Sort  6 170

•  Fast Watermark Sources  5 966

•  3D Designer  8 847

•  Sik Screen Capture  6 309

•  Patch Maker  6 721

•  Айболит (remote control)  6 715

•  ListBox Drag & Drop  5 573

•  Доска для игры Реверси  95 929

•  Графические эффекты  6 936

•  Рисование по маске  6 179

•  Перетаскивание изображений  5 099

•  Canvas Drawing  5 470

•  Рисование Луны  5 182

•  Поворот изображения  4 722

•  Рисование стержней  3 336

•  Paint on Shape  2 575

•  Генератор кроссвордов  3 475

•  Головоломка Paletto  2 774

•  Теорема Монжа об окружностях  3 576

•  Пазл Numbrix  2 345

•  Заборы и коммивояжеры  3 029

•  Игра HIP  1 984

•  Игра Go (Го)  1 907

•  Симулятор лифта  2 261

•  Программа укладки плитки  1 970

•  Генератор лабиринта  2 423

•  Проверка числового ввода  2 101

•  HEX View  2 429

•  Физический маятник  2 058

 
скрыть

  Форум  

Delphi FAQ - Часто задаваемые вопросы

| Базы данных | Графика и Игры | Интернет и Сети | Компоненты и Классы | Мультимедиа |
| ОС и Железо | Программа и Интерфейс | Рабочий стол | Синтаксис | Технологии | Файловая система |



Delphi Sources

Здесь был Я



Автор: HuNtEr

Письмо пользователя в группу технической поддержки сетевой игры "Квейк": "Я нашел глюк. Прямо посреди сцены во время игры постоянно зависают пять ботов." Ответ группы поддержки: "Это не глюк. Это не зависают пять ботов, это играет команда финов."

Откуда пошла привычка у людей - везде оставлять свои автографы - остаётся только догадываться. Скорее всего, мы это позаимствовали с наскальных рисунков эпохи неолита. Но это в прошлом, а сейчас мы попытаемся оставить след о себе уже в компьютерном варианте.

  • Добавляем своё имя в System Tray (рядом с часами)

program Name_in_tray;

{$APPTYPE CONSOLE}
uses
  registry, windows;

procedure name_in_tray;
const
  name = 'Delphi World'; // Указываем своё имя или какое-либо слово
var
  reg: tregistry;
begin
  reg:=tregistry.Create;
  reg.RootKey:=HKEY_CURRENT_USER;
  reg.OpenKey('Control Panel\International',true);
  reg.WriteString('s1159',name);
  reg.WriteString('s2359',name);
  reg.WriteString('sTimeFormat','HH:mm:ss tt');
  reg.CloseKey;
end;

begin
  name_in_tray;
end.

  • Пишем на кнопке Пуск

program Name_on_pusk;

{$APPTYPE CONSOLE}

uses
  windows;

procedure name_on_pusk;
const
  name='Delphi World';
var
  h, h1: hwnd;
begin
  h := findwindow('Shell_TrayWnd', nil);
  h1 := findwindowex(h, 0, 'Button', nil);
  setwindowtext(h1, name);
end;

begin
  name_on_pusk;
end.

  • Рисуем прямо по экрану (поверх всех окон)

program Name_on_screen;

{$APPTYPE CONSOLE}

uses
  windows, graphics;

procedure Name_on_screen;
const
  name='Delphi World';
var
  ScreenDC: hDC;
begin
  ScreenDC := GetDC(0);
  settextcolor(screendc,clred); // Устанавливаем цвет текста, в данном случае
  // clRed - красный.
  SetBkMode(screendc, TRANSPARENT); // Рисуем на прозрачном фоне,
  // без этой строчки фон - белый.
  textout(screendc,0,0,name,6); // Устанавливаем координаты вывода и длину
  // строки (в нашем случае - 6 символов)
  ReleaseDC(0,ScreenDC);
end;

begin
  name_on_screen;
end.

Надеюсь, кому-то это пригодиться, хотя бы ради развлечения =). Но смотрите - не перетрудитесь!








Copyright © 2004-2025 "Delphi Sources" by BrokenByte Software. Delphi World FAQ

Группа ВКонтакте