怎么保存后就出错(10分)

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

你的当前unit就只有这个函数?<br>如果是,请重新创建一个unit,并把你的代码输入到新的unit中试试.

试过的,和这一样