[es] - Ubijanje explorera

Whois

Član broj: 92214
Poruke: 37
*.panet.co.yu.

Profil

^{10.05.2006. u 18:23 - pre 218 meseci}

Ima li ko iskustva sa ubijanjem explorera u delphiju?

Problem je sledeci: Delphi sve lepo odradi ubije proces, ali se posle 1-2 sekunde explorer ponovo sam ukljuci i sve vrati na staro stanje.
Kada proces ubijem iz Task managera sve je ok.

Neka ideja?

Odgovor na temu

protector1990

Član broj: 92159
Poruke: 10
212.62.51.*

Profil

Re: Ubijanje explorera

^{17.05.2006. u 14:16 - pre 218 meseci}

Pokusaj sledece: napravi jedan timer sa intervalom 50 ms i stavi mu da ponavlja ubijanje explorer-a.
Pozdrav

Odgovor na temu

reiser

Član broj: 7895
Poruke: 2314

+102 Profil

Re: Ubijanje explorera

^{17.05.2006. u 17:14 - pre 218 meseci}

Da si pretrazio forum nasao bi.

Code:

//
// Ubija proces
//
function KillProcess(const APID : DWORD) : Boolean;
var
 procHandle : THandle;
begin
 procHandle := OpenProcess(PROCESS_TERMINATE, FALSE, APID);
 If procHandle <> 0 Then
 Begin
 result := TerminateProcess(procHandle, 0);
 CloseHandle(procHandle);
 End;
end;

//
// Vraca PID
//
function GetProcessID(const AProcessName : String) : DWORD;
var
 snapHandle : THandle;
 procData : TProcessEntry32;
begin
 snapHandle := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);

 If snapHandle <> 0 Then
 Begin
 procData.dwSize := SizeOf(TProcessEntry32);
 If Process32First(snapHandle, procData) Then
 Begin
 If LowerCase(procData.szExeFile) = LowerCase(AProcessName) Then
 Begin
 result := procData.th32ProcessID;
 CloseHandle(snapHandle);
 End;

 While Process32Next(snapHandle, procData) Do
 If LowerCase(procData.szExeFile) = LowerCase(AProcessName) Then
 Begin
 result := procData.th32ProcessID;
 CloseHandle(snapHandle);
 End;
 End;
 CloseHandle(snapHandle);
 End;
end;

I onda stavis KillProcess(GetProcessID('explorer.exe'));.

_{[Ovu poruku je menjao reiser dana 17.05.2006. u 18:16 GMT+1]}

Odgovor na temu

Whois

Član broj: 92214
Poruke: 37
*.panet.co.yu.

Profil

Re: Ubijanje explorera

^{17.05.2006. u 22:54 - pre 218 meseci}

@protector
to je ozbiljan program koji nema ni vremena da to radi 20 puta u sekundi, i ako je to jedino moguce resenje odga ga sigurno ne bi koristio. Jednostavno nije u mom stilu.

@reiser
procitao sam ja forum, ali ne znam sta ti nije jasno iz moje prve recenice. Imam te funkcije i jos 20 slicnih nacina da ubijem proces, ali on se vrati. Svi ti programi rade sa ne-windows aplikacijama koje se ne restartuju i tada sve radi ok. Zato je moje pitanje bilo koji proces treba da se ubije da prestane ta provera i ponovno startovanje kljucnih win servisa.

Poznato mi je resenje sa poleditom i menjanjem shella itd., ali ja trazim neko jednostavnije resenje koje bi islo iz programa a ne da cackam po sistemu svakog kompjutera.

_{[Ovu poruku je menjao Whois dana 17.05.2006. u 23:57 GMT+1]}

Odgovor na temu

godscrusher1990
Milos Popovic
heaven

Član broj: 58086
Poruke: 11
*.smin.sezampro.yu.

Profil

Re: Ubijanje explorera

^{25.05.2006. u 21:00 - pre 218 meseci}

Kako da deklarisem jer mi za killprocess pise undeclared identifier.Molim za pomoc

Odgovor na temu

reiser

Član broj: 7895
Poruke: 2314

