هل يمكن إنشاء إرتباط تشعبي في الدلفي

ربما نعم ...

حسب ماتقصدة بـ "إرتباط تشعبي "

مثلا . فتح موقع عند النقر على زر أو لافتة ؟؟؟؟؟...

-----------------------------------------------------------

ShellExecute :

الغرض من الدالة : (فتح/طباعة) ملف مقترن ببرنامج

او (فتح/أستعراض) مجلد Folder.

التصريح : ***( يجب اولا أستخدام الوحدة ShellApi )***

التصريح موجود في الوحدة ShellApi وأسهل طريقة للوصول للتصريح بضغط على

المفتاح Ctrl + النقر بالماوس على الكلمة ShellExecute(كرر الخطوة مرة أخرى).

أمثلة

-----:

1- فتح ملف C:\MyFile.txt بأستخدام الأمر open

;(ShellExecute(Handle,'open','c:\MyFile.txt',nil,nil,SW_SHOWNormal

2- طباعة الملف السابق في الخلفية background بأستخدام الأمر print

;(ShellExecute(Handle,'print','c:MyFile.txt',nil,nil,SW_Hide

3- لفتح مجلد folder في جهاز كمبيوتر MyComputer

;(ShellExecute(Handle,'open','c:Windows',nil,nil,SW_SHOWNormal

4- لفتح مجلد folder في مستكشف explore

;(ShellExecute(Handle,'explore','c:Windows',nil,nil,SW_SHOWNormal

ملاحظة

-----: يمكن أستخدام الدالة WinExec المبنية في الدلفي لتشغيل البرامج :

;(WinExec('C:WindowsNotePad.exe',SW_SHOWNORMAL

لفتح موقع :

ShellExecute(handle,'open', 'http://www.orwah.net', nil, nil, SW_NORMAL);