Курсовая работа: Программа вычисления значения и вывода графика определенного интеграла

Описаниефункции:

functionClipCursor(Rect: TRect);

Эта функция заключает курсор в Rect. Если Rect имеет значение nil, то курсор является неограниченным.

Параметры:

Rect: ограничивающий TRect в координатах экрана.

Пример использования данной функции в программе приведен в листинге на рисунке 9.

procedure TMainForm.ClipCursor1Click(Sender: TObject);

var

R: TRect;

begin

ClipCursor1.Checked:=not ClipCursor1.Checked;

if ClipCursor1.Checked then

beginGetClipCursor(ClipRect);

Left:=MainForm.Left;

Right:=MainForm.Left+MainForm.Width;

Bottom:=MainForm.Top+MainForm.Height;

end;

ClipCursor(@R);

end else ClipCursor(@ClipRect);

end;

2. ФункцияGetSystemInfo

Описаниефункции:

procedure GetSystemInfo(lpSystemInfo: TSystemInfo);

Функция в качестве параметра получает указатель на структуру SystemInfo, которую она заполняет. Структуру SystemInfo содержит информацию о текущей системе.

dwOemId: DWord

Устаревший элемент, предназначенный для совместимости с предыдущими версиями Windows NT (3.5 и ранее). Начиная с Windows 3.51 приложения должны использовать переход wProcessorArchitecture объединения. Windows 95/98/Me: система всегда устанавливает этот элемент, чтобы обнулить значение, определенное для PROCESSOR_ARCHITECTURE_INTEL.

wProcessorArchitecture: Word

Определяет архитектуру процессора системы. Этим элементом может быть одно из следующих значений:

PROCESSOR_ARCHITECTURE_UNKNOWN