他山之石 可以攻玉

NodeIndentStr属性决定子节点的后移位置，缺省值为二个空格,最多可选到八个空格。 我一般使用默认选项，当然我们也可以使用TAB字符。 //xmldoc.NodeIndentStr := #09; xmldoc.Options := [doNodeAutoIndent]; 这个属性只有在选项里设置了doNodeAutoIndent标识为真(True)后才有效，这个标识的缺省状态为非真(False)。

将该段代码放置在dpr文件中，在闪屏窗体上添加定时器，并将初始化的代码全部写在定时器的 函数中，不要将代码写在窗体的Create函数或Show函数中。在函数结尾将定时器置为False。 SplashForm := TSplashForm.Create(Application); SplashForm.Show; SplashForm.Update; 等待闪屏程序结束： while SplashForm.SplashTimer.Enabled do Application.processMessages; Sleep(2000); SplashForm.Hide; Splashform.Free;

这个错误一般会发生在过早调用ADO,XML的时候，需要在你调用的时候加上下面这段代码 ： 引用ActiveX单元 Initialization CoInitialize(Nil); Finalization CoUnInitialize;

如何利用脚本文件来控制SQL Agent服务的运行? 1.在查询分析器理启动或停止SQL Agent服务* {*--启动SQL Agent服务,下面的方法同样可以通过命令行来执行--} use master go xp_cmdshell 'net start SQLSERVERAGENT' {*--停止SQL Agent服务--} use master go xp_cmdshell 'net stop SQLSERVERAGENT' {*--将服务的启动从手工方式改为自动启动方式,关于SCM的用法可以通过命令输入SCM来获取--} exec xp_cmdshell 'scm -action 7 -service SQLSERVERAGENT -svcstarttype 2'

将该段代码放置在dpr文件中，记住要引用Windows单元。 Application.Title := 'Application Name'; //两处'Application Name'要相一致 hMutex:=CreateMutex(nil,false,'Application Name'); if GetLastError = Error_Already_Exists then begin Application.MessageBox('程序已经启动,请检测!','警告',MB_OK); ReleaseMutex(hMutex); Application.FreeOnRelease; end;