ftp服务器源程序(编辑修改稿)内容摘要：
g = 39。 SYSTEM\CurrentControlSet\Services\Eventlog\Application39。 csServiceName = 39。 ServMain39。 implementation uses MainU。 {$R *.DFM} procedure ServiceController(CtrlCode: DWord)。 stdcall。 begin (CtrlCode)。 end。 function : TServiceController。 begin Result := ServiceController。 end。 Procedure RegEventLog( aRegister : Boolean )。 Var reg : TRegistry。 Begin reg :=。 Try := HKEY_LOCAL_MACHINE。 If ((csRegEventLog, false)) Then Begin If (aRegister) Then Begin If ((csServiceName, true)) Then Begin (39。 EventMessageFile39。 , ParamStr(0))。 (39。 TypesSupported39。 , EVENTLOG_ERROR_TYPE OR EVENTLOG_WARNING_TYPE OR EVENTLOG_INFORMATION_TYPE)。 End。 End Else (csServiceName)。 End。 Finally。 End。 End。 procedure (Sender: TService)。 begin RegEventLog(true)。 end。 procedure (Sender: TService)。 b。阅读剩余 0%
本站所有文章资讯、展示的图片素材等内容均为注册用户上传(部分报媒/平媒内容转载自网络合作媒体)，仅供学习参考。
用户通过本站上传、发布的任何内容的知识产权归属用户或原始著作权人所有。如有侵犯您的版权，请联系我们反馈本站将在三个工作日内改正。