Es gibt viele Beispiele im Internet über die Verwendung von Delphi zur Einrichtung eines virtuellen Verzeichnisses von IIS, aber sie müssen die Klassenbibliothek laden. Um Klassen hinzuzufügen, ist der einzige Unterschied, dass Sie den Computer neu starten müssen, bevor er wirksam wird. Der Code ist wie folgt:
Procedure tform1.button1click (Absender: tobject);
var
RegoDBC: Tregistry;
RegisterTemp: Tregistry;
Syspath: Array [0..255] von Char;
Beginnen
RegoDBC: = Tregistry.create;
RegoDBC.Rootkey: = hkey_local_maachine;
RegoDBC.Openkey ('/System/ControlSet001/Services/W3SVC/Parameter/Virtual Roots', True);
GetSystemDirectory (Syspath, 255);
Wenn regoDBC.ValueExists ('/fire') dann
Beginnen
Suimessage1.Text: = 'Native Web hat bereits ein virtuelles Verzeichnis namens Fire. '+#13#10+' Bitte löschen oder umbenennen Sie dieses Feuer. ';
Suimessage1.Icontype: = Suitop;
Suimessage1.ButtonCount: = 1;
Suimessage1.Caption: = 'error';
Wenn Suimessage1.ShowModal = MROK dann
wonexec (pChar (Syspath+'/inetsrv/inetmgr.exe'), SW_SHOWNORMAL);
Ausfahrt;
Ende
anders
Beginnen
RegisterTemp: = Tregistry.create;
mit RegisterTemp tun
Beginnen
RootKey: = hkey_local_maachine; // Setzen Sie den Stammschlüsselwert auf hkey_local_machine
// Suchen oder erstellen/system/controlset001/dienste/w3svc/parameter/virtuelle Wurzeln, schreiben Sie IIS -Konfigurationsinformationen
Wenn OpenKey ('/System/ControlSet001/Services/W3SVC/Parameter/Virtual Roots', true) dann
Beginnen
WriteString ('/Fire', 'E:/Fire ,, 205');
Ende
sonst // Schlüsselwert erstellen
Beginnen
Suimessage1.Text: = 'IIS -Konfiguration ist fehlgeschlagen und dieses Programm wird bald geschlossen. '+#13#10+' Nach dem Schließen überprüfen Sie bitte den Internet Service Manager zuerst, Fehlerbehebung oder installieren Sie diese, bevor Sie dieses Programm ausführen. ';
Suimessage1.Icontype: = Suitop;
Suimessage1.ButtonCount: = 1;
Suimessage1.Caption: = 'error';
Wenn Suimessage1.ShowModal = MROK dann
application.terate;
Ende;
CloseKey;
Frei;
Ende;
Ende;
RegoDbc.free;
Ende;
HINWEIS: Die SuiMessagedialog -Komponente der Suipack4 -Steuerung wird im Code verwendet. Wenn Sie daran interessiert sind, kontaktieren Sie mich bitte. [email protected] QQ: 49055028