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
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