据说不同系统的屏保程序不一样;
方式一://xp测试通过
开始: PostMessage(HWND_BROADCAST,WM_SYSCOMMAND,SC_SCREENSAVE,0);
关闭: hwnd := FindWindow('WindowsScreenSaverClass',nil);
PostMessage(hwnd,WM_CLOSE,0,0);
方式二:
开始: SystemParametersInfo(SPI_SETSCREENSAVEACTIVE,1,nil,0);
关闭: SystemParametersInfo(SPI_SETSCREENSAVEACTIVE,0,nil,0);
方式三:
关闭: hwnd := OpenDesktop('Screen-saver',0,FALSE,
DESKTOP_READOBJECTS); // access
if(IsWindowVisible(hwnd)) then
PostMessage(hwnd,WM_CLOSE,0,0);
CloseDesktop(hwnd);