@@@@@@ $ 这段代码还可以如何改进 $ @@@@@@

Question

下面是我做的打开与关闭帮助的代码:  //打开帮助
  if findwindow(nil,pchar('系统帮助'))=0 then
    shellExecute(handle,'open',pchar(HelpPath),nil,nil,sw_shownormal);  //关闭帮助
  HHelp:=FindWindow(nil,'系统帮助');
  if HHelp<>0 then
    SendMessage(HHelp,WM_Close,0,0);
我是利用帮助的标题来判断帮助文件是否已打开.
我认为这样不太好,因为如果别的程序帮助文件有同样地标题,
我的帮助文件不会被打开,关闭同样也会误把别的帮助文件关闭!我看了一下一些常用的软件,并不是这样判断的(如ACDsee,等).
而且当他们(如ACDsee,等)的帮助已打开,再按F1将会将帮助文件激活为当前窗口.
这是怎么做得?

Answer 1

可以参考一下MDI的编程，关于多文档。

Answer 2

function SetWindowLong(hWnd: HWND; nIndex: Integer; dwNewLong: Longint): Longint; stdcall;能不能说一下它的参数用法.

Answer 3

函数功能：该函数改变指定窗口的属性．函数也将指定的一个32位值设置在窗口的额外存储空间的指定偏移位置。    函数原型：LONG SetWindowLong（HWND hWnd，int nlndex，LONG dwNewLong）；    参数：    hWnd：窗口句柄及间接给出的窗口所属的类。    nlndex：指定将设定的大于等于0的偏移值。有效值的范围从0到额外类的存储空间的字节数-4：例如若指定了12位或多于12位的额外类存储空间，则应设为第三个32位整数的索引位8。要设置其他任何值，可以指定下面值之一：    GWL_EXISTYLE：设定一个新的扩展风格。GWL_STYLE：设定一个新的窗口风格。    GWL_WNDPROC：为窗口过程设定一个新的地址。GWL_ID：设置一个新的窗口标识符。    GWL_HINSTANCE：设置一个新的应用程序事例句柄。    GWL_USERDATA：设置与窗口有关的32位值。每一个窗口均有一个由创建该窗口的应用程序使用的32位值。    当hWnd参数标识了一个对话框时，也可使用下列值：    DWL_DLGPROC：设置对话框过程的新地址。    DWL_MSGRESULT：设置在对话框过程中处理的消息的返回值。    DWL_USER：设置的应用程序私有的新的额外信息，例如一个句柄或指针。    dwNewLong：指定的替换值。    返回值：如果函数成功，返回值是指定的32位整数的原来的值。如果函数失败，返回值为0。若想获得更多错误信息，请调用GetLastError函数。    如果指定32位整数的原来的值为0，并且函数成功，则返回值为0，但是函数并不清除最后的错误信息，这就很难判断函数是否成功。这时，就应在调用SetWindowLong之前调用callingSetLastError（0）函数来清除最后的错误信息。这样，如果函数失败就会返回0，并且GetLastError。也返回一个非零值。    备注；如果由hWnd参数指定的窗口与调用线程不属于同一进程，将导致SetWindowLong函数失败。    指定的窗口数据是在缓存中保存的，因此在调用SetWindowLong之后再调用SetWindowPos函数才能使SetWindowLong函数所作的改变生效。    如果使用带GWL_WNDPROC索引值的SetWindowLong函数替换窗口过程，则该窗口过程必须与WindowProccallback函数说明部分指定的指导行一致。    如果使用带DWL_MSGRESULT索引值的SetWindowLong函数来设置由一个对话框过程处理的消息的返回值，应在此后立即返回TRUE。否则，如果又调用了其他函数而使对话框过程接收到一个窗口消息，则嵌套的窗口消息可能改写使用DWL_MSGRESULT设定的返回值。    可以使用带GWL_WNDPROC索引值的SetWindowLong函数创建一个窗口类的子类，该窗口类是用于创建该窗口的关。一个应用程序可以一个系统美为于类，但是不能以一个其他进程产生的窗口类为子类，SetwindowLong函数通过改变与一个特殊的窗口类相联系的窗口过程来创建窗口子类，从而使系统调用新的窗口过程而不是以前定义的窗口过程。应用程序必须通过调用CallWindowProc函数向前窗口传递未被新窗口处理的消息，这样作允许应用程序创建一个窗口过程链。    通过使用函数RegisterClassEx将结构WNDCLASSEX中的cbWndExtra单元指定为一个非0值来保留新外窗口内存。    不能通过调用带GWL_HWNDPARENT索引值的SetWindowLong的函数来改变子窗口的父窗口，应使用SetParent函数。    Windows CE：nlndex参数必须是4个字节的倍数不支持unaligned access。    不支持下列nlndex参数值：。    GWL_HINSTANCE；GWL_HWNDPARENTGWL;GWL_USERDATA    Windows CE 2.0版支持在nlndex参数中的DWL_DLGPROC值，但是WindowsCE1.0不支持。    速查：Windows NT：3.1以上版本；Windows：95以上版本；Windows CE：1.0以上版本：头文件：winuser.h；库文件：user32.lib；Unicode：在Windows NT上实现为Unicode和ANSI两种版本。    函数功能：该函数删除一个窗口类，清空该类所需的内存。    函数原型：BOOL UnRegisterClass（LPCTSTR IpClassName； HINSTANCE hlnstance）；    参数：    IpClassName：指向一个空结束字符串的指针，或是一个整型原子。如果IpClassName是一个字符串，则它指定了窗口类的类名。这个类名必须由此前调用RegisterClassEx函数来注册。系统类，如对话框控制，必须被注册。    如果这个参数是一个整型原子，它必须是由此前调用GlobalAdd原子函数创建的全局原子。这个16位整型数小于OxCOOO，必须是lpszClass的低16位，其高位宇必须为0。    hlnstance：创建类的模块的事例句柄。    返回值：如果函数成功，返回值为非零；如果未发现类或由此类创建的窗口仍然存在，则返回值为0。    若想获得更多错误信息，请调用GetLastError函数。    备注：在调用这个函数之前，应用程序必须销毁由指定类创建的所有窗口。    应用程序注册的所有窗口类在应用程序中止后都为未注册的类。    Windows 95：所有由OLL注册的窗口类在DLL卸载后均未注册的类。    windows NT：所有由DLL注册的类在DLL卸载后仍为已注册的类。    速查：Windows NT：3.1以上版本；Windows：95以上版本；Windows CE：1.0以上版本；头文件：winuser.h；库文件：user32.lib；Unicode：在Windows NT上实现为Uhicode和ANSI两种版本。

