آدرس دهي زير شاخه فايل اجرايي برنامه [بایگانی]

khoshblagh

شنبه 30 بهمن 1389, 08:42 صبح

با سلام خدمت دوستان
ميخواهم به روش زير فايل فونت مورد نظر را از داخل زير شاخه فولدر برنامه نصب نمايم. ولي ظاهرا نحوه آدرس دهي زير شاخه غلط ميباشد. در صورت امکان کد زير را اصلاح نمائيد. متشکرم

Dir:=ExtractFilePath(Application.ExeName);
Dir:=Dir+'app';
if FileExists(dir+'BTraffic.ttf')= True then begin
AddFontResource(PChar('BTraffic.tff'));
SendMessage(HWND_BROADCAST,WM_FONTCHANGE,0,0);
Application.Title:='äÕÈ ÝæäÊ ';
ShowMessage('ÝæäÊ BTraffic.tff äÕÈ ÔÏ');
end
else begin
ShowMessage('not');
end;