Delphi
文章平均质量分 77
jetmel
这个作者很懒,什么都没留下…
展开
-
文件名路径
<br /><br />在做项目的时候,对文件名路径之类的函数有点混,上网查查,总结下来:<br />ExtractFileDrive :返回完整文件名中的驱动器,如"C:" <br /> ExtractFilePath :返回完整文件名中的路径,最后带“/” ,如"C:/test/"<br /> ExtractFileDir :返回完整文件名中的路径,最后不带“/” , 如"C:/test"<br /> ExtractFileName: 返回完整文件名中的文件名称 ( 带扩展名) ,原创 2011-05-04 16:18:00 · 249 阅读 · 0 评论 -
让软件自动适应显示器的分辨率
<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原创 2011-05-04 16:32:00 · 3024 阅读 · 1 评论 -
自动弹出光驱
<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原创 2011-05-04 16:36:00 · 314 阅读 · 0 评论 -
犯了一个可笑的错误(数据库未Post)
<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').原创 2011-05-04 16:43:00 · 268 阅读 · 0 评论