iehelperform.pas

为IE增加一个包括Flash插件的源代码。

{*************************************************
  Copyright (C), 2004, 风车工作室.
  作者: 追风逐月
  版本: 1.0
  日期: 2005年04月11日
  描述: 
  修改历史: 
    追风逐月     2005/04/11      1.0        创建该文件
    ...
*************************************************}

unit IehelperForm;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ImgList, ComCtrls, ToolWin, shellapi, WinInet, URLMon;

type
  THelperForm = class(TForm)
    ImageList1: TImageList;
    ToolBar1: TToolBar;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    SaveDialog: TSaveDialog;
    procedure FormCreate(Sender: TObject);
    procedure ToolButton1Click(Sender: TObject);
    procedure ToolButton2Click(Sender: TObject);

  private
    { Private declarations }
    procedure WMMouseActivate(var Msg: TWMMouseActivate); message
      WM_MOUSEACTIVATE;
    procedure WmNCHitTest(var Msg: TWMNCHitTest); message WM_NCHITTEST;
    procedure GetFlash(url: string);

  private
    { Private declarations }
  public
    { Public declarations }
    src: string;
  end;

implementation

{$R *.DFM}

uses _IEBrowserHelper;

{*************************************************
  函数名: THelperForm.GetFlash
  描  述: 根据URL获取Flash对象
  参  数: url: string
  返回值: None
 *************************************************}
procedure THelperForm.GetFlash(url: string);
var
  D: Cardinal;
  T: PInternetCacheEntryInfo;
  LocalFileName: pchar;
begin
  D := 0;
  T := nil;
  GetUrlCacheEntryInfo(PChar(Url), T^, D);
  Getmem(T, D);
  try
    //先检测缓存中是否有，如果有则直接去缓存中的对象，没有则下载
    if (GetUrlCacheEntryInfo(PChar(Url), T^, D)) then
    begin
      LocalFileName := T^.lpszLocalFileName;
      SaveDialog.FileName := ExtractFileName(LocalFileName);
      if SaveDialog.Execute then
        CopyFile(LocalFileName, pchar(SaveDialog.FileName), false);
    end
    else
    begin
      SaveDialog.FileName := ExtractFileName(url);
      if SaveDialog.Execute then
      try

        if not Succeeded(UrlDownloadToFile(nil, Pchar(url),
          Pchar(SaveDialog.FileName), 0, nil)) then
          ShowMessage('保存失败！');
      except
      end;
    end;

  finally
    Freemem(T, D);
  end;
end;

procedure THelperForm.WMMouseActivate(var Msg: TWMMouseActivate);
begin
  Msg.Result := MA_NOACTIVATE;
end;

procedure THelperForm.WmNCHitTest(var Msg: TWMNCHitTest);
begin
  DefaultHandler(Msg);
end;

procedure THelperForm.FormCreate(Sender: TObject);
begin
  self.Width := 46;
  self.Height := ToolBar1.Height;
end;

procedure THelperForm.ToolButton1Click(Sender: TObject);

begin
  GetFlash(src);
end;

procedure THelperForm.ToolButton2Click(Sender: TObject);
begin
 ShowMessage('风车工作室出品'#10#13'http://www.xcolor.cn/windmill'#10#13'仅供参考学习！');
end;

end.