Помогите!!! Turbo Delphi

[Lamer2015]

Сдаю зачет, нужно ответить лабораторную работу.
Она уменьшает кнопки калькулятора в 2 раза.
Препод просит объяснить каждую строку, я вообще не шарю.
С меня тонны нефти!

Вот код программы:

program Project6;


uses
  Windows;

//Messages;

var
  lsi: TStartupInfo;
  lpi: TProcessInformation;
  h: HWND;
  t : tagWINDOWINFO;

  x, y : Integer;
  r : TRect;

function change(wnd: HWND; int : LParam): boolean; stdcall;
begin
  GetWindowinfo(wnd, t);
  MoveWindow(wnd, t.rcWindow.left - x - r.Left,
                  t.rcWindow.top - y - r.Top ,
                  (t.rcWindow.Right-t.rcWindow.Left) div  2,
                  (t.rcWindow.Bottom-t.rcWindow.Top ) div 2 , true);
  result := true;
end;

begin

  CreateProcess('C:\WINDOWS\system32\calc.exe',
                nil,
                nil,
                nil,
                false,
                0,
                nil,
                nil,
                lsi,
                lpi);
                     
  sleep(400);

  h := FindWindow('SciCalc','Калькулятор');

  GetWindowinfo(h, t);
  x := t.rcWindow.Left;
  Y := t.rcWindow.top;

  GetClientRect(h, r);

  EnumChildWindows(h,@change,0);


end.

[lomastr_]

А спросить у того кто писал, не вариант?

[Lamer2015]

пятый курс писал, программы достались по наследству.
помогите кто чем сможет)

[Stilet]

program Project6; название программы


uses подключим модули
  Windows; Винды

//Messages;

var опишем переменные
  lsi: TStartupInfo; для старта процесса
  lpi: TProcessInformation; и информации о стартующем проце
  h: HWND; а так же для хендла окна процесса
  t : tagWINDOWINFO; и информации о окне процесса

  x, y : Integer; Это видимо координаты
  r : TRect; Это переменка для размеров окна видимо

Обьявление функции колбэка для обработки перечисляемых окон
function change(wnd: HWND; int : LParam): boolean; stdcall;
begin
  GetWindowinfo(wnd, t); получение онформации о окне по хендлу что передается

  и перемещение самого окна относительно х и у
  MoveWindow(wnd, t.rcWindow.left - x - r.Left,
                  t.rcWindow.top - y - r.Top ,
                  (t.rcWindow.Right-t.rcWindow.Left) div  2,
                  (t.rcWindow.Bottom-t.rcWindow.Top ) div 2 , true);
  result := true;
end;

begin
 Стартуем процесс калькулятора
  CreateProcess('C:\WINDOWS\system32\calc.exe',
                nil,
                nil,
                nil,
                false,
                0,
                nil,
                nil,
                lsi,
                lpi);
   ждем пока он загрузится (чухня, так делать не стоит)                  
  sleep(400);

 ищем окно калькулятора среди списка окон
  h := FindWindow('SciCalc','Калькулятор');

Получаем о нем информацию в том числе и координаты окна
  GetWindowinfo(h, t);
  x := t.rcWindow.Left;
  Y := t.rcWindow.top;

А так же клиентскую область (читай: размеры)
  GetClientRect(h, r);

Для чего то начинаем перечисление окон внути этого окна. Видимо тут идет что-то
типа поиска компонентов калькулятора, которые будут менять свою позицию в
функции change() описанной выше.
  EnumChildWindows(h,@change,0);


end.

[Lamer2015]

спасибо большущее! мира и добра тебе, здоровья твоей семье и детям! я твой фанат!

[Stilet]

и детям!

Нэмае...

я твой фанат!

Я неблагодарный кумир )
Почти Сид Вишис )))

[Lamer2015]

только, что зачет поставил) еще раз пасиба!

[Lamer2015]

чуваки, еще один вопросец.
прикладываю к посту скрин проги и часть кода.
интересует выделенная строка, что означает и вообще зачем нужна?

p.s. прога шевелит фигурки во все стороны.

заранее спасибо. если тема мешает, потом удалю

[Stilet]

потом удалю

Не сможешь )

что означает и вообще зачем нужна?

Дословно так: Взять из wParam последние 4 байта. Чесслово я бы не так делал, ну да ладно