Kein Schreibzugriff (Recht) auf C:\Windows\Fonts

  • VB.NET

Es gibt 30 Antworten in diesem Thema. Der letzte Beitrag () ist von razor8.

    Kein Schreibzugriff (Recht) auf C:\Windows\Fonts

    Hallo Leute,

    ich schreib gerade ein kleines Tool, das aus einer ZIP-Datei mehrere Schriftarten in den Ordner C:\Windows\Fonts entpacken und überschreiben soll. Nun bekomme ich leider immer den Fehler, dass ich keine Berechtigung habe auf diesen Systemordner zuzugreifen, auch wenn ich das Programm als Administrator starte (+ passender Manifesteintrag). Woran liegt das, und wie kann ich das lösen? Ich hab jetzt ne ganze Zeit im Netz gesucht und nicht brauchbares (mit Beispiel) gefunden, außer die DirectoryObjectSecurity-Klasse, die ich aber Aufgrund des fehlenden Beispiels nicht verstehe.Hoffentlich könnt ihr mir weiter helfen. Danke

    Hier ist der Code, der den Fehler verursacht:

    VB.NET-Quellcode

    1. Using zip As ZipFile = ZipFile.Read(fontszippath)
    2. For Each a As ZipEntry In zip
    3. Try
    4. logbox.AppendText("Extracting: " & a.FileName & vbCrLf)
    5. a.Extract("C:\Windows\Fonts\", ExtractExistingFileAction.OverwriteSilently)
    6. Catch ua_ex As UnauthorizedAccessException
    7. logbox.AppendText(ua_ex.Message & vbCrLf)
    8. GoTo fail
    9. Catch ex As Exception
    10. logbox.AppendText("Extracting: " & a.FileName & "FAILED" & vbCrLf)
    11. GoTo fail
    12. End Try
    13. Next
    14. End Using


    Die ua_ex Exeption gibt mir diese Message aus: "Access to the path 'C:\Windows\Fonts\timesbi.ttf' is denied."
    Ich benutze DotNetZip für das entpacken der ZIP-Datei, das sollte doch kein problem sein?

    Nun mein Frage ist jetzt, wie ich die ensprechenden Rechte bekomme ohne sie für immer fest zu setzen? Ich will ja nicht nicht das AccessManagement ausschalten, sondern nur kurz "umgehen".
    Danke für eure Hilfe!

    danke für den hinweiß... werd versuchen erst in %temp% zu entpacken und dann nach c:\windows\fonts zu kopieren

    edit: also entpacken nach temp funktioniert einwandfrei nur bekomme ich trotzdem diese Meldung "Access to the path 'C:\Windows\Fonts\timesbi.ttf' is denied." wenn ich die entsprechende Schriftart nach c:\windows\fonts kopiere(Auch als Administrator).

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „razor8“ ()

    die fonts die ich installieren will existieren bereits und ich will sie erstetzen bzw neu installieren, da einige dieser fonts beschädigt worden sind (das ist der zweck des programmes)

    so ich hab mir jetzt überberlegt, das ich erst den font deinstallieren muss, dann aus dem ordner "Fonts" löschen muss, den neuen nach "Fonts" kopieren und dann installiere.

    die variable "thing" entspricht dem Dateipfad der Schriftart im Temporären-Ordner
    die variable "fonts" entspricht "C:\Windows\Fonts\"

    hier ist mein code:

    VB.NET-Quellcode

    1. For Each thing In copyed_fonts
    2. Dim Retval As Long
    3. logbox.AppendText("UnInstalling: " & Path.GetFileName(thing) & vbCrLf)
    5. Retval = RemoveFontResource(thing)
    7. If Retval = 0 Then
    8. logbox.AppendText("UnInstalling: " & Path.GetFileName(thing) & " FAILED" & vbCrLf)
    9. GoTo skip
    10. End If
    12. Try
    13. File.Delete(fonts & Path.GetFileName(thing))
    14. Catch ex As Exception
    15. logbox.AppendText("Deleting: " & Path.GetFileName(thing) & " FAILED" & vbCrLf)
    16. GoTo skip
    17. End Try
    19. Dim fi As System.IO.FileInfo
    20. Try
    21. Dim res As Integer
    22. fi = New System.IO.FileInfo(thing)
    23. Dim fiTarget As New System.IO.FileInfo(fonts & Path.GetFileName(thing))
    24. If fiTarget.Exists Then
    25. logbox.AppendText("Font already exists: " & Path.GetFileName(thing & vbCrLf))
    26. GoTo skip
    27. End If
    28. fi.CopyTo(fonts & Path.GetFileName(thing))
    29. res = CreateScalableFontResource(0, thing & ".fot", fonts & Path.GetFileName(thing), String.Empty)
    30. Dim rt As Integer = System.Runtime.InteropServices.Marshal.GetLastWin32Error()
    31. res = AddFontResource(fonts & Path.GetFileName(thing))
    32. If res <> 0 Then
    33. SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0)
    34. End If
    35. Catch ex As Exception
    36. logbox.AppendText(ex.Message & vbCrLf)
    37. End Try
    38. skip:
    39. Try
    40. File.Delete(thing)
    41. Catch ex As Exception
    42. logbox.AppendText(ex.Message & vbCrLf)
    43. End Try
    44. Next


    aber leider komm ich nciht weiter als bis zum Deinstallieren.

    Retval ist immer 0 also springt er raus.... warum kalppt das nicht?

Facebook
Telefonspende