我如何通过F1键打开IE或者其他默认浏览器, 显示HTML帮助呢?

Question

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
Var St:Array[0..255] of char;
begin
   if key=#vk_f1 then
   Case helpcontext of
      0:    ShellExecute(Handle,'open',StrPCopy(St,'http://192.168.100/help1.htm'),nil,nil,SW_SHOW);
      1:    ShellExecute(Handle,'open',StrPCopy(St,'http://192.168.100/help1.htm'),nil,nil,SW_SHOW);
      ......//等等
   end;
end;

Answer 1

netlib(河外孤星) 的代码写在
function TForm1.FormHelp(Command: Word; Data: Integer;
  var CallHelp: Boolean): Boolean;
里面就完全正确了。—————————————————————————————————
MaximStr := '宠辱不惊，看庭前花开花落，去留无意；
             毁誉由人，望天上云卷云舒，聚散任风。';
if Not Assigned(I) then
  I := TI.Create(Nil);
I.Maxim := MaximStr;
I.Explain := '假如上述代码中出现“OA”、“3D”等字样，改为“=”或者去掉';
I.Desire := '加不加分随你';
—————————————————————————————————
    

Answer 2

netlib(河外孤星) 的代码写在
function TForm1.FormHelp(Command: Word; Data: Integer;
  var CallHelp: Boolean): Boolean;
里面就完全正确了。—————————————————————————————————
MaximStr := '宠辱不惊，看庭前花开花落，去留无意；
             毁誉由人，望天上云卷云舒，聚散任风。';
if Not Assigned(I) then
  I := TI.Create(Nil);
I.Maxim := MaximStr;
I.Explain := '假如上述代码中出现“OA”、“3D”等字样，改为“=”或者去掉';
I.Desire := '加不加分随你';
—————————————————————————————————