语法错误

Question

这个代码
Var
h:Hwnd;
begin
  If CheckBox1.Checked then
    Begin
      h:=FindWindow(Nil,PWideChar(ComboBox1.Text));
      SetWindowPos(h,HWND_TOPMOST,0,0,0,0,SWP_NOSIZE + SWP_NOMOVE)
    end
      Else
    Begin
      h:=FindWindow(Nil,PWideChar(ComboBox1.Text));
      SetWindowPos(h,HWND_NOTOPMOST,0,0,0,0,SWP_NOSIZE + SWP_NOMOVE);
    End;
end;
好像有语法错误有哪位能帮我看下啊
h:=FindWindow(Nil,PWideChar(ComboBox1.Text));
运行到这就错了
H:=FindWindow(Nil ,   'XX');
不是这样的吗哪错了
还是ComboBox1.Text不能直接写上去啊

Answer 1

嗯得了过啦谢了再问下pwidechar跟pchar有什么区别啊源码是我在网上找的不太理解

Answer 2

d2009开始pchar为pwidechar，如果要使用ansi版本，显示指定pansichar你代码中既然用pwidechar，就是宽字符的char，如果你用delphi2009或以上版本，这个代码不会有错
但是如果报错了，就说明你用的是d2009之前的版本，你要不把pwidecahr改为pansichar（即pachar），
要不就把findwindow改成findwindowW