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

Previous  Top  Next

    
 

 

Code:

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

 

 

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

 

Code:

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

 

 

 

 

©Drkb::03953