发信人: finlove (荒野之狼), 信区: BorlandDev
标  题: 截获系统时间改变 
发信站: 哈工大紫丁香 (Tue Jan 22 12:40:43 2002) , 转信

截获系统时间改变 
 

type 
TForm1 = class(TForm) 
private 
{ Private declarations } 
procedure WMTIMECHANGE(var Message: TWMTIMECHANGE); 
message WM_TIMECHANGE; 
public 
{ Public declarations } 
end; 

var 
Form1: TForm1; 

implementation 

{$R *.DFM} 

procedure TForm1.WMTIMECHANGE(var Message: TWMTIMECHANGE); 
begin 
Form1.Caption := 'Time Changed'; 
end; 






--

※ 来源:．哈工大紫丁香 http://bbs.hit.edu.cn [FROM: 211.97.214.52]