我使用如下代码将一个记事本的标题栏隐藏了:
  SetWindowLong (notepadExe.HWND, GWL_STYLE,
        GetWindowLong (notepadExe.HWND, GWL_STYLE) AND NOT WS_CAPTION);
但是我使用如下代码却不能把他的标题栏设置回来,
  SetWindowLong (notepadExe.HWND, GWL_STYLE,
        GetWindowLong (notepadExe.HWND, GWL_STYLE) AND WS_CAPTION);不知道怎么回事,是否需要经过其他的操作才可以恢复,高手能帮帮忙吗?

解决方案 »

  1.   

    var
      Form1: TForm1;
    var  s:dword;
    implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
    begin
      s:=GetWindowLong (handle, GWL_STYLE);
      SetWindowLong(handle, GWL_STYLE,
           s  AND NOT WS_CAPTION);
    end;procedure TForm1.Button2Click(Sender: TObject);
    begin
      SetWindowLong (handle, GWL_STYLE,s);
    end;
      

  2.   

    to:jinjazz(人雅的标记--落寞刺客) 
     我的notepadExe.HWND指的是另一个程序的主窗体句柄,不是当前程序的窗体句柄
      

  3.   

    var  s:dword;
    procedure TForm1.Button1Click(Sender: TObject);
    begin
      s:= GetWindowLong (notepadExe.HWND, GWL_STYLE)
      SetWindowLong (notepadExe.HWND, GWL_STYLE,
           s AND NOT WS_CAPTION);end;procedure TForm1.Button2Click(Sender: TObject);
    begin
      SetWindowLong (notepadExe.HWND, GWL_STYLE,s);
    end;