Kodbank İndir

! CODEBANK 2012 !

İNDİRMEK&DETAYLI BİLGİ ALMAK İÇİN BURAYI TIKLAYINIZ.

ÖNEMLİ AÇIKLAMA: MUTLAKA OKUYUNUZ!

« önceki sonraki »
Sayfa: [1]   Aşağı git

Gönderen Konu: Windows'a Font Yüklemek  (Okunma sayısı 1444 defa)

0 Üye ve 1 Ziyaretçi konuyu incelemekte.

Çevrimdışı CMNSOFT

  • Kıdemli Üye
  • *****
  • İleti: 82
  • Rep: +2/-2
  • Cinsiyet: Bay
    • http://www.cmnsoft.com
Windows'a Font Yüklemek
« : 21 Ekim 2005 15:58:33 »
Kod: Delphi
  1. Uses Registry;
  2.  
  3.  
  4.  
  5. Procedure InstallFonts(Source, FileName: String);
  6.  
  7. Var
  8.  
  9.    Reg: TRegistry;
  10.  
  11.    Bx: Bool;
  12.  
  13.    FontKey: String;
  14.  
  15. Begin
  16.  
  17. CopyFile(Source, ('C:\WINDOWS\FONTS\' + FileName), Bx);
  18.  
  19. FontKey:= 'Software\Microsoft\Windows\CurrentVersion\Fonts';
  20.  
  21. Reg:= TRegistry.Create;
  22.  
  23.  
  24.  
  25. With Reg Do
  26.  
  27.      Begin
  28.  
  29.      RootKey:= HKEY_LOCAL_MACHINE;
  30.  
  31.      LazyWrite:= False;
  32.  
  33.      OpenKey(FontKey, False);
  34.  
  35.      WriteString('TESTMICR(TrueType)', FileName);
  36.  
  37.      CloseKey;
  38.  
  39.      Free;
  40.  
  41.      End;
  42.  
  43.  
  44.  
  45. AddFontResource('C:\WINDOWS\FONTS\' + FileName);
  46.  
  47. SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0);
  48.  
  49. RemoveFontResource('C:\WINDOWS\FONTS\' + FileName);
  50.  
  51. SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0);
  52.  
  53. End;










Kullanım Şekli

Kod: Delphi
  1. Procedure TForm1.Button1Click(Sender: TObject);
  2.  
  3. Begin
  4.  
  5. InstallFonts('D:\Yedek\Fontlar\FP000100.TTF', 'FP000100.TTF');
  6.  
  7. End;
Kayıtlı
:::::::::::::::::::: www.CMNSOFT.com ::::::::::::::::::::
Sayfa: [1]   Yukarı git
« önceki sonraki »