各位程序员，我有个API函数的问题要请教一下？(30分)

procedure hidetaskbar;<br>var<br>&nbsp; wndhandle:Thandle;<br>&nbsp; wndclass:array [0..50] of char;<br>&nbsp; begin<br>&nbsp; &nbsp; strpcopy(@wndclass[0],'shell_Traywnd');<br>&nbsp; &nbsp; wndhandle:=findwindow(@wndclass[0],null);// 我就出错在第二个参数上，过不去。<br>&nbsp; &nbsp; showwindow(wndhandle,sw_hide); &nbsp; &nbsp; &nbsp;// 请问大家我要怎么做呀？<br>&nbsp; end;<br><br>procedure showtaskbar;<br>var<br>&nbsp; wndhandle:Thandle;<br>&nbsp; wndclass:array [0..50] of char;<br>&nbsp; Begin<br>&nbsp; &nbsp; Strpcopy(@wndclass[0],'shell_Traywnd');<br>&nbsp; &nbsp; wndhandle:=findwindow(@wndclass[0],null);<br>&nbsp; &nbsp; showwindow(wndhandle,sw_restore);<br>&nbsp; end;<br><br><br>procedure TForm1.Button1Click(Sender: TObject);<br>begin<br>&nbsp; hidetaskbar;<br>end;<br><br>procedure TForm1.Button2Click(Sender: TObject);<br>begin<br>&nbsp; showtaskbar;<br>end;<br>

nil<br><br>procedure hidetaskbar;<br>var<br>&nbsp; wndhandle:Thandle;<br>begin<br>&nbsp; wndhandle:=findwindow('shell_Traywnd',nil);//可以直接写<br>&nbsp; showwindow(wndhandle,sw_hide);<br>end;

请问怎么给分呀？？？？<br><br>

wndhandle:=findwindow(PChar('shell_Traywnd'),nil);