在DELPHI程序中如何打开IIS中的SMTP服务? (50分)

  • 主题发起人 主题发起人 dana
  • 开始时间 开始时间
D

dana

Unregistered / Unconfirmed
GUEST, unregistred user!
这是的写法,如何转为DELPHI?
Set smtp = GetObject("IIS://127.0.0.1/smtpsvc")
If Err <> 0 Then
MsgBox "您尚未安装smtp服务,请安装....."
Exit Sub
End If
e = Shell("net start smtpsvc")
End Sub
 
WinExec('net start smtpsvc', SW_Show);

-----
http://www.8421.org
 
WinExec('net start smtpsvc', SW_Show);
我用这样提示请求的服务已启动,
但我SMTP服务还是没有启动啊,刷新了很多次了也一样。
 
直接在服务管理器里面可以启动?
 
接受答案了.
 
后退
顶部