Cool Effect

[hellilyntax]

hi guys,

how do i freeze all running application on my pc when my app run?

and how to add cool effect like when windows logout screen, all background turn grey...(like this site also...really cool...hehe )

[Andrew G]

Why do you want to freeze all running programs?


Also to make your screen go dark, you can use

'Example by Florian Brucker ([email protected])
'
'Paste this code into a form of a new project
'You better don't close this via the
'stop-button of the ide but the x-button of
'the form.
Option Explicit
Private Ramp1(0 To 255, 0 To 2) As Integer
Private Ramp2(0 To 255, 0 To 2) As Integer
Private Declare Function GetDeviceGammaRamp Lib "gdi32" (ByVal hdc As Long, lpv As Any) As Long
Private Declare Function SetDeviceGammaRamp Lib "gdi32" (ByVal hdc As Long, lpv As Any) As Long
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)
Private Sub Form_Load()
   '----------------------------------------------------------------
   Dim iCtr       As Integer
   Dim lVal       As Long
   '----------------------------------------------------------------
   GetDeviceGammaRamp Me.hdc, Ramp1(0, 0)
      For iCtr = 0 To 255
         lVal = Int2Lng(Ramp1(iCtr, 0))
         Ramp2(iCtr, 0) = Lng2Int(Int2Lng(Ramp1(iCtr, 0)) / 2)
         'Die folgenden Zeilen für ROT auskommentieren:
         Ramp2(iCtr, 1) = Lng2Int(Int2Lng(Ramp1(iCtr, 1)) / 2)
         Ramp2(iCtr, 2) = Lng2Int(Int2Lng(Ramp1(iCtr, 2)) / 2)
      Next iCtr
   SetDeviceGammaRamp Me.hdc, Ramp2(0, 0)
   '----------------------------------------------------------------
End Sub
Private Sub Form_Unload(Cancel As Integer)
   '----------------------------------------------------------------
   SetDeviceGammaRamp Me.hdc, Ramp1(0, 0)
   '----------------------------------------------------------------
End Sub
Public Function Int2Lng(IntVal As Integer) As Long
   '----------------------------------------------------------------
   CopyMemory Int2Lng, IntVal, 2
   '----------------------------------------------------------------
End Function
Public Function Lng2Int(Value As Long) As Integer
   '----------------------------------------------------------------
   CopyMemory Lng2Int, Value, 2
   '----------------------------------------------------------------
End Function

From ApiGuide

[RobDog888]

Trying to "freeze" all the running apps can cause problems. Why do you need it to do that?

[hellilyntax]

just want to save cpu usage for my app...
is it necessary....just stupid idea..hehe
thanks anyway for the codes....

[Spajeoly]

There is no need to do that unless you're writing a virus.

[hellilyntax]

hehe...ill work on this effect first...

[MartinLiss]

Please note that if we get the idea that you are writing a virus you will be banned from our forums.

[Joacim Andersson]

how do i freeze all running application on my pc when my app run?

You don't!

If you would freeze all other running processes, you would freeze Windows! If you only want to run one process at the time may I suggest installing DOS 6.0

[CVMichael]

Actually... when windows shows that grey screen...

It basically takes a print screen, then it makes a full screen window, with the picture taken before, and it fades that picture until it's grey.

You can test that by simply having a program that moves something in it's window, like text moving horizontally, when you are about to log off, you will see that the backgound freeses, and when you cancel the log off, you will see the text moved a lot (where it should be if you have not used the log off).

So, all programs continue working in the backgound...

[Joacim Andersson]

So, all programs continue working in the backgound...

During the logoff/shutdown screen yes, but not during the logon screen.

[hellilyntax]

mr admin,
im innocent...

[hellilyntax]

CV,
do you have codes that fades the images?