procedure proc(hwndCaller: THandle;pszFile: PChar;uCommand: Integer;dwData: DWORD);begin hhctrl=LoadLibrary("hhctrl.ocx"); if(hhctrl) begin proc=GetProcAddress(hhctrl,"HtmlHelpA"); end if proc(Self.Handle,"D:\winchat.chm",1,0); FreeLibrary(hhctrl); end;
application.helpfile:='路径+文件名'。
hhctrl=LoadLibrary("hhctrl.ocx");
if(hhctrl)
begin
proc=GetProcAddress(hhctrl,"HtmlHelpA");
end
if proc(Self.Handle,"D:\winchat.chm",1,0);
FreeLibrary(hhctrl);
end;