dışardan font

[the_korsan]

SA

cdden çalışan delphide yapılmış bir yıllık projem var. bu projede kullandığım fontu windowsun font klasöründen değilde cd içerisindeki font dosyasından kullanabilirmiyim?

kolay gelsin

[mege]

evet
AddFontResource

[the_korsan]

procedure TForm1.FormCreate(Sender: TObject);
begin
AddFontResource(pchar(ExtractFilePath(ParamStr(0)+'fontadı.TTF')));
SendMessage(HWND_BROADCAST,WM_FONTCHANGE,0,0);
end;


procedure TForm1.FormDestroy(Sender: TObject);
begin
RemoveFontResource(pchar(ExtractFilePath(ParamStr(0)+'fontadı.TTF')));
SendMessage(HWND_BROADCAST,WM_FONTCHANGE,0,0);
end;

bu kodları buldum ama yine yapamadım. bu fontun seçimini nasıl yapabilirim delphi içinden?

[the_korsan]

yaptım. teşekkür ederim