怎样save图形文件(50分)

我截却屏幕
怎样save成bmp图形文件在磁盘上

flash.dpr

program flash;

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

{$R *.res}

var
Bmp1:TBitmap;
ShockwaveFlash2: TShockwaveFlash; // 声明变量

begin
Application.Initialize;
Application.Run;

Bmp1:=TBitmap.create;
ShockwaveFlash2:= TShockwaveFlash.CreateParented(GetDesktopWindow());
ShockwaveFlash2.LoadMovie(0,'c:/top.swf');
Bmp1.Width:=ShockwaveFlash2.width;
Bmp1.Height:=ShockwaveFlash2.Height;
ShockwaveFlash2.PaintTo(Bmp1.Canvas,0,0);
Bmp1.SaveToFile('c:/temp.bmp');

// Application.Initialize;
// Application.CreateForm(TForm1, Form1);
// Application.Run;
end.

哈哈，xusong168，你太了解我的心意了
不过，我想用个tsavedialog控件，更人性化一点
怎么做，以下代码不能实现：
procedure TForm1.FormCreate(Sender: TObject);
begin
Bmp:=TBitmap.Create;
Flash.Movie:='E:/flash/MTV/deepbreathe.swf';
Bmp.Width:=Flash.Width;
Bmp.Height:=Flash.Height;
Flash.PaintTo(Bmp.Canvas,0,0);
Flash.Play;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
Bmp.Free;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
if SAD.Execute then
if SAD.FileName<>'' then
Bmp.SaveToFile(SAD.FileName);
end;

我看可以
上面那个答案让我在这里拿了1000分呐！
http://www.delphibbs.com/delphibbs/dispq.asp?LID=1294809

接受答案了.