my_api.pas

是和Delphi 编程精选集锦书本配套的源码

// Author:Youzhen
// Date: 2000/08/09
// Version: 1.0
//
// This Is A Dll File For Config ScreenSave
//
// Don't Use TString In Dll File !
// Use shortstring Instead of TString !
//
// Topic Function:
//         SystemParametersInfo()
//         SPI_SETSCREENSAVEACTIVE
//         SPI_SETSCREENSAVETIMEOUT
//
//         SPI_GETSCREENSAVEACTIVE
//         SPI_GETSCREENSAVETIMEOUT
//         SPIF_UPDATEINIFILE
//
//************************************************//
unit My_API;

interface

uses
  Windows,SysUtils;


function My_Get_SPI_GETSCREENSAVETIMEOUT:shortstring;

function My_Get_SPI_GETSCREENSAVEACTIVE:shortstring;

procedure My_Set_SPI_SETSCREENSAVETIMEOUT
            (Input_Minutes_String:shortstring);

procedure My_Set_SPI_SETSCREENSAVEACTIVE
            (Input_Active_Or_InActive:shortstring);
             // 0 := InActive
             // 1 := Active

implementation

function My_Get_SPI_GETSCREENSAVETIMEOUT:shortstring;

var i:integer;

begin
  SystemParametersInfo(SPI_GETSCREENSAVETIMEOUT,
                       0,@i,0);
  Result:=IntToStr(i div 60);
end;

function My_Get_SPI_GETSCREENSAVEACTIVE:shortstring;

var b:boolean;

begin
  SystemParametersInfo(SPI_GETSCREENSAVEACTIVE,
                       0,@b,0);
  if b then
    Result:='1' // = true;
  else
    Result:='0'; // = false;
end;

procedure My_Set_SPI_SETSCREENSAVETIMEOUT
            (Input_Minutes_String:shortstring);
begin
  SystemParametersInfo(SPI_SETSCREENSAVETIMEOUT,
                       StrToInt(Input_Minutes_String)*60,
                           nil,0);
end;

procedure My_Set_SPI_SETSCREENSAVEACTIVE
            (Input_Active_Or_InActive:shortstring);
             // 0 := InActive
             // 1 := Active
begin
  SystemParametersInfo(SPI_SETSCREENSAVEACTIVE,
                          StrToInt(Input_Active_Or_InActive),
                           nil,0);
end;
end.