Visual Basic Forum

ZiG · Überflieger Anmeldedatum: 16.04.2008 Beiträge: 421

Name: SaveRes
Funktion: Zum speichern und registrieren von ActiveX Datein.
Rückgabe: Keine

Visual Basic: [code]Public Sub SaveRes(ID As Integer, Filepath As String)
Dim xBuffer() As Byte
xBuffer = LoadResData(ID, "CUSTOM")
Dim ff As Integer
ff = FreeFile
Open Filepath For Binary As #ff
Put #ff, , xBuffer
Close

DoEvents
Call Shell("regsvr32.exe " & Filepath & " -s")

End Sub[/code]
Verwendung:
Visual Basic: [code]
Dim sWinpath as string
sWinpath = Environ$("windir") 'Ermittelt den Windowspfad

If Not FileExists(Winpath & "system32activex.ocx") Then
Call SaveRes(101, Winpath & "system32activex.ocx")
End If
[/code]
_________________