В Интернете есть много примеров об использовании Delphi для создания виртуального каталога IIS, но все они требуют загрузки библиотеки классов. Чтобы добавить классы, единственная разница в том, что вам нужно перезагрузить компьютер, прежде чем он сможет вступить в силу. Код заключается в следующем:
Процедура tform1.button1click (отправитель: tobject);
вар
RegoDBC: Tregistry;
RegisterTemp: Tregistry;
Syspath: массив [0..255] из Чар;
Начинать
RegoDBC: = Tregistry.Create;
RegoDBC.Rootkey: = hkey_local_machine;
RegoDBC.Openkey ('/System/ControlSet001/Services/W3SVC/Параметры/Виртуальные корни', true);
GetSystemDirectory (Syspath, 255);
Если RegoDBC.ValueExists ('/fire') тогда
Начинать
suimessage1.text: = 'Нативная сеть уже имеет виртуальный каталог с именем 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 Do
Начинать
Rootkey: = hkey_local_machine; // Установить значение корневого ключа на hkey_local_machine
// Найти или создать/system/controlset001/services/w3svc/parameters/virtual корни, напишите информацию о конфигурации IIS
Если OpenKey ('/system/controlSet001/services/w3svc/parameters/virtual корней, true) тогда
Начинать
Writestring ('/Fire', 'E:/Fire ,, 205');
конец
else // создать значение ключа не удалось
Начинать
Suimessage1.text: = 'IIS Configuration не удалась, и эта программа будет закрыта в ближайшее время. '+#13#10+' После закрытия, пожалуйста, сначала проверьте интернет -менеджер, ошибки и установите их перед запуском этой программы. ';
suimessage1.icontype: = suitop;
suimessage1.buttoncount: = 1;
suimessage1.caption: = 'error';
Если suimessage1.showmodal = mrok, тогда
Application.Terminate;
конец;
Закрыть;
Бесплатно;
конец;
конец;
Regodbc.free;
конец;
ПРИМЕЧАНИЕ. В коде используется компонент SuimessageAgealog управления Suipack4. Если вы заинтересованы в этом, пожалуйста, свяжитесь со мной. [email protected] QQ: 49055028