التعليقات

إنشاء ملف اختصار إنترنت (.URL) باستخدام دلفي

إنشاء ملف اختصار إنترنت (.URL) باستخدام دلفي

بخلاف اختصارات .LNK العادية (التي تشير إلى مستند أو تطبيق) ، تشير اختصارات الإنترنت إلى عنوان URL (مستند ويب). إليك كيفية إنشاء ملف .URL ، أو اختصار الإنترنت ، باستخدام دلفي.

يتم استخدام كائن اختصار الإنترنت لإنشاء اختصارات لمواقع الإنترنت أو مستندات الويب. تختلف اختصارات الإنترنت عن الاختصارات العادية (التي تحتوي على بيانات في ملف ثنائي) والتي تشير إلى مستند أو تطبيق. تحتوي هذه الملفات النصية ذات ملحق .URL على محتواها بتنسيق ملف INI.

أسهل طريقة للبحث داخل ملف .URL هي فتحه داخل المفكرة. يمكن أن يبدو المحتوى (في أبسط أشكاله) من اختصار الإنترنت كما يلي:

InternetShortcut
URL = // delphi.about.com

كما ترون ، ملفات .URL لها تنسيق ملف INI. يمثل عنوان URL موقع عنوان الصفحة المراد تحميلها. يجب أن تحدد عنوان URL مؤهلاً بالكامل بالتنسيق بروتوكول: // الخادم / الصفحة

وظيفة دلفي بسيطة لإنشاء ملف .URL

يمكنك بسهولة إنشاء اختصار إنترنت برمجيًا إذا كان لديك عنوان URL للصفحة التي تريد الارتباط بها. عند النقر نقرًا مزدوجًا ، يتم تشغيل المتصفح الافتراضي ويعرض الموقع (أو مستند ويب) المرتبط بالاختصار.

فيما يلي وظيفة دلفي بسيطة لإنشاء ملف .URL. ينشئ الإجراء CreateInterentShortcut ملف اختصار لعنوان URL مع اسم الملف المتوفر (معلمة FileName) لعنوان URL المحدد (LocationURL) ، الكتابة فوق أي اختصار إنترنت موجود بنفس الاسم.

الاستخدامات IniFiles.

إجراء CreateInternetShortcut (CONST اسم الملف ، LocationURL: خيط) ;ابدأ
  مع TIniFile.Create (اسم الملف) فعل
  محاولة
WriteString (
"InternetShortcut،
"URL"،
LocationURL) ؛
  أخيرا
    حر;
  

النهاية;النهاية; (* CreateInterentShortcut *)

إليك استخدام عينة:

/ / قم بإنشاء ملف .URL باسم "About Delphi Programming" // في المجلد الجذر لمحرك الأقراص C / / دعه يشير إلى //delphi.about.com
CreateInterentShortcut ('c: About Delphi Programming.URL'، '//delphi.about.com')؛

بعض الملاحظات:

  • يمكنك حفظ صفحة ويب باسم MHT (أرشيف الويب) ثم إنشاء اختصار .URL لتتمكن من الوصول إلى إصدار دون اتصال لوثيقة ويب.
  • يجب تقديم اسم ملف كامل ، إلى جانب ملحق .URL ، لمعلمة FileName.
  • إذا كان لديك بالفعل اختصار إنترنت "تهتم به" ، يمكنك بسهولة استخراج عنوان URL من ملف اختصار الإنترنت (.url).

تحديد أيقونة .URL

تتمثل إحدى الميزات المتقنة لتنسيق ملف .URL في أنه يمكنك تغيير رمز الاختصار المرتبط. بشكل افتراضي ، ستحمل .URL رمز المتصفح الافتراضي. إذا كنت ترغب في تغيير الرمز ، فلن تحتاج إلا إلى إضافة حقلين إضافيين إلى ملف .URL ، كما في:

InternetShortcut
URL = // delphi.about.com
IconIndex = 0
IconFile = C: مجلدي MyDelphiProgram.exe

تتيح لك حقول IconIndex و IconFile تحديد رمز اختصار .URL. قد يشير IconFile إلى ملف exe للتطبيق الخاص بك (IconIndex هو فهرس الرمز كمورد داخل EXE).

اختصار الإنترنت لفتح مستند عادي أو تطبيق

إذا كان يطلق عليك اختصار الإنترنت ، فإن تنسيق ملف .URL لا يسمح لك باستخدامه لشيء آخر ، مثل اختصار التطبيق القياسي.

لاحظ أنه يجب تحديد حقل URL في البروتوكول: // server / تنسيق الصفحة. على سبيل المثال ، يمكنك إنشاء رمز اختصار إنترنت على سطح المكتب يشير إلى ملف exe الخاص بالبرنامج. ما عليك سوى تحديد "الملف: ///" للبروتوكول. عند النقر المزدوج على ملف .URL ، سيتم تنفيذ طلبك. إليك مثال على هذا "اختصار الإنترنت":

InternetShortcut
URL = file: /// c: MyApps MySuperDelphiProgram.exe
IconIndex = 0
IconFile = C: MyFolder MyDelphiProgram.exe

فيما يلي إجراء يضع اختصار الإنترنت على سطح المكتب ، يشير الاختصار إلى التطبيق * الحالي *. يمكنك استخدام هذا الرمز لإنشاء اختصار للبرنامج:

الاستخدامات IniFiles ، ShlObj ؛

وظيفة GetDesktopPath: خيط;// الحصول على موقع مجلد سطح المكتبفار
DesktopPidl: PItemIDList؛
DesktopPath: مجموعة مصفوفة 0 ... MAX_PATH من شار.ابدأ
SHGetSpecialFolderLocation (0 ، CSIDL_DESKTOP ، DesktopPidl) ؛
SHGetPathFromIDList (DesktopPidl ، DesktopPath) ؛
النتيجة: = IncludeTrailingPathDelimiter (DesktopPath) ؛
النهاية; (* GetDesktopPath *)
إجراء CreateSelfShortcut.CONST
FileProtocol = 'file: ///'؛
فار
اختصار العنوان: خيط;ابدأ
ShortcutTitle: = Application.Title + '.URL'؛
  مع TIniFile.Create (GetDesktopPath + ShortcutTitle) فعل
  محاولة
WriteString (
"InternetShortcut،
"URL"،
FileProtocol + Application.ExeName) ؛
WriteString (
"InternetShortcut،
"IconIndex،
       '0') ;
WriteString (
"InternetShortcut،
"IconFile،
Application.ExeName) ؛
  أخيرا
حر؛
  النهاية;النهاية; (* CreateSelfShortcut *)

ملاحظة: ما عليك سوى الاتصال بـ "CreateSelfShortcut" لإنشاء اختصار للبرنامج على سطح المكتب.

متى استخدام .URL

ستكون هذه الملفات .URL المفيدة مفيدة لكل مشروع تقريبًا. عند إنشاء إعداد للتطبيقات الخاصة بك ، قم بتضمين اختصار .URL داخل القائمة "ابدأ" ، مما يتيح للمستخدمين الطريقة الأكثر ملاءمة لزيارة موقع الويب الخاص بك للحصول على التحديثات أو الأمثلة أو ملفات المساعدة.

شاهد الفيديو: استراتيجية جديدة للربح من اختصار الروابط ورفع الملفات لتحقيق ربح 2500$ من الانترنت (يوليو 2020).