Schriftart

;-- Font Constants ------
#Region Font Constants
Global Const $FR_PRIVATE = 0x10
Global Const $FR_NOT_ENUM = 0x20
#EndRegion Font Constants
; -----------------------
; #FUNCTION# ====================================================================================================================
; Name...........: _GDI_AddFontResourceEx
; Description ...: adds the font resource from the specified file to the system.
; Fonts added with the AddFontResourceEx function can be marked as private and not enumerable.
; Syntax.........: _GDI_AddFontResourceEx($lpszFilename, $fl, $pdv = 0)
; Parameters ....: $lpszFilename - [in] Pointer to a null-terminated character string that contains a valid font file name.
; This parameter can specify any of the following files.
; File Extension Meaning
; .fon Font resource file.
; .fnt Raw bitmap font file.
; .ttf Raw TrueType file.
; .ttc East Asian Windows: TrueType font collection.
; .fot TrueType resource file.
; .otf PostScript OpenType font.
; .mmm Multiple master Type1 font resource file.
; It must be used with .pfm and .pfb files.
; .pfb Type 1 font bits file. It is used with a .pfm file.
; .pfm Type 1 font metrics file. It is used with a .pfb file.
; To add a font whose information comes from several resource files,
; point lpszFileName to a string with the file names separated
; by a | --for example, abcxxxxx.pfm | abcxxxxx.pfb.
; $fl - [in] Specifies characteristics of the font to be added to the system.
; This parameter can be one of the following values.
; $FR_PRIVATE Specifies that only the process that called the AddFontResourceEx
; function can use this font. When the font name matches a public
; font, the private font will be chosen. When the process terminates,
; the system will remove all fonts installed by the process with
; the AddFontResourceEx function.
; $FR_NOT_ENUM Specifies that no process, including the process that called the
; AddFontResourceEx function, can enumerate this font.
; $pdv - [in] Reserved. Must be zero.
; Return values .: Success - the number of fonts added.
; Failure - 0 (No extended error information is available.)
; Author ........: Greenhorn
; Modified.......:
; Remarks .......: This function allows a process to use fonts without allowing other processes access to the fonts.
; When an application no longer needs a font resource it loaded by calling the AddFontResourceEx function,
; it must remove the resource by calling the RemoveFontResourceEx function.
; 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.
; Related .......:
; Link ..........; @@MsdnLink@@ AddFontResourceEx
; Example .......;
; ===============================================================================================================================
Func _GDI_AddFontResourceEx($lpszFilename, $fl, $pdv = 0)

If Not IsNumber($pdv) Or $pdv <> 0 Then $pdv = 0
Local $aResult = DllCall("gdi32.dll", 'int', 'AddFontResourceExW', 'wstr', $lpszFilename, 'dword', $fl, 'ptr', $pdv)
If @error Then Return SetError(@error, 0, False)
Return $aResult[0]

EndFunc ;==>_GDI_AddFontResourceEx

$hCollection = _GDIPlus_NewPrivateFontCollection()
_GDIPlus_PrivateAddFontFile($hCollection, "C:\MyFont.ttf")
$hFontFamily = _GDIPlus_CreateFontFamilyFromName("MyFont", $hCollection)
$hFont = _GDIPlus_FontCreate ($hFontFamily, 12, 2)

; ...

_GDIPlus_FontDispose($hFont)
_GDIPlus_FontFamilyDispose($hFontFamily)
_GDIPlus_DeletePrivateFontCollection($hCollection)

; #FUNCTION# ====================================================================================================================
; Name...........: _GDIPlus_NewPrivateFontCollection
; Description ...: Creates an PrivateFontCollection object.
; Syntax.........: _GDIPlus_NewPrivateFontCollection()
; Parameters ....:
; Return values .: Success - a pointer to the PrivateFontCollection object.
; Failure - 0
; Author ........: Prog@ndy, Yashied
; Modified.......:
; Remarks .......:
; Related .......:
; Link ..........; @@MsdnLink@@ GdipNewPrivateFontCollection
; Example .......;
; ===============================================================================================================================
Func _GDIPlus_NewPrivateFontCollection()
Local $aResult = DllCall($ghGDIPDll, 'int', 'GdipNewPrivateFontCollection', 'ptr*', 0)
If @error Then Return SetError(1,0,0)
Return SetError($aResult[0],0,$aResult[1])
EndFunc

