系统键
type TKeyState = ( kbOn, kbOff );
procedure SetSystemKey( value : TKeyState ); var NoUse : integer;
begin case value of
kbOn : SystemParametersInfo( SPI_SCREENSAVERRUNNING, 0, @NoUse, 0);
kbOff : SystemParametersInfo( SPI_SCREENSAVERRUNNING, 1, @NoUse, 0);
end; end;
然后MAXMIZE
然后SHOWMOUSE(OFF)
STAY ON TOP
如果程序运行到后台,那么SETFORGOURND