谁用<font color=red>HTML Help Workshop</font>,能否在您有空的时候让俺的简单问题轰炸几次?---

  • 主题发起人 主题发起人 千中元
  • 开始时间 开始时间
是没有看,到那里比来大富翁还慢,几次proxy error:(
这就去down window help designer
 
应该做完了吧!
给说说情况如何?
 
这样调用它们。
procedure TfrmMain.miHelpClick(Sender: TObject);
var
p: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
else
begin
p:=pchar(ExtractFilePath(Application.Exename)+'heremed3.5帮助文件/hereinfoIndex.HTM');
ShellExecute(0, nil, p, nil, nil, SW_NORMAL);
end;
end;
 
上一期电脑报啦
 
老千你怎么就爱炸人?
 
多人接受答案了。
 

Similar threads

D
回复
0
查看
1K
DelphiTeacher的专栏
D
S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
I
回复
0
查看
720
import
I
后退
顶部