木瓜的专栏

函数名：IsDiskInDrive(cDrive) 缩写：IsDi 检查指定磁盘是否就绪，如果是软盘，可以用来检查是否有盘在软驱里。 返回值： 逻辑值，为.T.时表示就绪 参数： cDrive：指定磁盘驱动器 示例代码 Set Library To myFll ?"磁盘A有盘吗？"+Iif(IsDiskInDrive("A:

函数名：GetVolumeNumber(cDrive) 缩写：GetV 读取指写磁盘的卷标 返回值： 字符型，指写磁盘的卷标 参数： cDrive：需要读取卷标的磁盘 示例代码 Set Library To myFll ?GetVolumeNumber("C:\")&&显示C:盘的卷标 Set Library To

函数名：ComOpen(nPort[,Setting]) 缩写：como 打开串口，返回一个句柄。 返回值： 如果打开成功，返回串口句柄，否则返回空串。 参数： nPort:整型，端口，如1代表com1 [Setting]，端口参数设置，默认为"9600,n, 8,1"，等同于mscomm控件中的设置 示例代码 请参阅ComWrite函

这是很久以前写的代码，近期有朋友在问，就顺序发出来 服务程序运行于后台，没有界面，随系统启动，用VFP编写服务程序其实也很简单，下面是编写服务程序过程可能会用到的： 1.启动，停止一个已注册的服务程序 ServiceRun() *下面代码演示了停止并启动SQL服务 #define SERVICE_CONTROL_START 0x00000000