怎样禁止在控制面板修改系统时间？

[luoyangq]

请问怎样才能禁止在控制面板修改系统时间？一位朋友给我 Delphi的程序代码如下，
procedure tForm1.Timer1Timer( sender : tObject ) ;
var
h : HWND ;
begin
h := FindWindow( 'Date/Time Properties' ) ;
if( h > 0 ) then
SendMessage( h, WM_CLOSE, 0, 0 ) ;
end ;

可是无法通过编译，为什么呢？
我是第一次来的菜鸟，只给10分好吗？拜托！

[luoyangq]

没有人回答我吗？

[luoyangq]

拜托！哪位高手回答我吧！

[tazhch]

procedure tForm1.Timer1Timer( sender : tObject ) ;
var
h : thandle ;
begin
h := FindWindow('Date/Time Properties);
if h>0 then
SendMessage(h,WM_CLOSE,0,0) ;
end ;

[luoyangq]

不行啊，编译时提示“[Error]Unit1.pas(30):Not enough actual parameters”这是怎么回事，该如何是好？

[procedure007]

你给的参数不够.检查一下.

[mingyeh]

停！！！！！
你这么做是没有意义的
在CMOS中照样可以改
不如从服务器取

[luoyangq]

请原谅我太苯！我该再给出什么参数？友人教我更改timedate.cpl文件的文件名就可以阻止用户在任务栏改时间，又给我如上代码，说可以防止在控制面版改时间，可是编译未通过。那么我改如何做？

[luoyangq]

请原谅我太苯！请教我如何运用上面列出的代码好吗？

[sundayboys]

procedure TForm1.Timer1Timer(Sender: TObject);
var
h : HWND;
begin
h := FindWindow(0,PChar('日期/时间 属性'));
if h > 0 Then
SendMessage(h,WM_Close,0,0);
end;

[s_x_d]

procedure TForm1.Timer1Timer(Sender: TObject);
var
h : HWND;
begin
h := FindWindow(0,PChar('日期/时间 属性'));
if h > 0 Then
SendMessage(h,WM_Close,0,0);
end;

[luoyangq]

谢谢！解决了。
但是——请原谅我——麻烦哪位告诉我如何将帖子结束和给你们分。（汗）