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

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

{ **** UBPFD *********** by delphibase.endimus.com ****
>> Получение OpenGL расширений
Зависимости: OpenGL
Автор: Gua, <a href="mailto:gua@ukr.net">gua@ukr.net</a>, 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);

Отправить комментарий

Проверка
Антиспам проверка
Image CAPTCHA
...