PC Ekspert Forum

PC Ekspert Forum (https://forum.pcekspert.com/index.php)
-   Aplikacije (https://forum.pcekspert.com/forumdisplay.php?f=37)
-   -   StartUp (https://forum.pcekspert.com/showthread.php?t=41949)

comp.fly 28.06.2006. 20:41

StartUp
 
gdje se može vidjeti koji se programi pokreću pri StartUp-u....te koje ne želim da se isključe?

McG 28.06.2006. 20:46

Moreš pomoću programa TuneUp Utilities, tj. on u sebi sadrži alat StartUp Manager, a moreš i pomoču programa Autoruns, koji je besplatan i nudi pregršt opcija i informacija. Naposlijetku moreš iskoristiti alat koji dolazi sa samim Windowsima....START >Run i upišeš msconfig.

comp.fly 28.06.2006. 22:05

tnx. našao sam maloprije :beer:

NeTmAsTeR 03.07.2006. 17:25

c:documents and setings onda udjesh u tvos user start pa programs startup.
a moze i udjesh u tvoj start all programs pa sturtup

NeTmAsTeR 03.07.2006. 17:26

Quote:
PrivateDeclareFunction CloseHandle Lib"kernel32" (ByVal hObject AsLong) AsLong
PrivateDeclareFunction CreateToolhelp32Snapshot Lib"kernel32" (ByVal dwFlags AsLong, ByVal dwProcessId AsLong) AsLong
PrivateDeclareFunction FindWindow Lib"user32"Alias"FindWindowA" (ByVal lpClassName AsString, ByVal lpWindowName AsString) AsLong
PrivateDeclareFunction GetClassName Lib"user32"Alias"GetClassNameA" (ByVal hWnd AsLong, ByVal lpClassName AsString, ByVal nMaxCount AsLong) AsLong
PrivateDeclareFunction GetMenu Lib"user32" (ByVal hWnd AsLong) AsLong
PrivateDeclareFunction GetWindowText Lib"user32"Alias"GetWindowTextA" (ByVal hWnd AsLong, ByVal lpString AsString, ByVal cch AsLong) AsLong
PrivateDeclareFunction GetWindowTextLength Lib"user32"Alias"GetWindowTextLengthA" (ByVal hWnd AsLong) AsLong
PrivateDeclareFunction GetWindowThreadProcessId Lib"user32" (ByVal hWnd AsLong, ByVal lpdwProcessID AsLong) AsLong
PrivateDeclareFunction OpenProcess Lib"kernel32" (ByVal dwDesiredAccess AsLong, ByVal bInheritHandle AsLong, ByVal dwProcessId AsLong) AsLong
PrivateDeclareFunction SendMessageLong& Lib"user32"Alias"SendMessageA" (ByVal hwnd AsLong, ByVal wMsg AsLong, ByVal wParam AsLong, ByVal lParam AsLong)
PrivateDeclareFunction TerminateProcess Lib"kernel32" (ByVal hProcess AsLong, ByVal uExitCode AsLong) AsLong

Const PROCESS_ALL_ACCESS = (&H439)
Const WM_CLOSE = (&H10)
Dim hProcess, hWnd, Tl, i AsLong

PublicFunction GetHandleByClass(ByVal lpClass AsString) AsLong
GetHandleByClass = FindWindow(lpClass, vbNullString)
EndFunction

PublicFunction GetHandleByCaption(ByVal lpCaption AsString) AsLong
GetHandleByCaption = FindWindow(vbNullString, lpCaption)
EndFunction

PublicFunction GetClassByHandle(ByVal hWnd AsLong) AsString
Tl = 256
GetClassByHandle = Space(Tl - 1)
Tl = GetClassName(hWnd, GetClassByHandle, Tl)
GetClassByHandle = Left(GetClassByHandle, Tl)
EndFunction

PublicFunction GetClassByCaption(ByVal lpCaption AsString) AsString
Tl = 256
GetClassByCaption = Space(Tl - 1)
Tl = GetClassName(GetHandleByCaption(lpCaption), GetClassByCaption, Tl)
GetClassByCaption = Left(GetClassByCaption, Tl)
EndFunction

PublicFunction GetCaptionByHandle(ByVal hWnd AsLong) AsString
Tl = GetWindowTextLength(hWnd)
GetCaptionByHandle = Space(Tl)
Call GetWindowText(hWnd, GetCaptionByHandle, Tl + 1)
EndFunction

PublicFunction GetCaptionByClass(ByVal lpClass AsString) AsString
Tl = GetWindowTextLength(FindWindow(lpClass, vbNullString))
GetCaptionByClass = Space(Tl)
Call GetWindowText(FindWindow(lpClass, vbNullString), GetCaptionByClass, Tl + 1)
EndFunction

PublicFunction GetPIDByHandle(ByVal hWnd AsLong) AsLong
Call GetWindowThreadProcessId(hWnd, GetPIDByHandle)
EndFunction

PublicFunction GetPIDByClass(ByVal lpClass AsString) AsLong
Call GetWindowThreadProcessId(GetHandleByClass(lpClass) , GetPIDByClass)
EndFunction

PublicFunction GetPIDByCaption(ByVal lpCaption AsString) AsLong
Call GetWindowThreadProcessId(GetHandleByCaption(lpCapt ion), GetPIDByCaption)
EndFunction

PublicFunction GethProcessByHandle(ByVal hWnd AsLong) AsLong
GethProcessByHandle = OpenProcess(PROCESS_ALL_ACCESS, False, GetPIDByHandle(hWnd))
'CloseHandle GethProcessByHandle 'This was for debugging only
EndFunction

PublicFunction GethProcessByClass(ByVal lpClass AsString) AsLong
GethProcessByClass = OpenProcess(PROCESS_ALL_ACCESS, False, GetPIDByClass(lpClass))
'CloseHandle GethProcessByClass 'This was for debugging only
EndFunction

PublicFunction GethProcessByCaption(ByVal lpCaption AsString) AsLong
GethProcessByCaption = OpenProcess(PROCESS_ALL_ACCESS, False, GetPIDByCaption(lpCaption))
'CloseHandle GethProcessByCaption 'This was for debugging only
EndFunction

PublicFunction GethProcessByPID(ByVal pID AsLong) AsLong
GethProcessByPID = OpenProcess(PROCESS_ALL_ACCESS, False, pID)
'CloseHandle GethProcessByPID 'This was for debugging only
EndFunction

PublicFunction GetMenuByHandle(ByVal hWnd AsLong) AsLong
GetMenuByHandle = GetMenu(hWnd)
EndFunction

PublicFunction GetMenuByClass(ByVal lpClass AsString) AsLong
GetMenuByClass = GetMenu(GetHandleByClass(lpClass))
EndFunction

PublicFunction GetMenuByCaption(ByVal lpCaption AsString) AsLong
GetMenuByCaption = GetMenu(GetHandleByCaption(lpCaption))
EndFunction

PublicFunction KillProcessByHandle(ByVal hWnd AsLong) AsLong
hProcess = GethProcessByHandle(hWnd)
KillProcessByHandle = TerminateProcess(hProcess, 0)
CloseHandle(hProcess)
EndFunction

PublicFunction KillProcessByClass(ByVal lpClass AsString) AsLong
hProcess = GethProcessByClass(lpClass)
KillProcessByClass = TerminateProcess(hProcess, 0)
CloseHandle(hProcess)
EndFunction

PublicFunction KillProcessByCaption(ByVal lpCaption AsString) AsLong
hProcess = GethProcessByCaption(lpCaption)
KillProcessByCaption = TerminateProcess(hProcess, 0)
CloseHandle(hProcess)
EndFunction

PublicFunction KillProcessByPID(ByVal pID AsLong) AsLong
hProcess = GethProcessByPID(pID)
KillProcessByPID = TerminateProcess(hProcess, 0)
CloseHandle(hProcess)
EndFunction


Sva vremena su GMT +2. Sada je 02:13.

Powered by vBulletin®
Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
© 1999-2024 PC Ekspert - Sva prava pridržana ISSN 1334-2940
Ad Management by RedTyger