Помогите установить Шрифты в Систему Windows

[AppData]

Добрый день.

написал такой вот скрипт но ничего не выходит. помогите установить шрифты в систему.

uses ShellApi;

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var
str:string;
begin
str:= 'function WriteLog' + #13#10 +
      '{' + #13#10 +
      'Param ([string]$LogString)'  + #13#10 +
      '$Stamp = (Get-Date).toString("yyyy/MM/dd HH:mm:ss")' + #13#10 +
      '$LogMessage = "$Stamp $LogString"' + #13#10 +
      'Add-content $LogFile -value $LogMessage' + #13#10 +
      '}' + #13#10 +
      '$Logfile = "C:\windows\fontinstall.log"' + #13#10 +
      '$SourceFolder = "C:\NewFonts"' + #13#10 +
      'Add-Type -AssemblyName System.Drawing' + #13#10 +
      '$WindowsFonts = [System.Drawing.Text.PrivateFontCollection]::new()' + #13#10 + #13#10 +
      'Get-ChildItem -Path $SourceFolder -Include *.ttf, *.otf -Recurse -File |' + #13#10 +
      'Copy-Item -Destination "$env:SystemRoot\Fonts" -Force -Confirm:$false -PassThru |' + #13#10 +
      'ForEach-Object {' + #13#10 +
      'WriteLog "Installing font file $_.Name"' + #13#10 +
      '$WindowsFonts.AddFontFile($_.fullname)' + #13#10 +
      '$RegistryValue = @{' + #13#10 +
      'Path = ' + 'HKLM:\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Fonts' + '' + #13#10 +
      'Name = $WindowsFonts.Families[-1].Name' + #13#10 +
      'Value = $_.Fullname' + #13#10 +
      '}' + #13#10 +
      '$RemoveRegistry = "HKLM:\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Fonts"' + #13#10 +
      'Remove-ItemProperty -name $($WindowsFonts.Families[-1].Name) -path $RemoveRegistry' + #13#10 +
      'New-ItemProperty @RegistryValue' + #13#10 +
      '}';

ShellExecute(handle,nil, 'powershell.exe',pchar(str) ,nil, Sw_ShowNormal);
end;

только не так

AddFontResource('C:\NewFonts\123.ttf');

[NetSpace]

ого! через реестр пошли... мощно.
а чем эта строка не устраивает?

AddFontResource('C:\NewFonts\123.ttf');

система не видит вашего нового шрифта 123.ttf ?
а эта ваша строка, если её вручную со всеми пробелами вводить в оболочке PowerShell с правами администратора, то шрифт встаёт? пробовали?

[p51x]

Сообщение от NetSpace

а чем эта строка не устраивает?

Устанавливает только на сессию

Сообщение от AppData

написал такой вот скрипт но ничего не выходит

Что не выходит? В реестр прописывается?

[AppData]

необходимо установить пак шрифтов в систему а не использовать во время работы проекта Projec1.exe
суть в установке, и даже если скопировать шрифты в папку C:\Windows\Fonts работать не будет

[AppData]

неужели никто не знает как?

[p51x]

Так вы и не ответили, что не получается? В реестр пишется? После перезагрузки шрифты видятся?