Delphi
文章平均质量分 51
cwpoint
这个作者很懒,什么都没留下…
展开
-
Delphi WebBrowser 使滚动条滚动到底部
<br />网上的代码不好使,下面是经过改正的:<br />(webbrowser1.Document as IHTMLDocument2).parentWindow.scrollTo(0,((webbrowser1.Document as IHTMLDocument2).body as HTMLBody).scrollHeight);原创 2011-05-10 16:23:00 · 3452 阅读 · 0 评论 -
Delphi 获取Internet缓存文件 -- FindFirstUrlCacheEntry FindNextUrlCacheEntry
<br />下面是我写的一个函数,把所有的缓存文件路径添加到一个字符串列表中,直接看代码,带了注释。另外还有删除缓存等等大家自己到msdn找找。<br /> <br /> <br />需要引用WinInet<br /> // 获取Internet缓存文件function GetCacheFilePath(): TStringList;var pEntryInfo: PInternetCacheEntryInfo; lCacheDir, lEntrySize, lLastError: Ca原创 2011-05-22 23:43:00 · 3214 阅读 · 0 评论 -
Delphi 消息拦截篇 -- 之拦截系统关机、重启、注销
<br />最近做的项目中需要拦截系统关机,因为我在FormCloseQuery中总是把CanClose设为False,不拦截关机的话直接导致系统中的关机、重启、注销都失效了!导致用户不能关机!(提示用户说要关机的话直接按电源^^)这样肯定是不行的!<br /> <br /> <br />要完成这个功能只需要拦截到WM_QUERYENDSESSION消息就万事Ok!<br />关键在于怎么在Delphi下拦截WM_QUERYENDSESSION消息呢?Delphi也是很强悍的,当然不用直接去SetWindo原创 2011-04-05 00:47:00 · 8779 阅读 · 2 评论 -
Delphi 获取CPUID和制造商
<br />网上C++代码转的<br />能正确获取<br /> <br /> <br />//获取CPUIDfunction GetCpuId(): UINT;var bException: BOOL; szCpu: array [0 .. 15] of BYTE; uCpuID: UINT;begin Result := 0; ZeroMemory(@szCpu, sizeof(szCpu)); uCpuID := 0; bException :=原创 2011-04-10 22:34:00 · 3222 阅读 · 0 评论 -
Delphi 有关日期时间的函数,以及StrToDateTime函数在不同系统出现错误的解决方案
Delphi提供了很多关于时间和日期的函数,非常方便。引用uses DateUtils 但是有时候一个疏忽导致你不知道错在哪里。类似Java的Date().getTime()函数,它返回1970年1月1日8点(UTC+8)到当前时间之间的毫秒数。在Delphi中用MinutesBetween函数就可以得到2个时间相差的毫秒数了。首先必须将1970年1月1日8点转换为TDat原创 2011-06-03 17:27:00 · 14919 阅读 · 3 评论 -
再谈Delphi关机消息拦截 -- 之控制台程序 SetConsoleCtrlHandler
<br />这里补充一下第一篇文章中提到的拦截关机消息<br />Delphi消息拦截:http://blog.csdn.net/cwpoint/archive/2011/04/05/6302314.aspx<br /> <br />下面我再介绍一种在控制台程序中拦截关机消息的方法。<br />使用SetConsoleCtrlHandler函数。经过测试这个函数不能取消操作。<br /> program Project1;{$APPTYPE CONSOLE}uses SysUtils,原创 2011-04-29 22:37:00 · 3540 阅读 · 0 评论 -
Delphi 获取当前目录
<br />用delphi自带的几个函数<br /> <br />ExtractFilePath //路径后面带有 "/" (不管是在磁盘根目录还是哪里)ExtractFileName //文件名ExtractFileExt //扩展名<br />例子:<br /> <br />ExtractFilePath(ParamStr(0)); // C:/ExtractFileName(ParamStr(0)); // Project.exeExtractFileExt(ParamS原创 2011-04-29 02:07:00 · 7502 阅读 · 0 评论 -
Delphi WebBrowser 去除滚动条和边框
<br />去掉滚动条只对某些网页起作用,比如百度的页面就不知道为什么去不掉。<br />下面是用Webbrowser显示图片时去掉边框和滚动条的方法,也适用于部分网页,实际上就是设置网页CSS。<br />在DocumentComplete事件中加入下列代码即可。<br /> ((WebBrowser1.Document as IHTMLDocument2).body as HTMLBody).scroll := 'no'; (WebBrowser1.Document as IHTMLDocume原创 2011-05-09 16:56:00 · 6520 阅读 · 0 评论 -
Delphi 获取系统相关路径 -- SHGetSpecialFolderLocation
参数参见Msdn:http://msdn.microsoft.com/en-us/library/bb762494(v=vs.85).aspx引用uses ShlObj 传递相关参数即可,如传递CSIDL_WINDOWS可获取Windows目录路径:ShowM原创 2011-05-28 14:21:00 · 2294 阅读 · 0 评论