可以运用Windows API 函数SystemParametersInfo()
其申明如下:(具体参看Help)
BOOL SystemParametersInfo(
UINT uiAction, // system parameter to query or set
UINT uiParam, // depends on action to be taken
PVOID pvParam, // depends on action to be taken
UINT fWinIni // user profile update flag
);
加入如下代码
procedure TForm1.FormCreate(Sender: TObject);
var
Fpoint:integer;
begin
Fpoint :=0;
SystemParametersInfo(SPI_SCREENSAVERRUNNING,1,@Fpoint,0 );
end;