+102 Profil

Re: Ubijanje explorera

^{26.05.2006. u 05:28 - pre 218 meseci}

Pa dao sam ti gore obe funkcije.

Odgovor na temu

Whois

Član broj: 92214
Poruke: 37
*.panet.co.yu.

Profil

Re: Ubijanje explorera

^{26.05.2006. u 06:33 - pre 218 meseci}

stavi: uses tlhelp32;

Odgovor na temu

godscrusher1990
Milos Popovic
heaven

Član broj: 58086
Poruke: 11
*.com
Via: [es] mailing liste

Profil

Re: Ubijanje explorera

^{26.05.2006. u 14:15 - pre 218 meseci}

Da da ali i dalje mi je za killprocess i za processID Undeclared
identifier.Imas li resenje

------=_Part_113_2826431.1148642848666
Content-Type: text/html; charset=ISO-8859-1
Content-Transfer-Encoding: quoted-printable
Content-Disposition: inline

 <div>On 5/26/06, Whois <<a href="mailto:[email protected]">[email protected]</a>> wrote:<blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">
stavi: uses tlhelp32; -- <a href="http://www.elitesecurity.org/poruka/1160513">http://www.elitesecurity.org/poruka/1160513</a> Prijave/odjave: <a href="http://www.elitesecurity.org/pracenje#176135">http://www.elitesecurity.org/pracenje#176135
</a> Ne menjajte sledece dve linije ukoliko odgovarate putem emaila! esauth:176135:727170c13a9e222dc85340c72632b143 Odgovor pisite *iskljucivo* ispod ove linije:</blockquote><div> Da da ali i dalje mi je za killprocess i za processID Undeclared
identifier.Imas li resenje </div> </div> 

------=_Part_113_2826431.1148642848666--

Odgovor na temu

reiser

Član broj: 7895
Poruke: 2314

+102 Profil

Re: Ubijanje explorera

^{26.05.2006. u 14:35 - pre 218 meseci}

Pojasni malo ako mozes gde je problem... ?

Odgovor na temu

obucina

Član broj: 38191
Poruke: 723

Jabber: obucina

+7 Profil

Re: Ubijanje explorera

^{28.05.2006. u 01:09 - pre 218 meseci}

A da ne startujes Explorer uopste, tj da zamenis shell?

Odgovor na temu

Whois

Član broj: 92214
Poruke: 37
*.panet.co.yu.

Profil

Re: Ubijanje explorera

^{28.05.2006. u 07:16 - pre 218 meseci}

Tako i radim, ali sam mislio da cu moci to da uradim iz programa koji bi privilegovanim korisnicima omogucavao ukljucivanje i iskljucivanje eksplorera u bilo kom trenutku.

Odgovor na temu

martinj
Martin Jeremic
Nis

Član broj: 39299
Poruke: 86
*.smin.sezampro.yu.

Sajt: www.onedevteam.com

+2 Profil

Re: Ubijanje explorera

^{16.06.2006. u 00:38 - pre 217 meseci}

Mozda sam nesto pobrljao u kodu, ali ovo

Code:

//
// Vraca PID
//
function GetProcessID(const AProcessName : String) : DWORD;
var
 snapHandle : THandle;
 procData : TProcessEntry32;
begin
 snapHandle := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);

 If snapHandle <> 0 Then
 Begin
 procData.dwSize := SizeOf(TProcessEntry32);
 If Process32First(snapHandle, procData) Then
 Begin
 If LowerCase(procData.szExeFile) = LowerCase(AProcessName) Then
 Begin
 result := procData.th32ProcessID;
 CloseHandle(snapHandle);
 End;

 While Process32Next(snapHandle, procData) Do
 If LowerCase(procData.szExeFile) = LowerCase(AProcessName) Then
 Begin
 result := procData.th32ProcessID;
 CloseHandle(snapHandle);
 End;
 End;
 CloseHandle(snapHandle);
 End;
end;

ne radi...

Radi kada se napise ovako

http://www.onedevteam.com/
http://www.skuvajme.com/

Odgovor na temu