不看会后悔的Windows XP之经验谈	简单快捷DIY实用家庭影院

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

楼主luoyangq（阿洛）2002-05-07 13:44:38 在 Delphi / VCL组件开发及应用提问

请问怎样才能禁止在控制面板修改系统时间？一位朋友给我 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分好吗？拜托！问题点数：10、回复次数：11Top

1 楼luoyangq（阿洛）回复于 2002-05-08 16:47:13 得分 0

没有人回答我吗？Top

2 楼luoyangq（阿洛）回复于 2002-05-08 21:27:27 得分 0

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

3 楼tazhch（鸭）回复于 2002-05-08 21:39:00 得分 2

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 ;Top

4 楼luoyangq（阿洛）回复于 2002-05-10 09:15:36 得分 0

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

5 楼procedure007（文刀）回复于 2002-05-10 09:38:23 得分 0

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

6 楼mingyeh（风萧萧兮，北京温度低）回复于 2002-05-10 09:49:39 得分 0

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

7 楼luoyangq（阿洛）回复于 2002-05-10 11:09:23 得分 0

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

8 楼luoyangq（阿洛）回复于 2002-05-17 10:22:39 得分 0

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

9 楼sundayboys（sunboy）回复于 2002-05-17 10:30:52 得分 4

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

10 楼s_x_d（燃烧的冰）回复于 2002-05-17 10:34:37 得分 4

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

11 楼luoyangq（阿洛）回复于 2002-05-20 21:06:12 得分 0

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