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

Delphi World - это проект, являющийся сборником статей и малодокументированных возможностей по программированию в среде Delphi. Здесь вы найдёте работы по следующим категориям: delphi, delfi, borland, bds, дельфи, делфи, дэльфи, дэлфи, programming, example, программирование, исходные коды, code, исходники, source, sources, сорцы, сорсы, soft, programs, программы, and, how, delphiworld, базы данных, графика, игры, интернет, сети, компоненты, классы, мультимедиа, ос, железо, программа, интерфейс, рабочий стол, синтаксис, технологии, файловая система...

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

Автор: Gua
WEB-сайт: http://delphibase.endimus.com

{ **** 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);