高手快来撕榜!先拿300作定金。(300分)

问题1：怎样实现VB中如createobject("ADODB.CONNECTION")之类的语句？要动态引入，也
不要用GUID。
问题2：引入之后如何通过字符串定位对象中的属性，方法(还有其参数)，如何执行内中方
法？最好是PASCAL的，实在不行也可以用ASM。
问题3：还没有想好，会想出来的。。。

下面以word为例
要在uses中加入Variants
function TMainForm.Openword: Boolean;
var
fword:Variant；
Curword: string;
begin
Curword := GetRegString(HKEY_CLASSES_ROOT, '/word.Application/CurVer', '', '');
if Curword = '' then
begin
Application.MessageBox('请先安装 word 97 或 word 2000！',
PChar(self.Caption), MB_OK + MB_ICONSTOP);
Result := False;
Exit;
end;

if (Curword <> 'word.Application.8') and (Curword <> 'word.Application.9') then
begin
Curword := GetRegString(HKEY_CLASSES_ROOT, '/word.Application.8', '', '');
if Curword = '' then
begin
Curword := GetRegString(HKEY_CLASSES_ROOT, '/word.Application.9', '', '');
if Curword <> '' then
Curword := 'word.Application.9';
end
else
begin
Curword := 'word.Application.8';
end;

if Curword = '' then
begin
Application.MessageBox('无法运行 word 97 或 word 2000，' + #13#10
+ '请检查 word 97 或 word 2000 是否已经正确安装。',
PChar(self.Caption), MB_OK + MB_ICONSTOP);
Result := False;
Exit;
end;
end;

try
Fword := CreateOleObject(Curword);
if VarIsEmpty(Fword) then
begin
Application.MessageBox('无法运行 word 97 或 word 2000，' + #13#10
+ '请检查 word 97 或 word 2000 是否已经正确安装。',
PChar(self.Caption), MB_OK + MB_ICONSTOP);
Result := False;
Exit;
end;

except
Application.MessageBox('无法运行 word 97 或 word 2000，' + #13#10
+ '请检查 word 97 或 word 2000 是否已经正确安装。',
PChar(self.Caption), MB_OK + MB_ICONSTOP);
Result := False;
Exit;
end;

end;

你看看Delphi下的这些例子吧。C:/Program Files/Borland/Delphi6/Demos/ActiveX/OleAuto

很简单啊
var
X:Variant;
begin
X:=CreateOleObject('ADODB.Connection');
X.方法名;
end;
对于这种方式的调用Delphi是后连接,就是说编译时不检查方法名,运行时检查
至于方法你可以用MS 的 COM.exe查看

antic_ant：我的程序不能使用注册表(不是不会，是程序的要求)有别的办法吗？
kindly：有没有在程序中直接发现并直接调用的办法？
问题3：送一套<新仙剑奇侠传>给女孩子作生日礼物是否算个好主意？

没有
问题三:是个好主意,不过你要陪她一起玩我想这才是你的真正目的吧,嘿嘿

》》有没有在程序中直接发现并直接调用的办法？
没有，查msdn吧，很全的还是中文
》》送一套<新仙剑奇侠传>给女孩子作生日礼物是否算个好主意？
看女方喜不喜欢这种类型的了，感觉《新仙剑奇侠传》不如老仙剑好

泡妞的方法有很多种,灵活运用好了,总之一句话,投其所好,胆大心细,呵呵

真的不能直接调用啊!恳请大家再想想办法!现在是华山一条路，没有办法调用我的这个软件
就要大打折扣了!

问题大半已自己解决，谢谢!