; #FUNCTION# ====================================================================================================================
; Name...........: _GDIPlus_PrivateAddFontFile
; Description ...: Adds a font file to this private font collection.
; Syntax.........: _GDIPlus_PrivateAddFontFile($hCollection, $sFonfile)
; Parameters ....: $hCollection - [in] Pointer to the font collection object.
; $sFontfile - [in] Pointer to a null-terminated unicode string that specifies the name of a font file.
; Return values .: Success - True
; Failure - False
; Author ........: Prog@ndy, Yashied
; Modified.......:
; Remarks .......:
; Related .......:
; Link ..........; @@MsdnLink@@ GdipPrivateAddFontFile
; Example .......;
; ===============================================================================================================================
Func _GDIPlus_PrivateAddFontFile($hCollection, $sFontfile)
Local $aResult = DllCall($ghGDIPDll, 'int', 'GdipPrivateAddFontFile', 'ptr', $hCollection, 'wstr', $sFontfile)
If @error Then Return SetError(1,0,False)
Return SetError($aResult[0],0,$aResult[0]=0)
EndFunc

; #FUNCTION# ====================================================================================================================
; Name...........: _GDIPlus_CreateFontFamilyFromName
; Description ...: Creates a FontFamily object based on a specified font family.
; Syntax.........: _GDIPlus_CreateFontFamilyFromName($sFontname, $hCollection)
; Parameters ....: $sFontname - [in] Name of the font family. For example, Arial.ttf is the name of the Arial font family.
; $$hCollection - [in] Pointer to a FontCollection object that specifies the collection that the font family
; belongs to. If FontCollection is NULL, this font family is not part of a collection.
; The default value is NULL.

; Return values .: Success - a pointer to the new FontFamily object.
; Failure - 0
; Author ........: Prog@ndy, Yashied
; Modified.......:
; Remarks .......:
; Related .......:
; Link ..........; @@MsdnLink@@ GdipCreateFontFamilyFromName
; Example .......;
; ===============================================================================================================================
Func _GDIPlus_CreateFontFamilyFromName($sFontname, $hCollection=0)
Local $aResult = DllCall($ghGDIPDll, 'int', 'GdipCreateFontFamilyFromName', 'wstr', $sFontname, 'ptr', $hCollection, 'ptr*', 0)
If @error Then Return SetError(1,0,0)
Return SetError($aResult[0],0,$aResult[3])
EndFunc

; #FUNCTION# ====================================================================================================================
; Name...........: _GDIPlus_DeletePrivateFontCollection
; Description ...: Deletes the specified PrivateFontCollection object.
; Syntax.........: _GDIPlus_DeletePrivateFontCollection($hCollection)
; Parameters ....: $hCollection - [in] Pointer to the PrivateFontCollection object to delete.
; Return values .: Success - True
; Failure - False
; Author ........: Prog@ndy, Yashied
; Modified.......:
; Remarks .......:
; Related .......:
; Link ..........; @@MsdnLink@@ GdipDeletePrivateFontCollection
; Example .......;
; ===============================================================================================================================
Func _GDIPlus_DeletePrivateFontCollection($hCollection)
Local $aResult = DllCall($ghGDIPDll, 'int', 'GdipDeletePrivateFontCollection', 'ptr*', $hCollection)
If @error Then Return SetError(1,0,False)
Return SetError($aResult[0],0,$aResult[0]=0)
EndFunc

#cs ----------------------------------------------------------------------------

AutoIt Version: 3.3.0.0
Author: myName

Script Function:
Template AutoIt script.

#ce ----------------------------------------------------------------------------

; Script Start - Add your code below here

Global Const $FR_PRIVATE = 0x10
Global Const $FR_NOT_ENUM = 0x20

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

$Form1 = GUICreate("Form1", 421, 312)

$Ret = _GDI_AddFontResourceEx(@ScriptDir & "\raindrops.TTF", BitOR($FR_PRIVATE, $FR_NOT_ENUM))

$pic = GUICtrlCreateLabel("HALLO USW USF hallo", 100, 100, 200, 80)
GUICtrlSetFont(-1, 24, 400, 0, "Raindrop Splash")

GUISetState(@SW_SHOW)

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit

EndSwitch
WEnd

Func _GDI_AddFontResourceEx($lpszFilename, $fl, $pdv = 0) ;Progandy
If Not IsNumber($pdv) Or $pdv <> 0 Then $pdv = 0
Local $aResult = DllCall("gdi32.dll", 'int', 'AddFontResourceExW', 'wstr', $lpszFilename, 'dword', $fl, 'ptr', $pdv)
If @error Then Return SetError(@error, 0, False)
Return $aResult[0]
EndFunc ;==>_GDI_AddFontResourceEx