Ada banyak contoh di internet tentang penggunaan Delphi untuk membuat direktori virtual IIS, tetapi mereka semua memerlukan pemuatan perpustakaan kelas. Untuk menambahkan kelas, satu -satunya perbedaannya adalah Anda perlu memulai kembali komputer sebelum dapat berlaku. Kodenya adalah sebagai berikut:
Prosedur TFORM1.BUTTON1CLICK (Pengirim: Tobject);
var
RegOdBC: Tregistry;
Registertemp: Tregistry;
Syspath: Array [0..255] dari Char;
Mulai
RegoDBC: = Tregistry.Create; // Akses registri
RegoDBC.ROOTKEY: = HKEY_LOCAL_MACHINE;
RegoDBC.OpenKey ('/System/ControlSet001/Services/W3SVC/Parameter/Virtual Roots', True);
getSystemDirectory (Syspath, 255);
Jika RegoDBC.ValueExists ('/Fire') maka
Mulai
SUIMESSAGE1.TEXT: = 'Web asli sudah memiliki direktori virtual bernama Fire. '+#13#10+' Hapus atau ganti nama api ini. ';
suimessage1.icontype: = suitop;
suimessage1.buttoncount: = 1;
suimessage1.caption: = 'error';
Jika suimessage1.showmodal = mrok maka
winexec (pchar (syspath+'/inetsrv/inetmgr.exe'), sw_shownormal);
KELUAR;
akhir
kalau tidak
Mulai
Registertemp: = Tregistry.Create; // Buat contoh registri
dengan registertemp lakukan
Mulai
Rootkey: = hkey_local_machine; // atur nilai kunci root ke hkey_local_machine
// Temukan atau Buat/Sistem/ControlSet001/Services/W3SVC/Parameter/Root Virtual, Tulis Informasi Konfigurasi IIS
Jika OpenKey ('/System/ControlSet001/Services/W3SVC/Parameters/Virtual Roots', True) lalu
Mulai
WriteString ('/fire', 'e:/fire ,, 205');
akhir
else // buat nilai kunci gagal
Mulai
SUIMESSAGE1.TEXT: = 'Konfigurasi IIS gagal dan program ini akan segera ditutup. '+#13#10+' Setelah ditutup, silakan periksa Internet Service Manager terlebih dahulu, pemecahkan masalah kesalahan atau instal sebelum menjalankan program ini. ';
suimessage1.icontype: = suitop;
suimessage1.buttoncount: = 1;
suimessage1.caption: = 'error';
Jika suimessage1.showmodal = mrok maka
Application.Malter;
akhir;
CloseKey;
Bebas;
akhir;
akhir;
RegOdBC.Free;
akhir;
CATATAN: Komponen SuimessageDialog dari kontrol Suipack4 digunakan dalam kode. Jika Anda tertarik dengan ini, silakan hubungi saya. [email protected] QQ: 49055028