笨笨的机器人

<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 CLOSED WAIT',nil,0, Ha

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