[ Pharos @ 12.02.2004. 15:42 ] @
Napravio sam neki programcic za gasenje odredjenih windows aplikacija.
Evo i source ako nekog zanima.
Napravi se modul sledece sadrzine

Option Explicit

Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Public Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

Private Const WM_CLOSE = &H10


Public Function ShutDownApplication(ByVal ApplicationName As String) As Boolean

Dim hWnd As Long, Result As Long
hWnd = FindWindow(vbNullString, ApplicationName)
If hWnd <> 0 Then
Result = PostMessage(hWnd, WM_CLOSE, 0&, 0&)
ShutDownApplication = True
End If

End Function

Public Function FileName(WithPath)
Dim WithoutPath, AllLen, Where As String
WithoutPath = WithPath
Do Until InStr(WithoutPath, "\") = 0
AllLen = Len(WithoutPath)
Where = InStr(WithoutPath, "\")
WithoutPath = Right(WithoutPath, AllLen - Where)
Loop
FileName = WithoutPath
End Function

Zatim ubacim jednu formu sa check box-om i timer-om:

Option Explicit
Dim Worked As Boolean

Private Sub Timer1_Timer()
If Check1.Value = 1 Then Worked = ShutDownApplication("ovde ide ime aplikacije")
End Sub

E sada... Ovo sve fino i savrseno radi. Stavim formu da bude nevidljiva i ona mi radi u pozadini Winows-a sprecavajuci otvaranje date aplikacije. Medjutim kada pokrenem neke igrice (ne sve) ovo vise ne radi i aplikacijama je dozvoljeno ponovno startovanje. Kako da namestim da mi je program stalno aktivan i posle ulaska i izlaska iz odredjenih igara ili programa? Nesto slicno kao oni programcici u PC igraonicama. Sta to jos treba dodati ovom programu?
P>S>
Nadam se da vas nisam smorio i da ste razumeli moje pitanje.
Hvala jos jednom.
[ mladenovicz @ 12.02.2004. 16:11 ] @
FindWindow kao drugi parametar prima winodow title, a ne ime aplikacije, tako da ti je verovatno to problem.
[ Pharos @ 12.02.2004. 17:00 ] @
Citat:
mladenovicz:
FindWindow kao drugi parametar prima winodow title, a ne ime aplikacije, tako da ti je verovatno to problem.


Mislim da nisi razumeo moje pitanje jer nisam mozda bio najjasniji. Nije problem u FindWindow jer program gasi sve aplikacije ciji je WindowTitle naveden u onim zagradicama u chekbox-u. Ne znam kako bih objasnio problem...
Dok je program startovan i forma programa je nevedljiva (Me.Hide), program radi u pozadini racunara (aktivan je) i timer proverava sve WindowsTitle-ove i gasi samo one koji su navedeni u CheckBox-u. Medjutim kada startujem neku igricu i izadjem posle iz nje, program ostaje i dalje startovan ali vise ne radi u pozadini. Nije aktivan ili tajmer nije aktivan. Nesto od toga je. To mi se nikad nije desavalo sa aplikativnim software-om. Posle svakog startovanja nekog programa kao sto je Calcutor iz Windows-a, moj program ostaje aktivan u pozadini i i dalje radi radnju, znaci proverava WindowTitle, samo sto ga eto igrice malo cimaju.
Znaci kako da namestim da posle izlazenja iz igrice moj program i dalje ostane aktivan? Sigurno ima neke veze ili sa modulom ili sa Registry-om ali mislim da ce pre biti sa Registry-om ako nije nesto trece.
[ mladenovicz @ 12.02.2004. 17:26 ] @
E sad kontam :).

Probaj da utvrdis tacno sta se desava. Upisuj u neki log fajl trenutno vreme svaki put kad se timer okine, i upisuj da li je nasao prozor ili ne. Onda reprodukuj problem, pa pogledaj log fajl.
[ Vaxter @ 20.02.2004. 11:41 ] @
U pitanju su igrice sa OpenGL-om.
On je i meni pragvio slichne probleme sa nekim aplikacijama.
Nazalost ni ja nisam uspeo sve lepo da otklonim. :(
Jedino shto sam do kraja uradio je da tajmer gasi te aplikacije na odredjeno vreme preko taskkill.exe, ali to hoce da vuche puno memorije!
Prosto memorija curi!
Tako nisam mogao ni da podignem x-lock pod Linuxom u koliko je otvorena neka igrica sa OpenGL-om.
Javicu ako uspem neshto da uradim.