[es] - Obustavljanje aplikacije!!!

bojan21
Bojan Zukic
Beograd

Član broj: 101113
Poruke: 251
*.45.eunet.yu.

+6 Profil

^{11.07.2006. u 14:19 - pre 216 meseci}

Da li neko moze da mi napise kod koji gasi neku pokrenutu aplikaciju!!! Na primer, ako pokrenem program C:\Program files\test.exe kako preko delphi koda da ga obustavim (trenutno)!!!! Hvala unapred!!!

Odgovor na temu

obucina

Član broj: 38191
Poruke: 723

Jabber: obucina

+7 Profil

Re: Obustavljanje aplikacije!!!

^{11.07.2006. u 17:06 - pre 216 meseci}

Prvo treba da pronađeš HWND glavnog prozora ove aplikacije. To ćeš uraditi pomoću FindWindow ili FindWindowEx funkcije.

Prvi način, regularno zatvaranje, pošalji poruku WM_CLOSE na dobijeni HWND. Čitaj MSDN za detalje.

Drugi način, ubijanje procesa, funkcija TerminateProcess. Potreban ti je ProcessID, koji ces dobiti tako sto ces sa dobijenim HWND-om pozvati GetWindowThreadProcessId. Ona ce ti vratiti ProcessID koji ces koristiti u TerminateProcess.

Kod... Pa, pomuči se malo, sve sam ti rekao :)

Odgovor na temu

bojan21
Bojan Zukic
Beograd

Član broj: 101113
Poruke: 251
*.241.eunet.yu.

+6 Profil

Re: Obustavljanje aplikacije!!!

^{12.07.2006. u 14:38 - pre 216 meseci}

E hvala ti brate!!! Pomucicu se pa cu da ti javim!!!

Odgovor na temu

bojan21
Bojan Zukic
Beograd

Član broj: 101113
Poruke: 251
*.141.eunet.yu.

+6 Profil

Re: Obustavljanje aplikacije!!!

^{14.07.2006. u 12:05 - pre 216 meseci}

Nisam uspeo!!! Evo vec 2 dana se mucim oko handlera al ne uspevam!!! Ajde malo pojasni!!!

Odgovor na temu

savkic
Igor Savkić

Moderator
Član broj: 92186
Poruke: 2739

+92 Profil

Re: Obustavljanje aplikacije!!!

^{14.07.2006. u 12:56 - pre 216 meseci}

Da bi ugasio neki proces moraš imati handle tog procesa ili handle nekog prozora koji mu pripada. Ako ti startuješ taj drugi proces onda handle možeš dobiti kao povratne vrednosti funkcija ShellExecuteEx ili CreateProcess. Dalje taj handle možeš koristiti na način koji ti je Srđan opisao ili možeš iskoristiti gotove funkcije iz Jedi biblioteke (www.delphi-jedi.org) TerminateApp i TerminateTaks. Ako ti ne startuješ taj program onda moraš proći kroz sve procese ili prozore u sistemu i identifikovati onaj koji želiš da ugasiš a dalje gašenje radiš na isti način. Biće lakše da ti pomognemo ako daš više detalja o tom drugom programu, da li ga ti startuješ i kako, ili kako ga identifikuješ.

