[Delphi] Дрожание окон - Форум Cheat-Master.ru
  • Страница 1 из 1
  • 1
Модератор форума: Alowir, Sanoxxx  
Форум » Программирование » Delphi Программирование » [Delphi] Дрожание окон
[Delphi] Дрожание окон
Mewex Дата: Понедельник, 10.04.2017, 21:54 | Сообщение # 1
STEAM SELLER
Сообщений: 475
Статус: Offline
Здесь будет программа, которая заставляет изменять размеры всех окон на случайные, и из-за этого создаётся эффект дрожания окна.
Код
program Fun1; //Имя проекта
uses windows, Messages; //необходимые модули

function EnumWindowsWnd(h: hwnd): BOOL; stdcall; //необходимая функция
var
rect:TRect;
index:Integer;
begin
if not IsWindowVisible(h) then
begin
Result:=true;
exit; end;

//Генерирую случайное число до 2 (включительно)
index:=random(2);
//Получаю размеры найденного окна
GetWindowRect(h,rect);

  if index=0 then  //Если размеры окна 0, то увеличиваю на 4...
  begin
   rect.Left:=rect.Left+4;
   rect.Top:=rect.Top+4;
  end
else   //Иначе уменьшаю на 4...
  begin
   rect.Top:=rect.Top-4;
   rect.Left:=rect.Left-4;
  end;
MoveWindow(h,rect.Left,rect.Top,rect.Right-rect.Left,rect.Bottom-rect.Top,true);
Result:=true;
end;

//А теперь исполняемая часть

var
h:THandle;
begin
//Запускаю бесконечный цикл
while true do
  begin
   //Запускаю перечисление всех окон
   EnumWindows(@EnumWindowsWnd,0);

   //Задержка 70 мс.
   Sleep(70);
  end;
end. // THE END

Это чудо весит 27 кб, если постараться, можно вдвое уменьшить, а так-же вшить другу/коллеге в флешку с автозапуском :D

Добавлено (10.04.2017, 21:54)
---------------------------------------------
Ап

Форум » Программирование » Delphi Программирование » [Delphi] Дрожание окон
  • Страница 1 из 1
  • 1
Поиск:
Статистика Форума
Лучшие пользователи
Admin [39113]

GеNius [7209]

[CM]Russel [5557]

kenlo763 [4952]

[CM]AGRESSOR [4639]

Snake_Firm [4452]

Сэс [4416]

Artem_Buero [4223]

[CM]Durman [3204]

[CM]Рафаэль [3080]

iMaddy [2855]

sky_Woker [2854]

getrekt [2745]

Новые пользователи
rubenia18 [21:17]

pokotiloroman91 [18:24]

stephensh5 [12:00]

calliesv7 [06:11]

louqm16 [22:14]

artushak [16:32]

Kingpolker [15:42]

leeyv11 [15:12]

Trappa17 [01:00]

Djamalchik [16:40]

ajeense [14:24]

654470559 [08:55]

Newtone [03:01]