I hope you'll find that usefull
` Get installed DirectX Version :D
` (c) by Hubdule @ Color Arts 2003
` http://www.colorarts.de
Dim split$(3)
DirectXVersion$=GET REGISTRY$("SOFTWARE\Microsoft\DirectX\", "Version")
Print "You use DirectX:"+DirectXVersion$
SplitString(DirectXVersion$,".")
Print "Version Overview"
Print "Master: "+str$(val(split$(0)))
Print "Major : "+str$(val(split$(1)))
Print "Minor : "+str$(val(split$(2)))
Print "Build : "+str$(val(split$(3)))
Suspend for key
end
function SplitString(msg$,delimiter$)
delimiter$=left$(delimiter$,1)
msg_counter=0
for i=0 to 3
split$(i)=""
next i
for i=1 to len(msg$)
tmp$=mid$(msg$,i)
if tmp$=delimiter$
inc msg_counter
endif
if tmp$=delimiter$ then goto nextline
split$(msg_counter)=split$(msg_counter)+tmp$
nextline:
next i
endfunction msg_counter