Schriften installieren Topic is solved

Stelle Fragen zur Programmierung mit Autohotkey

Moderator: jNizM

RogerB
Posts: 4
Joined: 04 May 2021, 03:19

Schriften installieren

Post by RogerB » 10 May 2021, 01:49

Guten Morgen zsuammen
ich bin neu hier und hoffe ihr könnt mir einen Typ geben.
Ich habe in einem Ordner Schriften abgelegt die ich installieren möchte.

Y:\1_Admin\1.1_Corporate Design\1.1.2_Schriften_(Fonts)\

Wie muss ich da vorgehen? Es muss ja zuerst ins Windows \Fonts kopiert werden und dann in der Registry eingetragen werden.

Muss dazu sagen das ich kein Programmierer bin.

Besten Dank und Gruss
Roger
BoBo
Posts: 6564
Joined: 13 May 2014, 17:15

Re: Schriften installieren

Post by BoBo » 10 May 2021, 07:59

Stellt sich die Frage ob das eine einmalige Angelegenheit bleibt (wahrscheinlich kein Script notwendig), oder auf tausenden NoBo's ebenfalls? Wieviele Schriften sind es denn?
Vll konvertiert dir jemand das: https://4sysops.com/archives/install-fonts-with-a-powershell-script/
KHA
Posts: 403
Joined: 21 Aug 2018, 11:11

Re: Schriften installieren

Post by KHA » 10 May 2021, 08:18

Versuchmal damit, *nicht getestet*, je nach dem ob der Pfad unter Ordner enthält muss die schleife angepasst werden.

Code: Select all

Loop, Files, Y:\1_Admin\1.1_Corporate Design\1.1.2_Schriften_(Fonts)\*.ttf
DllCall("AddFontResource", Str, A_LoopFileLongPath)

SendMessage,  0x1D,,,, ahk_id 0xFFFF
User avatar
jNizM
Posts: 3183
Joined: 30 Sep 2013, 01:33
Contact:

Re: Schriften installieren

Post by jNizM » 10 May 2021, 08:34

AddFontResource "registriert" die Schriftart nur bis zum nächsten Neustart, aber installiert sie nicht dauerhaft.
This function installs the font only for the current session. When the system restarts, the font will not be present. To have the font installed even after restarting the system, the font must be listed in the registry.
[AHK] v2.0.5 | [WIN] 11 Pro (Version 22H2) | [GitHub] Profile
KHA
Posts: 403
Joined: 21 Aug 2018, 11:11

Re: Schriften installieren

Post by KHA » 10 May 2021, 08:45

@jNizM Danke, das wusste ich nicht.
RogerB
Posts: 4
Joined: 04 May 2021, 03:19

Re: Schriften installieren

Post by RogerB » 10 May 2021, 09:16

Danke mal an alle die bisher geantwortet haben.
Es geht darum dies für eine neu aufsetzung des Computers.
Das heisst ich habe diverse Scripts die ich laufen lassen möchte.
Fängt beim Netzwerkverbinden an bis zur Druckerinstallation und diverse Programme.
Die Schriften sind in einem Netzwerkordner drinn.
Werde den Powershell script mal anschauen. Allenfalls kann ich den einbinden.
BoBo
Posts: 6564
Joined: 13 May 2014, 17:15

Re: Schriften installieren  Topic is solved

Post by BoBo » 10 May 2021, 23:49

Wäre da nicht der Weg der "unattended installation" der richtige? Das sollte dann über Bordmittel der Installationsroutine gehen?!
https://docs.microsoft.com/en-us/windows-hardware/customize/desktop/wsim/windows-system-image-manager-technical-reference
just me
Posts: 9425
Joined: 02 Oct 2013, 08:51
Location: Germany

Re: Schriften installieren

Post by just me » 11 May 2021, 04:44

Moin,

lass doch mal das folgende Skript für eine Deiner Fontdateien laufen:

Code: Select all

#NoEnv
FilePath := "C:\Program Files\SoftMaker Office 2018\inst\fences.ttf"
MsgBox, % SystemVerbs(FilePath)
ExitApp

SystemVerbs(FilePath) {
   SplitPath, FilePath, FileName, FileDir
   Shell := ComObjCreate("Shell.Application")
   Folder := Shell.NameSpace(FileDir)
   Item := Folder.ParseName(FileName)
   Verbs := Item.Verbs()
   Out := "Insgesamt " . Verbs.Count . " Einträge:`n"
   For Verb In Verbs
      Out .= "`n" . (A_Index - 1) . "`t" . Verb.Name
   Return Out
}
Bei mir unter Win 10 entsteht folgendes Ergebnis.

Code: Select all

---------------------------
Verbs.ahk
---------------------------
Insgesamt 19 Einträge:

0	&Vorschau
1	&Drucken
2	I&nstallieren
3	Für &alle Benutzer installieren
4
5	Edit with &Notepad++
6	Edit with PSPad
7	Edit with PSPad (hex)
8	Freigabe
9
10	Ausgewählte Dateien mit A&vira überprüfen
11	Vorg&ängerversionen wiederherstellen
12
13	&Ausschneiden
14	&Kopieren
15	&Verknüpfung erstellen
16	&Löschen
17	&Umbenennen
18	E&igenschaften
---------------------------
OK
---------------------------
Man könnte versuchen, den Eintrag 3 mit AHK auszulösen (ich habe das noch nicht getan). Wie sieht es bei Dir aus?
Post Reply

Return to “Ich brauche Hilfe”