procedure TForm1.ShowButtonClick(Sender: TObject);
var
  wndHandle : THandle;
  wndClass : array[0..50] of Char;
begin
  StrPCopy(@wndClass[0], 'Shell_TrayWnd');
  wndHandle := FindWindow(@wndClass[0], nil);
  ShowWindow(wndHandle, SW_RESTORE);
end;
程序很简单 是隐藏windows工具条
  StrPCopy(@wndClass[0], 'Shell_TrayWnd');
  wndHandle := FindWindow(@wndClass[0], nil);
  ShowWindow(wndHandle, SW_RESTORE);
这3个函数什么意思 以及作用 还请麻烦翻译一下 谢谢啦

解决方案 »

  1.   

    看来你是新手!你这种写法不好。建议改为:
    procedure TForm1.Button1Click(Sender: TObject);
    var
      wndHandle : THandle;
      wndClass : array[0..50] of Char;
    begin
      lstrcpy(wndClass,'Shell_TrayWnd');
      wndHandle := FindWindow(wndClass, nil);
      ShowWindow(wndHandle, SW_RESTORE);
    end;
    或:
    procedure TForm1.Button1Click(Sender: TObject);
    var
      wndHandle : THandle;
    begin
      wndHandle := FindWindow('Shell_TrayWnd', nil);
      ShowWindow(wndHandle, SW_RESTORE);
    end;
      

  2.   

    StrPCopy(@wndClass[0], 'Shell_TrayWnd');   //字符创拷贝
      wndHandle := FindWindow(@wndClass[0], nil); //查找指定名称的窗口句柄
      ShowWindow(wndHandle, SW_RESTORE);      //显示窗口
      

  3.   


    Delphi菜单最后一项“Help”,展开后前三项分别是“Delphi Help”“Delphi Tools”“Windows SDK”,在这里可以找到绝大多数函数(方法)、类型、结构的英文说明