Sources
Delphi Russian Knowledge Base
DRKB - это самая большая и удобная в использовании база знаний по Дельфи в рунете, составленная Виталием Невзоровым

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

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