🚀 go-pugleaf

Van Leuven wrote:

> Hallo,
> ik ben bezig een cd-rom te maken in Visual Basic 6.0, en ik hab enkele
> vraagjes:
>     - Hoe kun je detecteren of er op een computer DirectX 7 ge�nstalleerd
> is?

Volgende API (zelf 'ns ergens van het Web geplukt) voor het detecteren van
executables.

Good luck,
Waldo Smets
SoftwareSuite
Heverlee-LEUVEN

Private Declare Function FindExecutableA Lib "shell32.dll" _
   (ByVal lpFile As String, ByVal lpdirectory As _
   String, ByVal lpResult As String) As Long

Private Const MAX_FILENAME_LEN = 256
'------------------------------------------------

Public Function FindExecutable(s As String) As String
'------------------------------------------------

'DESCRIPTION:
'-----------
' This command will locate the executable associated
' with the filename passed down as a string.
'------------------------------------------------
'INPUT:
'------
' s    - The filename whose extension type the API
'        call looks up and returns and executable path to.
'------------------------------------------------
' OUTPUT:
'--------
' Executable path associated with the s filename's
' extension.
'------------------------------------------------
' SAMPLE CALL:
'-------------
' vRC = Shell(FindExecutable(sDataFileName))
' or
' sExecFile = FindExecutable(sDataFileName)
'------------------------------------------------

'DECLARATIONS
'------------
   Dim i As Integer
   Dim s2 As String

'INITIALIZE
'----------
    On Error GoTo ErrHandler

'MAIN BODY
'---------
   s2 = String(MAX_FILENAME_LEN, 32) & Chr$(0)

   i = FindExecutableA(s & Chr$(0), vbNullString, s2)

   If i <= 32 Then GoTo WrapUpErr

'WRAP-UP
'-------
WrapUp:
    FindExecutable = Left$(s2, InStr(s2, Chr$(0)) - 1)
Exit Function

WrapUpErr:
    FindExecutable = ""
Exit Function


'ERROR HANDLER
'-------------
ErrHandler:
    'ErrHandler Code goes here
Resume WrapUpErr

End Function





>
>     - Hoe kun je de standaardbrowser starten met een door mij opgegeven url?
>     - Kan er mij iemand een adres geven waar meer uitleg staat hoe je geluid
> kunt afspelen met DirectX 7?
>
> Alvast bedankt voor de moeite!
>
> MVG,
> Pieter