怪哉

Question

procedure TForm1.Button1Click(Sender: TObject);
var
hwnd,h:longint;
begin
hwnd:=FindWindow(nil,pchar('form1'));
h:=FindWindowEx(hwnd,0,nil,pchar('button1'));
edit1.Text:=inttostr(h);
edit2.text:=inttostr(Button1.handle);
end;
输入完后按F5键可以执行,但只要保存后再运行就有错误了,按F5时hwnd:=FindWindow(nil,pchar('form1'));这一行变成红色光标在nil前闪动。提示；
[Error] findwindow.pas(32): '.' expected but '(' found
[Fatal Error] findw.dpr(5): Could not compile used unit 'findwindow.pas'
把nil换成TForm1也没用

Answer 1

不用Pchar('form1')
直接'form1'