Autor: Long (andrzejw_at_magic.ic.com.pl)
Data: Wed 10 Feb 1999 - 02:18:11 MET
On Wed, 10 Feb 1999 00:34:57 +0100, "Konrad Kondracki"
<konradk_at_pol.pl> wrote:
>no wlasnie jak?
Mozna to zrobic np. w delphi:
(zerzniete z grupy pl.comp.lang.delphi)
scrensaver
Q: How do I make a screen saver in Delphi?
A:
Here is the idea:
a) In the project file (*.dpr) add '{$D SCRNSAVE <saver name>} after
the
uses clause.
b) On the main form, turn off the border and icon controls. In the
activate
method set the form left and top to 0, and set the WindowState to
wsMaximize.
c) In the form create method, set the application.OnMessage event to a
method that controls the deactivation of the screen saver. Set the
application.OnIdle method to whatever display method for the saver.
d) In the form create method the command line should be tested for /c
and
/s. These are the command line parameters windows uses to define
whether
the screensaver should run or configure. (/c is for configuration)
e) Compile the program, and rename the .exe to .scr. Move it to the
windows
directory, and it should show up in the control panel.
{ This code came from Lloyd's help file! }
SystemParametersInfo (97, Word (True), @Dummy, 0); {no alt-tab or
ctrl-alt-del any more}
*******************************
Long
andrzejw_at_magic.ic.com.pl
andrzejw_at_kki.net.pl
*******************************
To archiwum zostało wygenerowane przez hypermail 2.1.7 : Tue 18 May 2004 - 18:11:51 MET DST