Hay muchos ejemplos en Internet sobre el uso de Delphi para establecer un directorio virtual de IIS, pero todos requieren cargar la biblioteca de clases. Para agregar clases, la única que la diferencia es que necesita reiniciar la computadora antes de que pueda entrar en vigencia. El código es el siguiente:
Procedimiento tForm1.Button1Click (remitente: tobject);
varilla
Regodbc: Tregisny;
RegisterTemp: Tregistry;
Syspath: Array [0..255] de char;
Comenzar
Regodbc: = tregistry.create;
Regodbc.rootkey: = hkey_local_machine;
Regodbc.openkey ('/system/controlset001/services/w3svc/parameters/virtual roots', true);
getSystemDirectory (Syspath, 255);
Si regodbc.valueExists ('/fire') entonces
Comenzar
suimessage1.Text: = 'Native Web ya tiene un directorio virtual llamado Fire. '+#13#10+' Por favor, elimine o cambie el nombre de este fuego. ';
suimessage1.icontype: = suitop;
suimessage1.ButtonCount: = 1;
suimessage1.caption: = 'error';
Si suimessage1.showmodal = mRok entonces
Winexec (PCHAR (SYSPATH+'/INETSRV/INETMGR.EXE'), SW_SHOWNORMAL);
salida;
fin
demás
Comenzar
RegisterTemp: = Tregistry.Create;
con RegisterTempo DO
Comenzar
Key Key: = HKEY_LOCAL_MACHINE; // Establezca el valor de la clave raíz en HKEY_LOCAL_MACHINE
// Buscar o crear/System/ControlSet001/Services/W3SVC/Parameters/Virtual Roots, escribir información de configuración de IIS
Si OpenKey ('/System/ControlSet001/Services/W3SVC/Parameters/Virtual Roots', True) entonces
Comenzar
WriteString ('/Fire', 'E:/Fire ,, 205');
fin
else // Crear valor clave falló
Comenzar
suimessage1.text: = 'La configuración IIS falló y este programa se cerrará pronto. '+#13#10+' Después de cerrar, consulte primero el administrador de servicios de Internet, solucione los errores o instálelos antes de ejecutar este programa. ';
suimessage1.icontype: = suitop;
suimessage1.ButtonCount: = 1;
suimessage1.caption: = 'error';
Si suimessage1.showmodal = mRok entonces
aplicación.merminar;
fin;
Closekey;
Gratis;
fin;
fin;
Regodbc.Free;
fin;
Nota: El componente Suimessedialog del control Suipack4 se usa en el código. Si está interesado en esto, contácteme. [email protected] QQ: 49055028