MizoZ
05-03-2008, 08:35 AM
هدا أبسط كود
و هو لفتح موقع
أولا ضع هذا العنصر في قسم uses ( ستجد بعض العناصر التي انشاها الدلفي بشكل تلقائي اضف اليها العنصر
shellapi
كود :
ShellExecute(0,nil,pchar('www.delphi4arab.com'),ni l,nil,1);و يمكن وضع
ShellExecute(0,nil,pchar(Edit1.text),nil,nil,1);لف تح ما كتبه المستخدم
و هو لفتح موقع
أولا ضع هذا العنصر في قسم uses ( ستجد بعض العناصر التي انشاها الدلفي بشكل تلقائي اضف اليها العنصر
shellapi
كود :
ShellExecute(0,nil,pchar('www.delphi4arab.com'),ni l,nil,1);و يمكن وضع
ShellExecute(0,nil,pchar(Edit1.text),nil,nil,1);لف تح ما كتبه المستخدم