Search results for 'SystemParametersInfo'. 3 post(s) found.

  1. 2007/09/25 How to show window contents while dragging
  2. 2007/09/19 Disable ALT+TAB, CTRL+ESC, CTRL+ALT+DEL
  3. 2007/09/19 How to Activate/Deactivate the Screen Saver
2007/09/25 14:27

How to show window contents while dragging


Here's how to enable or disable the "Show window contents while dragging" Windows fature from Delphi code:

//To Show window contents while dragging:
SystemParametersInfo(SPI_SETDRAGFULLWINDOWS, 1, nil, 0) ;

//To disable this option call the function:
SystemParametersInfo(SPI_SETDRAGFULLWINDOWS, 0, nil, 0) ;

Trackback 3 Comment 0

Trackback : Cannot send a trackbact to this post.

  1. Subject different money making ideas

    Tracked from moneyideas 2010/01/28 22:26 delete

    moneyideas

  2. Subject different money making ideas

    Tracked from moneyideas 2010/01/29 06:42 delete

    moneyideas

  3. Subject different money making ideas

    Tracked from moneyideas 2010/01/31 16:41 delete

    moneyideas

2007/09/19 08:33

Disable ALT+TAB, CTRL+ESC, CTRL+ALT+DEL


If you wish to disable those key combinations while your application is running call SystemKeys. When you call SystemKeys, if Disable is True, the keys will be disabled, False otherwise.

Note: the code does NOT work under Win NT systems (XP, 2000)

procedure SystemKeys(Disable: Boolean) ;
  var OldVal : LongInt;
begin
  SystemParametersInfo(SPI_SCREENSAVERRUNNING, Word(Disable), @OldVal, 0) ;
end;
Trackback 4 Comment 0

Trackback : Cannot send a trackbact to this post.

  1. Subject different money making ideas

    Tracked from moneyideas 2010/01/25 08:20 delete

    moneyideas

  2. Subject different money making ideas

    Tracked from moneyideas 2010/01/28 21:40 delete

    moneyideas

  3. Subject different money making ideas

    Tracked from moneyideas 2010/01/29 06:13 delete

    moneyideas

  4. Subject different money making ideas

    Tracked from moneyideas 2010/01/31 16:40 delete

    moneyideas

2007/09/19 08:06

How to Activate/Deactivate the Screen Saver


Sometimes you want to deactivate the current screensaver when performing some very long process. You can use this function to activate or deactivate the screensaver. Pass True to activate it, or False to deactivate it.

function ActivateScreenSaver(Activate: boolean): boolean;
var IntActive: byte;
begin
  if Activate then
    IntActive := 1
  else
    IntActive := 0;

  Result := SystemParametersInfo(SPI_SETSCREENSAVEACTIVE, IntActive, nil, 0) ;
end;
Trackback 4 Comment 0

Trackback : Cannot send a trackbact to this post.

  1. Subject different money making ideas

    Tracked from moneyideas 2010/01/25 08:53 delete

    moneyideas

  2. Subject different money making ideas

    Tracked from moneyideas 2010/01/28 22:12 delete

    moneyideas

  3. Subject different money making ideas

    Tracked from moneyideas 2010/01/29 06:27 delete

    moneyideas

  4. Subject different money making ideas

    Tracked from moneyideas 2010/01/31 16:40 delete

    moneyideas