Helpful to verify reports of your own downtime, or to double check a downed website you are trying to access.
One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.
Did Program Run at Startup of Windows?
I have a program that needs to run at the startup of Windows (Win98). My questions are:
1. How do I make it run automatically at Windows startup without putting it or its shortcut in the Start Up folder?
2. Is there a way to let the program know that it was run at Windows startup or it was started manually?
Thanks in advance!
1. How do I make it run automatically at Windows startup without putting it or its shortcut in the Start Up folder?
2. Is there a way to let the program know that it was run at Windows startup or it was started manually?
Thanks in advance!
Asked:
-
3
3-
2
- +1
1 Solution
Hi
Private Declare Function GetTickCount Lib "kernel32" Alias "GetTickCount" () As Long
Private Sub Form_Load()
Dim objWSHShell As Object
Dim s As String
Dim bManually As Boolean
Set objWSHShell = CreateObject("WScript.Shel
On Error Resume Next
s = objWSHShell.RegRead("HKLM\
If Err or s = "" Then 'Running first time
s = App.Path
If Right$(s, 1) <> "\" Then s = s & "\"
objWSHShell.RegWrite "HKLM\Software\Microsoft\W
End If
If GetTickCount > 10000 Then bManually = True
End Sub
Cheers
Private Declare Function GetTickCount Lib "kernel32" Alias "GetTickCount" () As Long
Private Sub Form_Load()
Dim objWSHShell As Object
Dim s As String
Dim bManually As Boolean
Set objWSHShell = CreateObject("WScript.Shel
On Error Resume Next
s = objWSHShell.RegRead("HKLM\
If Err or s = "" Then 'Running first time
s = App.Path
If Right$(s, 1) <> "\" Then s = s & "\"
objWSHShell.RegWrite "HKLM\Software\Microsoft\W
End If
If GetTickCount > 10000 Then bManually = True
End Sub
Cheers
Hey, Ark...yeah, that's the timer thing I was looking for.
The thing I wonder is: if your system takes 2 minutes to boot, what will be the value of GetTickCount when this app runs at startup? Will it be within the 10000 millisecond period? If not, you get a false reading.
(Also, to be explicit, you should probably initialize bManual = false somewhere before the 'if'.)
The thing I wonder is: if your system takes 2 minutes to boot, what will be the value of GetTickCount when this app runs at startup? Will it be within the 10000 millisecond period? If not, you get a false reading.
(Also, to be explicit, you should probably initialize bManual = false somewhere before the 'if'.)
>If GetTickCount > 10000 Then bManually = True
Might be more solid to include a command line parameter in the reg start up.
objWSHShell.RegWrite "HKLM\Software\Microsoft\W
& ".exe -Auto"
Then
If Command$ Like "*-Auto*" Then bManually = True
Might be more solid to include a command line parameter in the reg start up.
objWSHShell.RegWrite "HKLM\Software\Microsoft\W
& ".exe -Auto"
Then
If Command$ Like "*-Auto*" Then bManually = True
But Paul, if you do that, then somewhere you must delete the registry entry when Windows shuts down (or crashes) or it will still be there next time you start up, won't it?
Thanks guys! All of your solutions are right! But Ark's is the best for my needs right now.
Paul's suggestion is also very good. If Windows crashes or shuts down and it reboots, that will still count as an automatic startup of the program. Therefore the parameter "Auto" stays in the registry.
Thanks again and the best to all of you!
Paul's suggestion is also very good. If Windows crashes or shuts down and it reboots, that will still count as an automatic startup of the program. Therefore the parameter "Auto" stays in the registry.
Thanks again and the best to all of you!
Thanks guys! All of your solutions are right! But Ark's is the best for my needs right now.
Paul's suggestion is also very good. If Windows crashes or shuts down and it reboots, that will still count as an automatic startup of the program. Therefore the parameter "Auto" stays in the registry.
Thanks again and the best to all of you!
Paul's suggestion is also very good. If Windows crashes or shuts down and it reboots, that will still count as an automatic startup of the program. Therefore the parameter "Auto" stays in the registry.
Thanks again and the best to all of you!
Question has a verified solution.
Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.
Have a better answer? Share it in a comment.
Join & Write a Comment Already a member? Login.
Featured Post
Check which ports are open to the outside world. Helps make sure that your firewall rules are working as intended.
One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.
Tackle projects and never again get stuck behind a technical roadblock.
Join Now
To test when it was run, I think I heard that there's a function that indicates how many milliseconds have passed since Windows started. If you check this and compare against a reasonably small number (< 2 minutes?) then you can probably assume that it began with the Windows startup.
Anther way is to add two programs at Windows startup, with a hidden "test" app first and your real app second. If your real app detects the first program is not running, then the user probably shut it down and you app was manually started. If your app see that it is running, compare the time it started against the time your app started; if the time is sufficiently small, then they started together at startup.