Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

code zum regestry MyvbQL nur unter WIN98
Autor: markus_istgut
Datum: 24.04.03 23:52
der code läuft unter Win98 ohne probleme , unter WINXP heisst es "Laufzeitfehler 53 datei nicht gefunden" also ich weiss echt nich weiter Es ist der code , der hier auf vbarchih.net zu finden ist zu vereinfachung hab ich den Code hier nochmal reingesetzt : Option Explicit '------------------------------------------------------- ' ' Mit der Funktion "RegisterFile" können dll,exe,olb ' und tlb-Dateien registriert und deregistriert werden. ' ' Aufgerufen wird das Programm \windows\regtlib.exe ' Luhmann, 07.11.01 ' '------------------------------------------------------- Private Declare Function CloseHandle Lib "kernel32" _ (ByVal hObject As Long) As Long Private Declare Function GetExitCodeProcess Lib "kernel32" _ (ByVal hProcess As Long, lpExitCode As Long) As Long Private Declare Function OpenProcess Lib "kernel32" _ (ByVal dwDesiredAccess As Long, _ ByVal bInheritHandle As Boolean, _ ByVal dwProcessID As Long) As Long Private Declare Function WaitForSingleObject Lib _ "kernel32" (ByVal hHandle As Long, _ ByVal dwMilliseconds As Long) As Long ' Datei registrieren/deregistrieren Public Function RegisterFile(ByVal Filename As String, _ Optional ByVal Register As Boolean = True) As Long Const PROCESS_QUERY_INFORMATION = &H400 Dim CmdLine As String Dim dwProcessID As Long Dim hProcess As Long If Register Then ' Datei registrieren CmdLine = "regtlib " & Filename Else ' Datei deregistrieren CmdLine = "regtlib -u " & Filename End If ' Prozess-ID dwProcessID = VBA.Interaction.Shell(CmdLine) 'diese Zeile ist dann makiert ' Prozess öffnen hProcess = OpenProcess(PROCESS_QUERY_INFORMATION, _ False, dwProcessID) If hProcess = 0 Then ' Fehler! RegisterFile = Err.LastDllError Exit Function End If ' Datei registrieren/deregistrieren Call WaitForSingleObject(hProcess, 1000) Call GetExitCodeProcess(hProcess, RegisterFile) If RegisterFile <> 0 Then _ ' Prozess schliessen Call CloseHandle(hProcess) End If End Function Sub test() RegisterFile "C:\windows\system32\MyVbQL.dll", True End Sub

code zum regestry MyvbQL nur unter WIN98	660	markus_istgut	24.04.03 23:52
Re: code zum regestry MyvbQL nur unter WIN98	435	Dieter	25.04.03 01:17
Re: code zum regestry MyvbQL nur unter WIN98	420	markus_istgut	27.04.03 16:22

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen