Инициализация OpenGL

← →
J.C. code (2003-10-02 22:15) [0]

Раньше использовал ogl версии 1.0, теперь понадобилась версия 1.2. Я подключаю opengl12 (Delphi) и не изменяя код, запускаю программу. Ошибка! Access Violation. Исключение возникает на строчке, где создается окно (CreateWindowEx). Подскажите, пожалуйста, в чем проблема?

вот кусок кода:
h_Instance := GetModuleHandle(nil);
ZeroMemory(@wndClass, SizeOf(wndClass));
with wndClass do begin
style := CS_HREDRAW or CS_VREDRAW or CS_OWNDC;
lpfnWndProc := @WndProc;
hInstance := SysInit.HInstance;
hCursor := LoadCursor(0, IDC_ARROW);
lpszClassName := "Thunderbird";
end;
if (RegisterClass(wndClass) = 0) then Exit

ZeroMemory(@dmScreenSettings, SizeOf(dmScreenSettings));
with dmScreenSettings do
begin
dmSize := SizeOf(dmScreenSettings);
dmPelsWidth := Width;
dmPelsHeight := Height;
dmBitsPerPel := Depth;
dmFields := DM_PELSWIDTH or DM_PELSHEIGHT or DM_BITSPERPEL;
end;
ChangeDisplaySettings(dmScreenSettings, CDS_FULLSCREEN);

dwStyle := WS_POPUP or WS_CLIPCHILDREN{ or WS_CLIPSIBLINGS};
dwExStyle := WS_EX_APPWINDOW or WS_EX_TOPMOST;

h_Wnd := CreateWindowEx(dwExStyle, "Thunderbird", WND_TITLE, dwStyle, 0, 0, Width, Height, 0, 0, h_Instance, nil);

Спасибо...

← →
J.C. code (2003-10-03 07:47) [1]

← →
J.C. code (2003-10-03 10:31) [2]

Инициализация OpenGL Найти похожие ветки