كيف عمل اختصار للسمايلات مثل الاختصارات الموجودة في المسنجر

[M_Mori2010]

السلآم عليكم ورحمةا لله وبركاته
كيف يمكنني عمل اختصار للسمايلات مثل الاختصارات الموجودة في المسنجر حيث انني اذا اردت عرض السمايل يجب ان اكتب التالي <img border="0" src="c:\morvac\smily\1.gif">
فهل من طريقة لصنع اختصار ؟
وجزاكم الله كل خير

[sa7er100]

وعليكم السلام

جرب هذا

كود :

function ReplaceSmileys(strtext: string): string; begin //New Smileys strtext := StringReplace(strtext, ':)', '<img src="' + GetCurrentDir + 'C:\Smily\1.gif' + '">', [rfReplaceAll, rfIgnoreCase]); end;