新手提问：ShellExecute使用方法？(20分)

T

tk0171

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-16

• #1

Shellexecute(Handle,'open','http://www.etherl.com',nil,nil,SW_SHOW);
这段代码在程序能运行，可是在下面这样就不行了什么原因？

filename:='http://www.etherl.com';
s:=filename;
p:=pchar(s);

shellExcute(Handle,'open',p,nil,nil,SW_SHOW);

 

吉

吉祥鸟

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-16

• #2

shellExcute(Handle,'open',ochar(s),nil,nil,SW_SHOW);

 

B

bianlx

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-16

• #3

应该这样写：
首先在uses 下 加入shellapi

procedure TForm1.BitBtn2Click(Sender: TObject);
var
filename:string;
begin
filename:='http://www.etherl.com';
shellexecute(form1.Handle,'open',pchar(filename),nil,nil,sw_shownormal);
end;

上述代码均验证通过；
原代码shellexecute写错了

 

J

jrq

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-16

• #4

估计你用 p:=pchar(s);时没有声明p，或没有分配内存给p