请问如何在程序中打开chm文件(25分)

常

常山赵子龙

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-01

• #1

请详细些

 

T

TMXYB

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-01

• #2

more point you can get the detailed ,only 25 you can get nothing.

 

G

gong666

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-01

• #3

简单方法之一：直接调用shellexec执行就行

 

Z

zhy111

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-01

• #4

例如ShellExecute(0,'open','f:/t.chm',nil,nil,SW_SHOWNORMAL)

 

程

程云

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-01

• #5

procedure TMainFrm.miHelpClick(Sender: TObject);
var
pchar;
begin
if FileExists(ExtractFilePath(Application.Exename)+'HELP.chm') then
begin
p:=pchar(ExtractFilePath(Application.Exename)+'HELP.chm');
ShellExecute(0, nil, p, nil, nil, SW_NORMAL);
end;
end;

 

常

常山赵子龙

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-02

• #6

我用ShellExecute显示错误：
Undeclared identifier: 'ShellExecute'

 

T

TMXYB

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-02

• #7

uses shellAPI;
......
try
ShellExecute(handle, 'open', pchar(ExtractFilePath(Application.Exename)+'HELP.chm'),nil, nil, SW_SHOWNORMAL);
except
showmessage('');
end;

 

常

常山赵子龙

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-02

• #8

顺便问一下：如何在显示另一个窗体a时，使焦点一直固定窗体a上，直到窗体a被关闭；

 

常

常山赵子龙

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-02

• #9

接受答案了.