delphi4arab منتديات دلفي للعرب

نسخة كاملة : فتح موقع من برنامجك
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .

MizoZ

هدا أبسط كود
و هو لفتح موقع

أولا ضع هذا العنصر في قسم uses ( ستجد بعض العناصر التي انشاها الدلفي بشكل تلقائي اضف اليها العنصر
shellapi

كود :

PHP كود :
ShellExecute(0,nil,pchar('www.delphi4arab.net'),nil,nil,1); 
و يمكن وضع

PHP كود :
ShellExecute(0,nil,pchar(Edit1.text),nil,nil,1); 
لفتح ما كتبه المستخدم
MizoZ كتب :هدا أبسط كود
و هو لفتح موقع

أولا ضع هذا العنصر في قسم uses ( ستجد بعض العناصر التي انشاها الدلفي بشكل تلقائي اضف اليها العنصر
shellapi

كود :

PHP كود :
ShellExecute(0,nil,pchar('www.delphi4arab.net'),nil,nil,1); 
و يمكن وضع

PHP كود :
ShellExecute(0,nil,pchar(Edit1.text),nil,nil,1); 
لفتح ما كتبه المستخدم
كيف تختار المتصفح ال\ي تريدهمن داخل البرنامج
يمكنك ذلك من خلال تشغيل المتصفح الذي تريد ثم تمرير عنوان الموقع كبراميتر له. شيء مثل :

كود :
ShellExecute(Handle,'open', Pchar('C:\Program Files\Mozilla Firefox\firefox.exe'), Pchar( 'https://www.google.com'), nil, SW_SHOWNORMAL) ;