无
无情剑客xx
Unregistered / Unconfirmed
GUEST, unregistred user!
procedure Tpubform.Button5Click(Sender: TObject);
var
WebSite, WebServer, WebRoot, VDir: Variant;
ini:TIniFile;
IniFilePath:String;
f:TextFile;
begin
WebSite := CreateOleObject('IISNamespace');
WebSite := WebSite.GetObject('IIsWebService', 'localhost/w3svc');
WebServer := WebSite.GetObject('IIsWebServer', '1');
WebRoot := WebServer.GetObject('IIsWebVirtualDir', 'Root');
//虚拟别名
VDir := WebRoot.Create('IIsWebVirtualDir', VDname.Text);
VDir.AccessRead := True;
//web站点的内容目录
VDir.Path := virpath.Text;
VDir.SetInfo;
MessageBox(Application.Handle,PChar('虚拟目录:'+VDname.Text+'创建完成'),
'提示信息',MB_OK + MB_ICONWARNING) ;
//改写配置文件
IniFilePath:=ExtractFilePath(paramStr(0));
if copy(IniFilePath,length(IniFilePath),1)<>'/' then
IniFilePath:=IniFilePath+'/';
IniFilePath:=IniFilePath+'occmanifest.ini';
Assignfile(f,IniFilePath);
try
ini:=TIniFile.Create(IniFilePath);
ini.writestring('VIR',virpath.Text,VDname.Text);
ini.Free;
except
Application.MessageBox('改写配置文件失败!','错误信息');
end;
end;
用上面的方法创建的虚拟目录执行不了,我把属性中的执行许可改成“纯脚本”才能用ie浏览,我要是在程序中改怎么设呢,在线等待,多谢大侠了。
var
WebSite, WebServer, WebRoot, VDir: Variant;
ini:TIniFile;
IniFilePath:String;
f:TextFile;
begin
WebSite := CreateOleObject('IISNamespace');
WebSite := WebSite.GetObject('IIsWebService', 'localhost/w3svc');
WebServer := WebSite.GetObject('IIsWebServer', '1');
WebRoot := WebServer.GetObject('IIsWebVirtualDir', 'Root');
//虚拟别名
VDir := WebRoot.Create('IIsWebVirtualDir', VDname.Text);
VDir.AccessRead := True;
//web站点的内容目录
VDir.Path := virpath.Text;
VDir.SetInfo;
MessageBox(Application.Handle,PChar('虚拟目录:'+VDname.Text+'创建完成'),
'提示信息',MB_OK + MB_ICONWARNING) ;
//改写配置文件
IniFilePath:=ExtractFilePath(paramStr(0));
if copy(IniFilePath,length(IniFilePath),1)<>'/' then
IniFilePath:=IniFilePath+'/';
IniFilePath:=IniFilePath+'occmanifest.ini';
Assignfile(f,IniFilePath);
try
ini:=TIniFile.Create(IniFilePath);
ini.writestring('VIR',virpath.Text,VDname.Text);
ini.Free;
except
Application.MessageBox('改写配置文件失败!','错误信息');
end;
end;
用上面的方法创建的虚拟目录执行不了,我把属性中的执行许可改成“纯脚本”才能用ie浏览,我要是在程序中改怎么设呢,在线等待,多谢大侠了。