SDL_WasInit allows you to see which SDL subsytems have been initialized. flags is a bitwise OR'd combination of the subsystems you wish to check (see SDL_Init for a list of subsystem flags).
// Here are several ways you can use SDL_WasInit
// Get init data on all the subsystems
var
subsystem_init : Uint32;
.
.
.
subsystem_init := SDL_WasInit( SDL_INIT_EVERYTHING );
if ( ( subsystem_init and SDL_INIT_VIDEO ) = true ) then
Writeln( 'Video is initialized.' )
else
Writeln( 'Video is not initialized.' );
// Just check for one specfic subsystem
if ( SDL_WasInit( SDL_INIT_VIDEO ) <> 0 ) then
Writeln( 'Video is initialized. ')
else
Writeln( 'Video is not initialized.' );
// Check for two subsystems
var
subsystem_mask : UInt32;
.
.
subsystem := SDL_INIT_VIDEO or SDL_INIT_AUDIO;
if ( SDL_WasInit( subsystem_mask ) = subsystem_mask ) then
Writeln( 'Video and Audio initialized.' )
else
Writeln( 'Video and Audio not initialized.' );