Do not be a help vampire (http://slash7.com/pages/vampires), use the google.

How to ask questions the smart way:
http://www.catb.org/~esr/faqs/smart-questions.html
http://solair.eunet.rs/~fangor...stions/smart-questions.sr.html

Odgovor na temu

bojan21
Bojan Zukic
Beograd

Član broj: 101113
Poruke: 251
*.48.eunet.yu.

+6 Profil

Re: Obustavljanje aplikacije!!!

^{14.07.2006. u 15:33 - pre 216 meseci}

E ovako!!! Imam glavni program u kojem korisnik bira screensaver(e)!!! Prvo se startuje prvi screensaver pomocu adrese koju korisnik bira (znaci Action>Run u delphiu)!!! Posle isteka na primer 40 sekundi treba da ugasim prvi screensaver i da startujem drugi!!! E meni treba samo funkcija koja gasi taj screensaver ako ja imam putanju do njega (na primer C:\Windows\System32\sdmcs.scr)!!! Citao sam windows SDK ali ja sam poceo u delphiu da radim tek pre 2 meseca tako da ne znam mnogo!!!

Odgovor na temu

savkic
Igor Savkić

Moderator
Član broj: 92186
Poruke: 2739

+92 Profil

Re: Obustavljanje aplikacije!!!

^{14.07.2006. u 16:45 - pre 216 meseci}

> Prvo se startuje prvi screensaver pomocu adrese koju korisnik bira (znaci Action>Run u delphiu)!!!

Nisam najbolje shvatio. Koristiš li TFileRun action komponentu za odabir i startovanje screen savera? Možeš li to promeniti da screensaver startuješ na drugi način?

> E meni treba samo funkcija koja gasi taj screensaver ako ja imam putanju do njega (na primer C:\Windows\System32\sdmcs.scr)!!

Jedi biblioteka ima funkciju RunningProcessesList koja daje kompletne putanje do aktivnih procesa, pogledaj.

Odgovor na temu

opcode

Član broj: 101421
Poruke: 43
*.adsl.net.t-com.hr.

Profil

Re: Obustavljanje aplikacije!!!

^{14.07.2006. u 19:01 - pre 216 meseci}

var H:HWND;
x:integer;

H:=FindWindow(nil, PChar('test.exe');
SendMessage(H,WM_CLOSE,0,0);

Odgovor na temu

Miloš Baić
Miloš Baić
ERP (Dynamics NAV) programer
Beograd

Član broj: 72468
Poruke: 1155
*.dialup.neobee.net.

Profil

Re: Obustavljanje aplikacije!!!

^{14.07.2006. u 19:54 - pre 216 meseci}

Pozdrav,

evo, da nešto i ja dam... Nadam se da će pomoći....

Code:

PostMessage(FindWindow(Nil, 'Naziv_Forme'), WM_QUIT, 0, 0);

Naziv_Forme je "window caption", dakle, ako ti program ima naziv na
formi "Winamp", i ti ga uneseš za Naziv_Forme, ovaj kod će ga obustaviti.

BTW, nešto slično opcode - ovom kodu...

Someone's sitting in the shade today because someone planted a tree a long time ago.

Odgovor na temu

bojan21
Bojan Zukic
Beograd

Član broj: 101113
Poruke: 251
*.18.eunet.yu.

+6 Profil

Re: Obustavljanje aplikacije!!!

^{14.07.2006. u 20:36 - pre 216 meseci}

Hvala ljudi mnogo!!! Ali sta cu kad ja ne znam ime glavne forme tj screensavera jer dzaba meni njegovo ime kad moze da ima sasvim drugacije ime forme!!!

Odgovor na temu

Miloš Baić
Miloš Baić
ERP (Dynamics NAV) programer
Beograd

Član broj: 72468
Poruke: 1155
*.neobee.net.

Profil

Re: Obustavljanje aplikacije!!!

^{15.07.2006. u 02:21 - pre 216 meseci}

Ako imaš instalirano,JEDI Code Library (JCL), pogledaj primer:
jcl\examples\windows\toolhelpview!
To ti je primer, između ostalog, za Kill Process, kao u Windows Task Manager-u.

JCL & JVCL, download:
http://sourceforge.net/project...id=42327&release_id=395480

Someone's sitting in the shade today because someone planted a tree a long time ago.

Odgovor na temu

bojan21
Bojan Zukic
Beograd

Član broj: 101113
Poruke: 251
*.239.eunet.yu.

+6 Profil

Re: Obustavljanje aplikacije!!!

^{15.07.2006. u 12:13 - pre 216 meseci}

Setio sam se necega!!! Zar se screensaver ne prekida pri pokretu misa :) !!! Znaci ja samo Windowsu treba da posaljem poruku da se mis pokrenuo, zar ne!!! Da li bi to upalilo sta mislite!!!! I molim Vas za taj kod jer se snalazim sa Win porukama!!!

Odgovor na temu

bojan21
Bojan Zukic
Beograd

Član broj: 101113
Poruke: 251
*.239.eunet.yu.

+6 Profil

Re: Obustavljanje aplikacije!!!

^{15.07.2006. u 12:21 - pre 216 meseci}

Naravno da koristim TFileRun !!! Zasto bi to menjao??? Mogu da promenim ako postoji neki dobar razlog!!!

Odgovor na temu

opcode

Član broj: 101421
Poruke: 43
*.adsl.net.t-com.hr.

Profil

Re: Obustavljanje aplikacije!!!

^{15.07.2006. u 12:32 - pre 216 meseci}

Nije ti losa ona ideja... screen saver se prekida i pritiskom na neku tipku, a to mozes postic sa keybd_event =>http://msdn.microsoft.com/libr...ui40/html/cerefKeybd_event.asp

.. popis kodova tipki imas na http://msdn.microsoft.com/libr.../UserInput/VirtualKeyCodes.asp

Odgovor na temu

bojan21
Bojan Zukic
Beograd

Član broj: 101113
Poruke: 251
*.65.eunet.yu.

+6 Profil

Re: Obustavljanje aplikacije!!!

^{15.07.2006. u 13:35 - pre 216 meseci}

Tako je!!! Ali jel znas kod kojim cu poslati poruku Windowsu da se mis pokrenuo (iako nije, jer aplikacija treba sve sama da radi bez podrske korisnika!!! znaci korisnik ne pritiska nista niti pomera misa)!!!

Odgovor na temu

savkic
Igor Savkić

Moderator
Član broj: 92186
Poruke: 2739

+92 Profil

Re: Obustavljanje aplikacije!!!

^{15.07.2006. u 14:44 - pre 216 meseci}

> Naravno da koristim TFileRun !!! Zasto bi to menjao??? Mogu da promenim ako postoji neki dobar razlog!!!

Zato što ne možeš dobiti handle startovanog procesa koji bi inače mogao imati da ga sam startuješ.
Za simuliranje pritiska na tastaturi možeš koristiti keybd_event ili SendInput.

Odgovor na temu

opcode

Član broj: 101421
Poruke: 43
*.adsl.net.t-com.hr.

Profil

Re: Obustavljanje aplikacije!!!

^{15.07.2006. u 15:21 - pre 216 meseci}

Citat:

bojan21: Tako je!!! Ali jel znas kod kojim cu poslati poruku Windowsu da se mis pokrenuo (iako nije, jer aplikacija treba sve sama da radi bez podrske korisnika!!! znaci korisnik ne pritiska nista niti pomera misa)!!!

Nisam te najbolje shvatio.. zasto ti treba da se mis sam mice?

Odgovor na temu

bojan21
Bojan Zukic
Beograd

Član broj: 101113
Poruke: 251
*.90.eunet.yu.

+6 Profil

Re: Obustavljanje aplikacije!!!

^{15.07.2006. u 17:45 - pre 216 meseci}

@ Opcode: Pa treba mi jer program sam treba da menja screensaver-e bez ikakve aktivnosti korsinika (znaci korisnik ne pomera misa niti bilo sta pritiska)!!! Ne mora on da se mice, samo da Windows 'misli' da se mice!!! @ savkic: Znaci ne mogu da ga dobijem!!! A kako sam da ga startujem, preko koje funkcije???

Odgovor na temu

opcode

Član broj: 101421
Poruke: 43
*.adsl.net.t-com.hr.

Profil

Re: Obustavljanje aplikacije!!!

^{15.07.2006. u 18:17 - pre 216 meseci}

Pa ako imas listu screensavera:
1.scr
2.scr
3.scr
4.scr
5.scr

Samo ih pokreces redom.. ne vidim razlog da bi dirao misa.. ne znam dal ti je cilj da u postavkama windowsa postavljas screensaver il kao neku "prezentaciju" da ih izredas sve...nemas zasto da diras misa..

Odgovor na temu

savkic
Igor Savkić

Moderator
Član broj: 92186
Poruke: 2739

+92 Profil

Re: Obustavljanje aplikacije!!!

^{15.07.2006. u 18:40 - pre 216 meseci}

> @ savkic: Znaci ne mogu da ga dobijem!!! A kako sam da ga startujem, preko koje funkcije???

Već sam pisao ShellExecuteEx ili CreateProcess.

Odgovor na temu