我想程序在屏保啟動時do something,代碼如下.
saver:=findwindow('windowsscreensaverclass',nil);
if saver <> 0 then
do somethinng...
end;
但此代碼只對windows自帶的屏保有效,對自己另外安裝的屏保就沒用了,請問有其他辦法嗎?
saver:=findwindow('windowsscreensaverclass',nil);
if saver <> 0 then
do somethinng...
end;
但此代碼只對windows自帶的屏保有效,對自己另外安裝的屏保就沒用了,請問有其他辦法嗎?
b:integer;
begin
SystemParametersInfo(SPI_GETSCREENSAVERRUNNING,0,@b,0);
if b <> 0 then
do something....
end;