~~~~~~~~~~~~~~~~~~~~~~~~~
{
Insert the following code into the
"public" section of
your main form:
}
procedure AppMessage
(var Msg : TMsg;
var bHandled : boolean ) ;
{
In the OnCreate for the main form add:
}
Application.OnMessage := AppMessage;
{
In the "implementation" section, insert the
following code (suppose Form1 is the name of your form):
}
procedure TForm1.AppMessage(
var Msg : TMsg;
var bHandled : boolean ) ;
begin
if((WM_SYSCOMMAND = Msg.Message) and
(SC_SCREENSAVE = Msg.wParam) )then
bHandled := True;
end;
~~~~~~~~~~~~~~~~~~~~~~~~~
Delphi tips navigator:
» Hide the Clock icon on Windows Tray
« Get Default Printer Name
