笨笨的机器人

<br /><br />在做项目的时候，对文件名路径之类的函数有点混，上网查查，总结下来：<br />ExtractFileDrive ：返回完整文件名中的驱动器，如"C:"<br />ExtractFilePath：返回完整文件名中的路径，最后带“/”，如"C:/test/"<br />ExtractFileDir：返回完整文件名中的路径，最后不带“/” ,如"C:/test"<br />ExtractFileName:返回完整文件名中的文件名称 (带扩展名)，

<br />一个代码段让软件自动适应显示器的分辨率：<br /> <br />const<br />ScreenHeight: integer = 1280;<br />ScreenWidth: integer = 800;<br />var<br />x, y: LongInt;<br />begin<br />               self.scaled := true;<br />               //窗体可以缩放<br />               x := ge

<br /><br />弹出或关闭cd-rom 函数（要加入 MMSystem 单元）<br />procduere Eject(YesOrNo: Boolean);<br />begin<br />if YesOrNo then <br />mciSendstring('SET CDAUDIO DOOR OPEN WAIT',nil,0,Handle)<br />else <br />mciSendstring('SET CDAUDIO DOOR CLOSEDWAIT',nil,0, Ha

<br /><br />代码如下：<br />……<br />CAD.Active:=true;<br />CAD.Append;<br />if ExtractFileName(opcad.FileName)<>nullthen<br />CAD.Fields.FieldByName('Title').AsString:=ExtractFileName(opcad.FileName)//文件名<br />else<br /> CAD.Fields.FieldByName('Title').