Курсовая работа: Программа вычисления значения и вывода графика определенного интеграла
Описаниефункции:
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