一个微小的软件发布 (10分)

一个微小的软件发布
http://www.bwkj.net/down/down2/WCBBN.exe
做的不好，多多包涵！

gz

谢谢关注，已经研究出来了！

可以发给我看看如何实现的吗，我也正在找，谢谢。

easy
just a script

cool baby请回答我以下问题：
1）我想把收藏夹的目录和文件象微软的“收藏”菜单一样读到
我自己的软件中菜单，该如何处理这种“无数层结点读写原代码”？
2）再把这些目录和文件写如一个文本文件，又该怎么处理这种
“无数层结点读写原代码”？
如果大家看不懂我说的意思，可以到先下载《文档管理助手》
http://www.yoft.net/chinese/docexp/docexp474.exe
后，看看他的“收藏”菜单便知道厉害，谁能做的出来！


2)很多一定都用过FOXMAIL，这不用我多说，
然而象FOXMAIL那样左边的TREEVIEW可以添加任意多层结点
，点击结点右边的LISTVIEW显示相应内容！
在这样的数据结构的基础上如何实现把这些数据
保存到文件，下次启动又能正确的重新读入这些结点？

可以发给我看看如何实现的吗，我也正在找，谢谢。

一）首先建立一个
OLE Automation对象，然后在脚本中调用该对象，并将页面信息传递对象处理。下面
通过Delphi建立对象说明：
1)打开Delphi，点击菜单： 文件|新建 ，选择窗口中的ActiveX标签，在列表中
选择ActiveX Library
图标后按确定键，这样就新建了一个Active Library工程。然后将工程文件保存为
SuperMarketYouMenu.dpr
2)点击菜单： 文件|新建 ,选择窗口中的ActiveX标签，在列表中选择
Automation Object 图标后按
确定键，然后在 Automation Object Wizard 窗口中的CoClass Name栏中输入
biosIEMenu1后按确定键。
这时会弹出SuperMarketYouMenu.tlb的Type Library窗口，左边是对象和属性等的列表
窗口，右边是相应的选
项窗口。在其中已经加入了IbiosIEMenu1接口。
二） 现在给接口添加一个AddURL方法。
1)首先选择Type Library列表中的IbiosIEMenu1项，
2)然后点击Type Library
窗口上面的 New Method 按钮添加一个方法，将该方法的Name属性改为AddURL。
3)再点击Parameters标签到参数设定页，添加两个参数：URL和Info，属性都设置为BSTR，设置好的Type Library窗口如图所示：
4)关闭设置窗口回到Delphi，点击save all按钮保存文件，现在biosIEMenu1对象建立完毕了.


三）选择菜单上的Build | Build

SuperMarketYouMenu项编译生成SuperMarketYouMenu.dll。
下面是注册对象，在资源管理器中将Windows/system目录下的Regsvr32.exe拷贝到SuperMarketYouMenu.dll所在目录中，然后将SuperMarketYouMenu.dll图标拖到Regsvr32.exe上放开，这时
Regsvr32.exe就会弹出对话框提示对象注册成功。

示例：http://www.bwkj.net/down/WebHeroCellularN.exe

还是不太明白，对象是建立的但如何使用，说具体一点可以吗？谢谢

1）在当前目录下建立一个临时TEMP。TXT把文件把VB SCRIPT传递
进来的字符串存入此文件
2）启动你的软件（软件的位置可以用INI文件定位，在DLL中用TIniFile类
读取你的软件位置，application.exename），弹出添加对话框。
3)删除临时文件！

在当前目录下建立一个临时TEMP。TXT把文件把VB SCRIPT传递
进来的字符串存入此文件

不太懂意思

unit Unit1;

{$WARN SYMBOL_PLATFORM OFF}

interface

uses
ComObj, ActiveX,IniFiles,
SuperMarketYouMenu_TLB, StdVcl,windows,forms;

type
TbiosIEMenu1 = class(TAutoObject, IbiosIEMenu1)
protected
procedure AddUrl(const URL, Info: WideString); safecall;
{ Protected declarations }
end;
implementation

uses ComServ;

procedure TbiosIEMenu1.AddUrl(const URL, Info:WideString);
var
str1,str2,str3:string;
myif:Tinifile;
begin
str1:=URL;
str2:=Info;
myif:=Tinifile.create(extractfilepath(application.exename)+'temp.ini');
myif.writestring('tempstr','url',str1);
myif.writestring('tempstr','info',str2);
myif:=Tinifile.create('myapppath.ini');
str3:=myif.readstring('myapppath','path');
WinExec(pchar(str3),SW_SHOWNORMAL);

end;

initialization
TAutoObjectFactory.Create(ComServer, TbiosIEMenu1, Class_biosIEMenu1,
ciMultiInstance, tmApartment);
end.