https://blog.youkuaiyun.com/cwpointzh-cnhttps://blog.youkuaiyun.com/https://blog.youkuaiyun.com/cwpoint/article/details/6526653https://blog.youkuaiyun.com/cwpoint/article/details/6526653cwpointSun, 05 Jun 2011 09:44:00 +0800https://blog.youkuaiyun.com/cwpoint/article/details/6525213https://blog.youkuaiyun.com/cwpoint/article/details/6525213cwpointFri, 03 Jun 2011 17:27:00 +0800https://blog.youkuaiyun.com/cwpoint/article/details/6451781https://blog.youkuaiyun.com/cwpoint/article/details/6451781cwpointSat, 28 May 2011 14:21:00 +0800https://blog.youkuaiyun.com/cwpoint/article/details/6439649https://blog.youkuaiyun.com/cwpoint/article/details/6439649cwpointMon, 23 May 2011 14:31:00 +0800https://blog.youkuaiyun.com/cwpoint/article/details/6438668https://blog.youkuaiyun.com/cwpoint/article/details/6438668cwpointSun, 22 May 2011 23:43:00 +0800下面是我写的一个函数，把所有的缓存文件路径添加到一个字符串列表中，直接看代码，带了注释。另外还有删除缓存等等大家自己到msdn找找。
 
 
需要引用WinInet
 // 获取Internet缓存文件 function GetCacheFilePath(): TStringList; var pEntryInfo: PInternetCacheEntryInfo; lCacheDir, lEntrySize, lLastError: Ca]]>https://blog.youkuaiyun.com/cwpoint/article/details/6409519https://blog.youkuaiyun.com/cwpoint/article/details/6409519cwpointTue, 10 May 2011 16:23:00 +0800网上的代码不好使，下面是经过改正的：
(webbrowser1.Document as IHTMLDocument2).parentWindow.scrollTo(0,((webbrowser1.Document as IHTMLDocument2).body as HTMLBody).scrollHeight);]]>https://blog.youkuaiyun.com/cwpoint/article/details/6406983https://blog.youkuaiyun.com/cwpoint/article/details/6406983cwpointMon, 09 May 2011 16:56:00 +0800去掉滚动条只对某些网页起作用，比如百度的页面就不知道为什么去不掉。
下面是用Webbrowser显示图片时去掉边框和滚动条的方法，也适用于部分网页，实际上就是设置网页CSS。
在DocumentComplete事件中加入下列代码即可。
((WebBrowser1.Document as IHTMLDocument2).body as HTMLBody).scroll := 'no'; (WebBrowser1.Document as IHTMLDocume]]>https://blog.youkuaiyun.com/cwpoint/article/details/6373025https://blog.youkuaiyun.com/cwpoint/article/details/6373025cwpointFri, 29 Apr 2011 22:37:00 +0800这里补充一下第一篇文章中提到的拦截关机消息
Delphi消息拦截：http://blog.youkuaiyun.com/cwpoint/archive/2011/04/05/6302314.aspx
 
下面我再介绍一种在控制台程序中拦截关机消息的方法。
使用SetConsoleCtrlHandler函数。经过测试这个函数不能取消操作。
 program Project1; {$APPTYPE CONSOLE} uses SysUtils,]]>https://blog.youkuaiyun.com/cwpoint/article/details/6370985https://blog.youkuaiyun.com/cwpoint/article/details/6370985cwpointFri, 29 Apr 2011 02:07:00 +0800用delphi自带的几个函数
 
ExtractFilePath //路径后面带有 "/" (不管是在磁盘根目录还是哪里) ExtractFileName //文件名 ExtractFileExt //扩展名
例子：
 
ExtractFilePath(ParamStr(0)); // C:/ ExtractFileName(ParamStr(0)); // Project.exe ExtractFileExt(ParamS]]>https://blog.youkuaiyun.com/cwpoint/article/details/6368042https://blog.youkuaiyun.com/cwpoint/article/details/6368042cwpointWed, 27 Apr 2011 22:08:00 +0800我需要获取进程的命令行，也懒得用那些工具了，搜索一下突然找到了一个很强大的命令：wmic
 
msdn：http://msdn.microsoft.com/en-us/library/aa394531(v=vs.85).aspx
 
下面的例子就是查看进程的命令行以及进程id和父进程id
wmic process where caption="explorer.exe" get ParentProcessId,ProcessId,CommandL]]>https://blog.youkuaiyun.com/cwpoint/article/details/6314254https://blog.youkuaiyun.com/cwpoint/article/details/6314254cwpointSun, 10 Apr 2011 22:34:00 +0800网上C++代码转的
能正确获取
 
 
//获取CPUID function GetCpuId(): UINT; var bException: BOOL; szCpu: array [0 .. 15] of BYTE; uCpuID: UINT; begin Result := 0; ZeroMemory(@szCpu, sizeof(szCpu)); uCpuID := 0; bException := ]]>https://blog.youkuaiyun.com/cwpoint/article/details/6302314https://blog.youkuaiyun.com/cwpoint/article/details/6302314cwpointTue, 05 Apr 2011 00:47:00 +0800最近做的项目中需要拦截系统关机，因为我在FormCloseQuery中总是把CanClose设为False，不拦截关机的话直接导致系统中的关机、重启、注销都失效了！导致用户不能关机！(提示用户说要关机的话直接按电源^^)这样肯定是不行的！
 
 
要完成这个功能只需要拦截到WM_QUERYENDSESSION消息就万事Ok!
关键在于怎么在Delphi下拦截WM_QUERYENDSESSION消息呢？Delphi也是很强悍的，当然不用直接去SetWindo]]>