Forum
Merhaba,
Domaine bağlı olan windows7 pro kurulu bir pc ye font yüklemeye çalışıyorum, font yüklemesi bittikten sonra otomatik olarak yüklediğim fontu kaldırıyor. Sorunun ne olduğunu çözemedim. Yardımlarınızı rica ediyorum.
Font yüklemesini nasıl yapıyorsunuz ?
Font dosyasının üzerinde sağ tıklayıp Yükle diyorum.
Bu işlemi [b]vbs[/b] ile bir dener misiniz ?
■ Boş bir metin belgesi ([b]Txt[/b] dosyası) açın.
■ İçerisine aşağıdaki kodları yapıştırın;
■ Koddaki bu kısma Fontunuzun dosya yolunu yazın; Örnek; C:\Users\Kullanıcı_Adı\Desktop\ALGER.ttf"
Sub Font_Yukle()
Const FONTS = &H14&
Set Evn = CreateObject("Shell.Application")
Set Font = Evn.Namespace(FONTS)
Font.CopyHere "C:\Users\Kullanıcı_Adı\Desktop\ALGER.ttf"
End Sub
Call Font_Yukle
■ Kaydedip kapatın.
■ Txt dosyasının uzantısını [b].vbs[/b] yapın.
■ Bu dosya üzerinde çift tıklayın.