那位大哥能帮我看看这个问题~~~~谁能帮我我就让谁干。

Question

//运行出错
procedure uploadto;exports;
var
  app: Variant;
begin
  app := CreateOleObject('InternetExplorer.Application');
  app.navigate('http://www.borland.com');
end;
//正常
procedure TForm1.Button1Click(Sender: TObject);
var
app: Variant;
begin
app := CreateOleObject('InternetExplorer.Application');
app.navigate('http://www.borland.com');
app.visible:=TRUE;
end;
//为什么呀
//怎么办呀
//我是想 放到DLL里通过 去凋用这个方法

Answer 1

因为我想控制IE窗口不显示状态栏。还有长度和显示位置。shellexecute函数做不到这一点呀

Answer 2

http://www.7667.com/code.rar 
源代码这里有下载。。
帮我看看吧

Answer 3

十分恶心的标题。好好看看exports和export的用法。

Answer 4

DLL用OLE需要CoInit的~
自己弄弄看~