关于在VC下面的彻底过滤IE的解决文章：http://blog.csdn.net/111222/archive/2002/02/09/7255.aspx对于Delphi的实现，有一个pas单元：unit IeConst;interfaceuses ShlObj, Activex, Windows;　constIID_IDocHostUIHandler: TGUID = {bd3f23c0-d43

function ExtractHtmlTagValues(const HtmlText: string; TagName, AttribName: string; var Values: TStrings): integer; function FindFirstCharAfterSpace(const Line: string; StartPos: integer): Integer; var

Whenever you use the thumbnail view in the shell, the shell will display a small preview of the file; in order to produce the preview the shell uses the IExtractImage interface wich is declared as fol

function SetOffline:Boolean;    //设定浏览器为离线状态var  ConInfo:INTERNET_CONNECTED_INFO;begin  ConInfo.dwConnectedState := INTERNET_STATE_DISCONNECTED_BY_USER;  ConInfo.dwFlags := ISO_FORCE_DISCONNECTED;  In

2005年8月7日凌晨晚上想到实现横向滚动是否可以通过右键+滚轮来实现，首先是想通过onscroll事件的监控，但是怎么都没法监控到onscroll事件，后来发现需要链接到HTMLWindowEvents2事件中，监控HTMLWindowEvents2中的onscroll事件，没办法，在DoDocumentComplete中加入了链接到HTMLWindowEvents2中的代码。但是这样有一个问题

 procedure GenerateJPEGfromBrowser(browser: iWebBrowser2;                                  jpegFQFilename: string; srcHeight:                                  integer; srcWidth: integer;          

自己瞎想出来的，每个字符都有一个权值，字符串前面1/3的权值是3，中间1/3是2，最后1/3是1。总权值就是所有字符的权值相加。然后两个字符串从开始一个一个字符的对比，相同的就加上这个字符的权值。最后得到的权值乘以100去除总权值，得到的就是一个0-100的基本权值。然后用：(两个字符串长度差 * 40) div 短字符串长度得到一个差值（如果 两个字符串长度差 > 短字符串长度 直接设差值为40

unit Unit1;{$WARN SYMBOL_PLATFORM OFF}interfaceuses  Windows, ActiveX, Classes, ComObj, shdocvw, mshtml;type  TpopBlocker = class(TComObject, IDispatch, IObjectWithSite)  protected    function GetType

frmUpdate = class(TForm,IBindStatusCallback)    ImgTop: TImage;    LblTop: TLabel;    SpdBtnClose: TSpeedButton;    Bevel1: TBevel;    plStatus: TPanel;    plInfo: TPanel;    btnCancel: TFlatSpeedButt

获得当前系统的Tcp所有打开端口及IP地址 提交日期:2003-11-22 作者:cjsh  关键词:TCP 端口 IP地址 Ip Helper API  //GetTcpTable函数单元unit untIPHLPAPI;interfaceusesWindows, sysutils, WinSock;typeEIpHlpError = class(Exception);//-----------

http://community.csdn.net/Expert/topic/3923/3923699.xml?temp=.3165094调用SHGetFileInfo函数，假设sExt是你的文件名。var  sfi:TSHFileInfo;  i:Integer;begin  //获得文件的扩展名  i:= slIcon.IndexOf(sExt);  if i>-1 then    Resul

localname:本地磁盘号 如：Y: Z: remotename: 共享路径 如 ://server/shareusername : 用户名password: 密码function connectserver(localname: string; remotename: string; username: string; password: string): boolean;var  NetS

使用webbrowser控件，浏览页面时，点右键查看属性时程序死掉，表现为无法点击弹出的属性窗口，也无法点击程序，回车键也不行，但是按esc可以关闭属性窗口。已知解决方法：设置程序form的border不为bsnone,就正常。但是现在程序必须使用无边框窗体。用下面的代码先修改一下窗体的Style就可以了：var  x:Integer;begin  x := GetwindowLong(form1

procedure TForm1.Button1Click(Sender: TObject);var  xWin:TShellWindows;  i : integer;  x1,x2,x3 : olevariant;begin  x1 := {30D02401-6A81-11D0-8274-00C04FD5AE38};  x2 := True;  x3 := 0;  xWin := TShe

在webbrowser中显示的网页，选中其中文字进行复制好像不起作用，不管是用鼠标右键还是直接CTRL-C，都没有复制到剪切板去，无法粘贴出来。在窗体的OnCreate事件中加入如下代码：OleInitialize(nil);在OnClose事件中加入代码：OleUninitialize;procedure TForm1.FormCreate(Sender: TObject);begin  Ole

今天的重点在如何将页面中的img提取出来然后生成base64编码的字符串。昨天写的URLLocalFileName函数可以根据一个URL获得其本地的文件名，今天写了一个base64EncodeResource函数可以将url指向的资源编码到base64的函数。这个函数需要判断url指向的资源在本地有没有缓存，如果有的话就打开并获取文件内容然后编码。如果没有的话就创建一个TIdHTTP对象，下载这个

procedure TForm1.Button1Click(Sender: TObject);var  CF_HTML : UINT;  clpHandle : THandle;  cf : TClipboard;begin  CF_HTML := registerclipboardformat(HTML Format);  clpHandle := GetClipboardData(CF_H

{ Author: Cosmin Pîrlitu E-mail: cosmin.pirlitu@lush.ro    The following code uses one ListBox (lbApps) and one button (btnGetApps) placed on the form (frmMain). When the user clicks on the "Get App L