- var
- glCreateShaderObjectPtr:Integer;
- function glCreateShaderObject_(ptr:Integer;shadertype:Integer);external 'invoke.dll' name 'Invoke';
- function glCreateShaderObject(shadertype:Integer):Integer;
- begin
- result:=glCreateShaderObject_(glCreateShaderObjectPtr,shadertype);
- end;
- // Initialisierung
- begin
- ...
- glCreateShaderObjectPtr := wglGetProcAddress('glCreateShaderObject');
- ...
- end;