以下是来自ex-ex的一些方法:
1.
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
这个方法可行,timer的时间设置的短一些效果好,如100
2.
把windows/system/timedate.cpl改掉名字,但是这样我试过后发现可以防止从
任务栏修改时间,但是从控制面板仍然能修改时间.
