Screen Saver Application In PowerBuilder

With API function SystemParametersInfoA Library user32.dll disables CTRL + ALT + DEL, ALT + TAB, CTRL + ESC. With Alt + F4 blocking, users are required to authenticate with the program’s account

Screen Saver Application In PowerBuilder 1

Declare Local Functions

Function uLong SystemParametersInfoA  (ulong uAction , ulong uparam, string lpvParam, ulong fuWinIni )  Library "User32.dll" alias for "SystemParametersInfoA;ansi"

1	Function uLong SystemParametersInfoA (ulong uAction , ulong uparam, string lpvParam, ulong fuWinIni ) Library "User32.dll" alias for "SystemParametersInfoA;ansi"

Example Open Event Window

Environment	le_Env
GetEnvironment(le_Env)
Integer SPI_SCREENSAVERRUNNING = 97

This.Width  =  PixelsToUnits(le_Env.ScreenWidth  + 128, XPixelsToUnits!)
This.Height =  PixelsToUnits(le_Env.ScreenHeight + 128, YPixelsToUnits!)
This.X =  - 64
This.Y =  - 64
This.SetPosition(TopMost!)
Integer i_ret

i_ret = SystemParametersInfoA(SPI_SCREENSAVERRUNNING, 1, "", 0)

Environment le_Env

GetEnvironment(le_Env)

Integer SPI_SCREENSAVERRUNNING = 97

This.Width = PixelsToUnits(le_Env.ScreenWidth + 128, XPixelsToUnits!)

This.Height = PixelsToUnits(le_Env.ScreenHeight + 128, YPixelsToUnits!)

This.X = - 64

This.Y = - 64

This.SetPosition(TopMost!)

Integer i_ret

i_ret = SystemParametersInfoA(SPI_SCREENSAVERRUNNING, 1, "", 0)

Find Projects On Github click here

Good Luck!

PowerBuilder Tips & Tricks

PB PowerBuilder PowerBuilder Example PowerBuilder Function PowerBuilder Tips PowerBuilder Tricks Tips & Tricks

April 26, 2021

Was this article helpful?

0 Comments

Inline Feedbacks

View all comments