1、 Var St:Array[0..255] of char; begin ShellExecute(Handle,'open',StrPCopy(St,'E:\huamin.chm'),nil,nil,SW_SHOW); end; 2、菜单里的热鍵设为F1
1、 Var St:Array[0..255] of char; begin ShellExecute(Handle,'open',StrPCopy(St,'E:\huamin.chm'),nil,nil,SW_SHOW); end; 2、菜单里的热鍵设为F1
在这个菜单项的onclick事件中写如下代码: shellexecute(form1.handle,'open','help.hlp','','c:\help',sw_show); 这样就可以执行这个帮助了。 2、在你的应用程序用程序中加一个onKeypress事件: if key=vk_f1 then shellexecute(form1.handle,'open','help.hlp','','c:\help',sw_show);
Var St:Array[0..255] of char;
begin
ShellExecute(Handle,'open',StrPCopy(St,'E:\huamin.chm'),nil,nil,SW_SHOW);
end;
2、菜单里的热鍵设为F1
Var St:Array[0..255] of char;
begin
ShellExecute(Handle,'open',StrPCopy(St,'E:\huamin.chm'),nil,nil,SW_SHOW);
end;
2、菜单里的热鍵设为F1
shellexecute(form1.handle,'open','help.hlp','','c:\help',sw_show);
这样就可以执行这个帮助了。
2、在你的应用程序用程序中加一个onKeypress事件:
if key=vk_f1 then shellexecute(form1.handle,'open','help.hlp','','c:\help',sw_show);
shellexecute函数是不是要用到什么头文件?