Please help me check for DX the OGL

It have to be somthing like this:

Local catchString:Object
Try
	Graphics 800,600,0,-1|HARDSYNC
	'g=CreateDisplayGraphics( 800,600,0,-1,0 )
	
Catch catchString:Object
	Print "Switching to software acceleration"
EndTry

@Skidracer:
Sorry I haven't seen your Post before.