Получение OpenGL расширений

Советы » OpenGL » Получение OpenGL расширений

{ **** UBPFD *********** by delphibase.endimus.com ****
>> Получение OpenGL расширений

Зависимости: OpenGL
Автор:       Gua, gua@ukr.net, ICQ:141585495, Simferopol
Copyright:   Gua
Дата:        18 июля 2002 г.
***************************************************** }

function

GetOGLExtensions: string

; var

DC: HDC; hrc: HGLRC; {Установка формата пикселей} procedure

SetDCPixelFormat; var

DC: HDC; nPixelFormat: Integer; pfd: TPixelFormatDescriptor; begin

FillChar(pfd, SizeOf(pfd), 0); nPixelFormat := ChoosePixelFormat(DC, @pfd); SetPixelFormat(DC, nPixelFormat, @pfd); end

; begin

DC := GetDC(0); SetDCPixelFormat; hrc := wglCreateContext(DC); wglMakeCurrent(DC, hrc); Result := StrPas(PChar(glGetString(GL_EXTENSIONS))); wglMakeCurrent(0, 0); wglDeleteContext(hrc); ReleaseDC(0, DC); DeleteDC(DC); end

;

Пример использования:

MessageDlg(GetOGLExtensions,mtInformation,[mbOK],0); 

Другое по теме:

Категории

Статьи

Советы

Copyright © 2022 - All Rights Reserved - www.delphirus.com