سلام
میشه از داخل دلفی فونتی رو نصب کرد
ممنون
Printable View
سلام
میشه از داخل دلفی فونتی رو نصب کرد
ممنون
سلام
بله ميشه.
سلام
جواب تون مختصر و مفید بود.نقل قول:
اما چطوری؟
سلامنقل قول:
جواب من با توجه به سوال شما بود.
خب فرض مي كنم سوال شما اينطور مطرح شده است :
چطوري مي شود در دلفي فونت نصب كرد؟
جواب :
بخاطر اينكه اين قسمتي از يك كامپوننت است، بعضي از مقادير ممكن است نامفهوم باشند:کد:uses
Registry;
var
reg : TRegistry;
begin
reg := TRegistry.Create;
reg.RootKey := HKEY_LOCAL_MACHINE;
reg.LazyWrite := false;
if WINTYPE = 'NT' then
reg.OpenKey('Software\Microsoft\Windows NT\CurrentVersion\Fonts',false)
else
reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Fonts',false);
reg.WriteString(FFontName,FFontFileName);
reg.CloseKey;
reg.free;
AddFontResource(pchar(FFontFileName));
SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0);
end;
مقدار WINTYPE مشخص كننده نسخه ويندوز است.
مقدار FFontName نام فونت است ، مثلا Tahoma
مقدار FFontFileName مسير و نام فونت است، مثلا tahoma.ttf
در صورتيكه بخواهيد مي توانيد ابتدا فايل فونت را داخل پوشه fontsكپي كنيد، در اين صورت مقدار FFontFileName فقط شامل نام فونت خواهد بود، در غير اينصورت بايد مسير جايي كه فايل فونت قرار دارد را ذكر كنيد.
براي نصب فونت توسط اين روال بايد نام فونت را بدانيد، در صورتيكه بخواهيد بخواهيد فونت نامشخصي را نصب كنيد بايد ابتدا نام فونت را از داخل فايل فونت استخراج كنيد.
براي استخراج اطلاعات فونت ميتونيد از اين ابزار كامپوننت استفاده كنيد (+سورس)
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
سلام
جناب None Force ، دلیل نوشتن اون اطلاعات در رجیستری چیه ؟ ، حتما باید نوشته بشه ، من در یک برنامه فونتها م رو نصب کردم ولی چیزی در رجیستری ثبت نکردم ، ممکنه به مشکلی بر بخورم ... ؟؟
با تشکر ...
سلامنقل قول:
خب اين روش نصب است. اونها هم كليدهاي اطلاعات فونت هستند.
مي توانيد بصورت runtime هم نصب كنيد كه نيازي به نوشتن در رجيستري نيست.
سلام
فقط میخواستم بدونم که ویندوز در جای خاصصی نیاز به خواندن اون اطلاعات و استفاده از اونها داره ؟ یا نه ؟نقل قول:
خب اين روش نصب است. اونها هم كليدهاي اطلاعات فونت هستند
موفق باشید ...
سلام
اينطوري ميتونيد بصورت موقت يك فونت را نصب كنيد :
کد:procedure TForm1.FormCreate(Sender: TObject);
begin
AddFontResource(PChar(ExtractFilePath(ParamStr(0) + 'YourFont.TTF')));
SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0);
end;
procedure TForm1.FormDestroy(Sender: TObject);
begin
RemoveFontResource(PChar(ExtractFilePath(ParamStr(0) + 'YourFont.TTF')));
SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0);
end;