Answer 4

好像Setwindowlong函数达不到我的要求!是不是我太菜了?

Answer 5

试试这个方法，不知行不行var
  OldWindowProc:Pointer;
  MyMsg:DWord;function NewWindowProc(WindowHandle:hWnd;TheMessage:LongInt;ParamW:LongInt;ParamL:LongInt):LongInt stdcall;
begin
     if TheMessage=WM_MyMsg then begin
           //这里加入你的代码
     end;
     result:=CallWindowProc(OldWindowProc,
                            WindowHandle,
                            TheMessage,
                            ParamW,
                            ParamL);
end;
//打开帮助后加入：
  if findwindow(nil,pchar('系统帮助'))=0 then
    shellExecute(handle,'open',pchar(HelpPath),nil,nil,sw_shownormal);
    MyMsg:=RegisterWindowMessage('系统帮助');
              OldWindowProc:=Pointer(SetWindowLong(findwindow(nil,pchar('系统帮助')),GWL_WNDPROC,LongInt(@NewWindowProc)));//关闭帮助是使用：
 SendMessage(findwindow(nil,pchar('系统帮助')),WM_MyMsg,0,0);//FormDestroy加入：
SetWindowLong(findwindow(nil,pchar('系统帮助')),GWL_WNDPROC,LongInt(OldWindowProc));

Answer 6

这一句编译通不过:
OldWindowProc:=Pointer(SetWindowLong(findwindow(nil,pchar('系统帮助')),GWL_WNDPROC,LongInt(@NewWindowProc)));
"//打开帮助后加入：
  if findwindow(nil,pchar('系统帮助'))=0 then"如果别的程序帮助文件有同样地标题,那么是不是还是打不开?

Answer 7

if(Key == 112)
    {
        HtmlHelp(NULL, AnsiString(Application->HelpFile).c_str(), HH_HELP_CONTEXT, 32);
    }    这是我在BCB中调用帮助的语句

Answer 8

HtmlHelp这个函数Delphi里没有能不能写一下这个函数的代码