Existem muitos exemplos na Internet sobre o uso de Delphi para estabelecer um diretório virtual do IIS, mas todos eles exigem carregar a biblioteca de classes. Para adicionar aulas, a única a diferença é que você precisa reiniciar o computador antes que ele possa entrar em vigor. O código é o seguinte:
Procedimento TForm1.Button1Click (remetente: TOBJECT);
var
Regodbc: Tregistry;
RegisterTemp: Tregistry;
Syspath: matriz [0..255] de char;
Começar
Regodbc: = Tregistry.create;
Regodbc.rootkey: = hkey_local_machine;
Regodbc.openKey ('/System/ControlSet001/Services/W3SVC/Parâmetros/raízes virtuais', true);
getSystemDirectory (Syspath, 255);
Se Regodbc.valueExists ('/Fire') então
Começar
suimessage1.text: = 'A nativa da Web já possui um diretório virtual chamado Fire. '+#13#10+', exclua ou renomeie este incêndio. ';
suimessage1.icoNtype: = superop;
suimessage1.buttonCount: = 1;
suimessage1.caption: = 'error';
Se suimessage1.showmodal = mrok então
Winexec (PCHO (syspath+'/inetsrv/inetmgr.exe'), sw_shownormal);
saída;
fim
outro
Começar
RegisterTemp: = Tregistry.create;
com o RegisterTemp fazer
Começar
Rootkey: = hkey_local_machine; // Defina o valor da chave raiz como hkey_local_machine
// encontre ou create/System/ControlSet001/Services/W3SVC/Parameters/Raízes Virtuais, Escreva Informações de Configuração do IIS
Se OpenKey ('/System/ControlSet001/Services/W3SVC/Parameters/Virtual Roots', True) então
Começar
Escritos ('/fogo', 'e:/fogo ,, 205');
fim
else // Crie o valor da chave falhou
Começar
suimessage1.text: = 'A configuração do IIS falhou e este programa será fechado em breve. '+#13#10+' Após o fechamento, verifique o gerenciador de serviços da Internet primeiro, solucione erros ou instale -os antes de executar este programa. ';
suimessage1.icoNtype: = superop;
suimessage1.buttonCount: = 1;
suimessage1.caption: = 'error';
Se suimessage1.showmodal = mrok então
Application.Merminate;
fim;
Closekey;
Livre;
fim;
fim;
Regodbc.free;
fim;
Nota: O componente suimessagedialog do controle suipack4 é usado no código. Se você estiver interessado nisso, entre em contato comigo. [email protected] QQ: 49055028