هناك العديد من الأمثلة على الإنترنت حول استخدام Delphi لإنشاء دليل افتراضي لـ IIS ، لكنهم يتطلبون جميعًا تحميل مكتبة الفصل. لإضافة فصول ، فإن الفرق الوحيد هو أنك تحتاج إلى إعادة تشغيل الكمبيوتر قبل أن يصبح ساري المفعول. الرمز كما يلي:
الإجراء tform1.button1click (المرسل: tobject) ؛
var
RegodBC: Tregistry ؛
RegisterTemp: Tregistry ؛
Syspath: Array [0..255] of Char ؛
يبدأ
Regodbc: = tregistry.create ؛
regodbc.rootkey: = hkey_local_machine ؛
regodbc.openkey ('/system/controlset001/services/w3svc/parameters/virtual roots' ، true) ؛
GetSystemDirectory (Syspath ، 255) ؛
إذا regodbc.valuexists ('/fire') ثم
يبدأ
Suimessage1.Text: = 'Web الأصلي لديه بالفعل دليل افتراضي يسمى Fire. "+#13#10+" الرجاء حذف أو إعادة تسمية هذا الحريق. '
suimessage1.icontype: = suitop ؛
suimessage1.buttoncount: = 1 ؛
suimessage1.caption: = 'error' ؛
إذا suimessage1.showmodal = mrok ثم
Winexec (PCHAR (syspath+'/inetsrv/inetmgr.exe') ، sw_shownormal) ؛
مخرج؛
نهاية
آخر
يبدأ
registertemp: = tregistry.create ؛
مع registertemp تفعل
يبدأ
Rootkeke: = HKEY_LOCAL_MACHINE ؛ // اضبط قيمة مفتاح الجذر على HKEY_LOCAL_MACHINE
// البحث أو إنشاء/نظام/controlset001/الخدمات/W3SVC/المعلمات/الجذور الافتراضية ، اكتب معلومات تكوين IIS
إذا كان OpenKey ('/system/controlset001/services/w3svc/parameters/virtual roots' ، true) ثم
يبدأ
WriteString ('/fire' ، 'e:/fire ، 205') ؛
نهاية
Else // فشل إنشاء قيمة مفتاح
يبدأ
suimessage1.text: = فشل تكوين IIS وسيتم إغلاق هذا البرنامج قريبًا. "+#13#10+" بعد الإغلاق ، يرجى التحقق من مدير خدمة الإنترنت أولاً ، أو استكشاف الأخطاء وإصلاحها أو تثبيتها قبل تشغيل هذا البرنامج. '
suimessage1.icontype: = suitop ؛
suimessage1.buttoncount: = 1 ؛
suimessage1.caption: = 'error' ؛
إذا suimessage1.showmodal = mrok ثم
application.layinate ؛
نهاية؛
Closekey
حر؛
نهاية؛
نهاية؛
Regodbc.free ؛
نهاية؛
ملاحظة: يتم أيضًا استبدال مكون Suimessagedialog لعنصر تحكم SUIPACK4 في الكود. إذا كنت مهتمًا بهذا ، يرجى الاتصال بي. [email protected] qq: 49055028