Windows Schriftart entfernen

Lefty

Hallo,

ich möchte per AutoIt eine Schriftart entfernen. Da der Windows (in meinem Fall Windows 2000) Fonts Ordner etwas mehr ist als ein normaler Ordner habe ich schonmal etwas gesucht.

per

Code

func installfont($file)    
	If FileCopy($file, @WindowsDir & '\Fonts',1) Then        
		DllCall('gdi32', 'long', "AddFontResourceA", 'String', $file)    
	EndIf
EndFunc

kann ich eine Schriftart (TTF) einfügen. Dies funktioniert auch sehr gut.

Ich habe versucht per

Code

func removefont($file)    
	FileCopy(@WindowsDir & "\Fonts\BCDINGS.TTF", @WindowsDir & "\Fonts_Backup\", 9)
	DllCall('gdi32', 'long', "RemoveFontResourceA", 'String', @WindowsDir & '\Fonts\' & $file)    
EndFunc

Eine Schrift zu entfernen, dies ist mir so aber nicht gelungen.
Auch durch "RemoveFontResource" geht es nicht.

Kann mir jemand sagen wie hier der Aufruf für das entfernen einer Windows TTF Schriftart ist ?

Gruß,
Lefty

**bernd670**

Hallo,

funktionieren dürfte keine deiner bei Funktionen, weil der Typ "String" nicht gültig ist, der Typ für Strings heisst "str"!

Lefty

Ich denke mal da ist der Unterschied zwischen der Theorie und der Praxis.
Habe den Code nun umgeschrieben (hab da was im englischen Forum gefunden) und jetzt funktioniert es.
Allerdings macht es bei mir keinen Unterschied ob ich 'str' oder 'String' schreibe.

(Zur Info: Ich entferne mit dem Skript einen Font (BCDINGS.TTF) und füge einen anderen hinzu (code_128.ttf))

Code

Opt("WinTitleMatchMode", 2);match partial titles


; Script Start - Add your code below here
dim $returnwert


; Erstellen des Backup-Ordners 
if not FileExists(@WindowsDir & "\Fonts_Backup\") Then
	DirCreate(@WindowsDir & "\Fonts_Backup\")
EndIf


;Verschieben der Datei für "Beck Sonderzeichen"
if FileExists(@WindowsDir & "\Fonts\BCDINGS.TTF") then
	;MsgBox(64, "Schriftart <Beck Sonderzeichen> vorhanden", "Die Schriftart <Beck Sonderzeichen> ist vorhanden und wird in den Ordner " & @WindowsDir & "\Fonts_Backup\ kopiert.", 10)
	FileCopy(@WindowsDir & "\Fonts\BCDINGS.TTF", @WindowsDir & "\Fonts_Backup\BCDINGS.TTF", 9)
	$returnwert = _UnInstallFonts("BCDINGS.TTF")
	if $returnwert = 1 Then
		;MsgBox(64, "Beck Sonderzeichen -  Erfolgreich entfernt", "Beck Sonderzeichen wurde entfernt.", 5)
	Else
		;MsgBox(48, "Beck Sonderzeichen -  Konnte nicht entfernt werden", "Beck Sonderzeichen konnte nicht entfernt werden..", 5)
		FileMove(@WindowsDir & "\Fonts\BCDINGS.TTF", @WindowsDir & "\Fonts_Backup\BCDINGS.TTF", 9)
	EndIf	
	RegDelete("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Fonts", "Beck Sonderzeichen (TrueType)")
EndIf


; Erstellen der Datei Barcode_128.ttf im Fonts_Backup-Ordner
$returnwert = 0
if not FileExists(@WindowsDir & "\Fonts\code_128.ttf") Then
	;MsgBox(64, "Schriftart <code_128> ist nicht vorhanden", "Die Schriftart <code_128> ist nicht vorhanden und wird daher auf Ihren PC kopiert.", 10)
	FileInstall("N:\Mitarbeiter\Michael_Mangelsdorff\Projekte\AutoIt\Barcode_128_Reparieren\code_128.ttf", @WindowsDir & "\Fonts_Backup\" , 0)
	$returnwert = _InstallFont(@WindowsDir & "\Fonts_Backup\code_128.ttf")
	if $returnwert = 1 Then
		;MsgBox(64, "Barcode 128 -  Installiert", "Der Barcode 128 wurde kopiert." & @CRLF & @CRLF & "Bitte öffnen Sie eines der Dokumente und aktivieren Sie im Menü <Dokument> den Eintrag <Lokale Schriften verwenden>.")
	Else
		;MsgBox(48, "Barcode 128 -  Nicht installiert", "Fehler beim Kopieren des Barcode 128")
	EndIf	
EndIf


Run("explorer " & @WindowsDir & "\Fonts", "", @SW_MINIMIZE)
WinWait("Fonts")
WinClose("Fonts")


Run("explorer " & @WindowsDir & "\Fonts", "", @SW_MINIMIZE)
WinWait("Fonts")
WinClose("Fonts")


MsgBox(64, "Barcode Installiert", "Bitte öffnen Sie eines der Dokumente und aktivieren Sie im Menü <Dokument> den Eintrag <Lokale Schriften verwenden>.")


;Run("explorer " & @WindowsDir & "\Fonts", "", @SW_MAXIMIZE)


Func _InstallFont($sFileName)
  If FileMove($sFileName, @WindowsDir & '\Fonts', 1) Then
     $sFileName = @WindowsDir & '\Fonts\' & StringTrimLeft($sFileName, StringInStr($sFileName, '\', 0, -1))
     DllCall('gdi32', 'long', "AddFontResourceA", 'str', $sFileName)
     Return 1
  Else
     Return 0
  EndIf
EndFunc  ;==>_InstallFont


Func _UnInstallFonts($sFontsName)
  Local $sFileName = @WindowsDir & '\Fonts\' & $sFontsName
  ;MsgBox(0, "FileName", $sFileName)
  $a = DllCall('gdi32', 'long', "RemoveFontResourceA", 'str', $sFileName)
	;MsgBox(0, "$err", @error)
	If Not @error And $a[0] <> 0 Then
		FileDelete($sFileName)
		Return 1
	Else
		Return 0
	EndIf
EndFunc  ;==>_UnInstallFonts

Alles anzeigen

Gruß,
Lefty

P.S.: Verbesserungen sind gerne gesehen