[Delphi] Дрожание окон - Форум Cheat-Master.ru
  • Страница 1 из 1
  • 1
Модератор форума: Alowir, Sanoxxx  
[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)
---------------------------------------------
Ап

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

GеNius [7210]

[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]

Новые пользователи
bondarkovasyl [01:24]

DeTruXer [00:16]

NapoleonBonapart [23:46]

Dfgafgwdxz [18:04]

Dominikopon [18:00]

cheatjopa2 [11:58]

gabitovismaismaisma [09:18]

Gotham_ws [03:45]

раре [02:58]

Epiphonexmr [02:38]

ksuexe [01:35]

petrusenko_t [23:29]

shanepk60 [21:19]