关于webbrowser和TreeView节点的三个棘手问题!!!!!!!!!!!!!!!!!!!!!!!!!!!!!(20分)

问题1.

webbrowser打开的flash如何按原大小观看而不让它随webbrowser大小改变？

问题2.

webbrowser如何保存flash文件？

问题3.

TreeView节点的问题：（如图）

|_www.abc.com
| |__abc.swf
| |__c:/abc.swf
|
|_www.fgh.com
|__fgh.swf
|__d:/fgh.swf

由于第二层(就是abc.swf那层)的文件名没有包含完整路径，不能用

WebBrowser1.Navigate(TreeView1.Selected.Text)打开

我想去掉第三层，能把第三层的路径存在第二层的什么属性里么？

（前提不改变第二层的Text）

如果去不掉第三层，当我点击第二层的时候,

怎么获得第三层路径打开文件.

3、可以把路径存放到treenode的data指针里，打开时再把路径加上。

请问节点data属性怎样保存数据？？
还有怎么读出来，谢谢了

delphi的帮助文件内容，保存、读取treenode的data数据。
The following code defines a record type of TMyRec and a record pointer type of PMyRec.

type
PMyRec = ^TMyRec;
TMyRec = record
FName: string;
LName: string;
end;

Assuming these types are used, the following code adds a node to TreeView1 as the last sibling of a specified node. A TMyRec record is associated with the added item. The FName and LName fields are obtained from edit boxes Edit1 and Edit2. The Index parameter is obtained from edit box Edit3. The item is added only if the Index is a valid value.

procedure TForm1.Button1Click(Sender: TObject);

var
MyRecPtr: PMyRec;
TreeViewIndex: LongInt;
begin
New(MyRecPtr);
MyRecPtr^.FName := Edit1.Text;
MyRecPtr^.LName := Edit2.Text;
TreeViewIndex := StrToInt(Edit3.Text);
with TreeView1 do
begin
if Items.Count = 0 then
Items.AddObject(nil, 'Item' + IntToStr(TreeViewIndex), MyRecPtr)
else if (TreeViewIndex < Items.Count) and (TreeViewIndex >= 0) then

Items.AddObject(Items[TreeViewIndex], 'Item' + IntToStr(TreeViewIndex), MyRecPtr);
end;
end;

After an item containing a TMyRec record has been added, the following code retrieves the FName and LName values associated with the item and displays the values in a label.

procedure TForm1.Button2Click(Sender: TObject);

begin
Label1.Caption := PMyRec(TreeView1.Selected.Data)^.FName + ' ' +
PMyRec(TreeView1.Selected.Data)^.LName;
end;

这个我看了，怎样保存一段flash？？？？

多人接受答案了。