winexec执行打开一个帮助文件aaa.chm，可是没有打开 (15分)

H

hanpengshan_00

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-11-24

• #1

我看了目录下有帮助文件，路径也对，文件名也对，帮助文件没有显示???

 

X

xiaofeng007

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-11-24

• #2

不会吧，帮代码贴出来。前面是不是没有用use shellapi

 

H

hanpengshan_00

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-11-24

• #3

回，用了
var
str :string;
begin
str:=getcurrentdir()+'/系统帮助手册.chm';
//路径正确
winexec(PChar(str),SW_SHOWDEFAULT);
end;
帮助没有出来

 

M

mystudy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-11-24

• #4

好象不用shellapi吧??
那用shellexcute试试

 

X

xiaofeng007

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-11-24

• #5

procedure TForm_main.N24Click(Sender: TObject);
var ppchar;
begin
try
begin
pp:=Pchar(ExtractFilePath(Application.exeName)+'系统帮助手册.chm');
Shellexecute(handle,'open',pp,nil,nil,SW_SHOWNORMAL);
end;
except
Application.MessageBox('系统提示：没有找到相应的目录或帮助文件！','系统提示...',MB_OK+MB_ICONINFORMATION);
end;
end;

 

H

hanpengshan_00

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-11-24

• #6

shellexcute包含在什么文件头里

 

H

hanpengshan_00

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-11-24

• #7

多人接受答案了。