unit gif;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, OleCtrls, SHDocVw, HTTPApp;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Button2: TButton;
    WebDispatcher1: TWebDispatcher;
    WebBrowser1: TWebBrowser;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure ShowGIF(GIFFileName: String );

  private
    { Private declarations }

  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
TheText:Pchar;
TheLen:Integer;
begin

TheLen:=GetWindowTextLength(Form1.Handle); //獲取當前窗體名稱
GetMem(TheText,TheLen); //分配內(nèi)存
GetWindowText(Form1.Handle,TheText,TheLen+1); //定位窗體 獲取窗體標題和長度
Edit1.Text:=string(TheText); //在編輯框中顯示
FreeMem(TheText); //釋放內(nèi)存
end;


procedure TForm1.Button2Click(Sender: TObject);
begin
SetWindowText(Form1.Handle,Pchar(Edit1.text)); //設(shè)置窗體名稱
 ShowGIF('g:\fsd.gif');
end;

procedure TForm1.ShowGIF( GIFFileName : String );

var

TargetFrameName,PostData,Heads,Flags : OleVariant;

URL : widestring;

begin

TargetFrameName := '';{指定Frame的空字符串時,

則在當前Frame中打開動畫文件}

PostData := false;{不發(fā)送數(shù)據(jù)}

Heads := '';{Header信息為空}

Flags := 0;{Flags設(shè)為0}

URL := GIFFileName;

with form1.webbrowser1 do{在指定窗口中的

IE瀏覽器控件中顯示動畫}

begin

navigate(URL,Flags,TargetFrameName

,PostData,Heads);{顯示動畫文件}

end;

end;


end.