استدعاء المتصفح لفتح موقع

[الحويطي]

http://up.0x4x.com/mypic.php/0x4x_68886451.gif

أتيتكم اليوم بموضوع بسيط ومهم وقد تحتاجه يوما ما في تطبيقك ألا وهو فتح صفحات الإنترنت من خلال تطبيقك ( هنــا نحن لا نصمم متصفح انترنت بل تكتب اسم الموقع وراح يفتح من خلال المتصفح الموجود لديك سواء الـ IE أو FireFox أو الـ Opera ....

والآن مع الشرح ....

أولا نفتح الدلفي ونبدأ مشروع جديد .... ونضيف عليه Edit & Button


http://img199.imageshack.us/img199/7247/newnyw.jpg


ويكون شكل الفورم هكذا ...


http://img265.imageshack.us/img265/7006/insertr.jpg


نضغط DblClk على الـ Button1 ونضيف هذه التعليمة

ShellExecute(Handle,'open',PChar(Edit1.Text),nil,n il,SW_SHOW);


فتصبح بهذا الشكل


http://img693.imageshack.us/img693/5025/codep.jpg



http://up.0x4x.com/mypic.php/0x4x_76641886.gif

[mobile]

بارك الله فيك

[nabilsoft]

اه طريقة رائعة بوركت اخي