มีตัวอย่างมากมายบนอินเทอร์เน็ตเกี่ยวกับการใช้ Delphi เพื่อสร้างไดเรกทอรีเสมือนจริงของ IIS แต่พวกเขาทั้งหมดต้องการโหลดไลบรารีคลาส ในการเพิ่มคลาสความแตกต่างเพียงอย่างเดียวคือคุณต้องรีสตาร์ทคอมพิวเตอร์ก่อนที่จะมีผล รหัสมีดังนี้:
ขั้นตอน tform1.button1click (ผู้ส่ง: tobject);
วาจา
RegODBC: Tregistry;
RegisterTemp: Tregistry;
Syspath: Array [0..255] ของ Char;
เริ่ม
regoDBC: = tregistry.create;
regodbc.rootkey: = hkey_local_machine;
regoDbc.openkey ('/system/controlset001/services/w3svc/พารามิเตอร์/รากเสมือนจริง', จริง);
GetSystemDirectory (Syspath, 255);
ถ้า regodbc.valueexists ('/fire') แล้ว
เริ่ม
SUIMESSAGE1.TEXT: = 'Web Native มีไดเรกทอรีเสมือนชื่อ Fire แล้ว '+#13#10+' โปรดลบหรือเปลี่ยนชื่อไฟนี้ -
SUIMESSAGE1.ICONTYPE: = SUCTOP;
SUIMESSAGE1.BUTTONCOUNT: = 1;
SUIMESSAGE1.CAPTION: = 'ข้อผิดพลาด';
ถ้า suimessage1.showmodal = mrok แล้ว
winexec (pchar (syspath+'/inetsrv/inetmgr.exe'), sw_shownormal);
ออก;
จบ
อื่น
เริ่ม
registerTemp: = tregistry.create; // สร้างอินสแตนซ์รีจิสทรี
ด้วย registertemp do
เริ่ม
rootkey: = hkey_local_machine; // ตั้งค่าคีย์รูทเป็น hkey_local_machine
// ค้นหาหรือสร้าง/ระบบ/controlset001/services/w3svc/พารามิเตอร์/รากเสมือนจริงเขียนข้อมูลการกำหนดค่า IIS
ถ้า openkey ('/system/controlset001/services/w3svc/parameters/roots เสมือนจริง' จริง) จากนั้น
เริ่ม
Writestring ('/Fire', 'E:/Fire ,, 205');
จบ
อื่น // สร้างคีย์ค่าล้มเหลว
เริ่ม
SUIMESSAGE1.TEXT: = 'การกำหนดค่า IIS ล้มเหลวและโปรแกรมนี้จะปิดเร็ว ๆ นี้ '+#13#10+' หลังจากปิดโปรดตรวจสอบตัวจัดการบริการอินเทอร์เน็ตก่อนแก้ไขข้อผิดพลาดหรือติดตั้งก่อนที่จะเรียกใช้โปรแกรมนี้ -
SUIMESSAGE1.ICONTYPE: = SUCTOP;
SUIMESSAGE1.BUTTONCOUNT: = 1;
SUIMESSAGE1.CAPTION: = 'ข้อผิดพลาด';
ถ้า suimessage1.showmodal = mrok แล้ว
แอปพลิเคชันสิ้นสุด;
จบ;
closekey;
ฟรี;
จบ;
จบ;
regodbc.free;
จบ;
หมายเหตุ: ส่วนประกอบ SuimessAgedialog ของการควบคุม Suipack4 ใช้ในรหัส หากคุณสนใจสิ่งนี้โปรดติดต่อฉัน [email protected] QQ: 49055028