超级链接的问题,进来有分送(60分)

T

tang125

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-17

• #1

我的程序如下,用来每次打开新的Explorer窗口.但是第一次点击是可以打开的,Url有值,但是第二次点击是,就会打开C:的根目录,请问这是什么原因,60分,只有这么多了.
procedure TfrmMain.Label1Click(Sender: TObject);
var
Url: PChar;
begin
Url := '';
FindExecutable('IEXPLORE.EXE','C:/Program Files/Internet Explorer',Url);
ShellExecute(Handle, nil,Url,'http://www.sohu.com',nil,SW_SHOWNORMAL);
end;

 

Y

yfdciom

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-17

• #2

我试了一下，
这样改：
procedure TForm1.Button1Click(Sender: TObject);
var
Url: PChar;
begin
GetMem(Url,100);
FindExecutable('IEXPLORE.EXE','D:/Program Files/Internet Explorer',Url);
ShellExecute(Handle, 'Open',Url,'http://www.sohu.com',nil,SW_SHOWNORMAL);
end;

 

Q

qdyoung

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-17

• #3

直接运行
ShellExecute(Handle, nil 'http://www.sohu.com', nil, nil, SW_Show);
不需要FindExecutable

-----
http://www.8421.org

 

N

nexthawks

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-17

• #4

ShellExecute(Handle, nil 'http://www.sohu.com', nil, nil, SW_Show);
是有用的,我以前也用过

 

T

tang125

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-17

• #5

我的要求是自己打开新的Explorer窗口,而不是在原来打开的基础上使用Explorer,
这样免破坏别人正在浏览的网页,亲爱的yfdciom同志比较了解我的心意,还有没有其他的
做法,如没有我要送分了呀!

 

T

tang125

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-09

• #6

多人接受答案了。