procedure TForm1.N7Click(Sender: TObject); var hwndle:HWND; begin ShellExecute(hwndle,nil,'help.chm',nil,nil,SW_SHOWNORMAL); //FileName 可以是任何文件 end;