Istnieje mo?żliwość

0

No waśnie istnieje możliwość napisania programu w delphi który uniemożliwiaół by w win xp włączenie się programu gmt.exe który sie ładuje w procesy i włancza strony gadatora.(uwaga to nie jest wirus)A jak istanieje to jak to zrobić.

0

Za bardzo sie na tym nie znam, ale teoretycznie to mogło by być tak:

  • twoj programik siedzi gdzies w tle (albo jak tam chcesz)
  • kiedy znasz nazwe procesu jest mozliwosc jego zamkniecia ale teraz ci nie powiem jak to było bo nie pamiętam
  • twój program może probować zamykać taki proces na przykład co 10s wtedy nie trzeba by sie bawic w zadne sprawdzanie czy proces jest uruchomiony

Za bardzo sie na tym jeszcze nie znam więc prosze bez linczu ;-)

0

krotko mowiac - istnieje.

ja jednak nie zrobilbym tego do konca tak jak Szanowny Krukers;)
Killowanie procesow, ktorych nie ma wydaje mi sie troszke nielogiczne a poza tym moze powodowac bledy, ktorych obsluge musielibysmy uwzglednic(mam nadzieje ze to nie jest lincz :-P )
Jednak co do reszty to zgadzam sie z Krukersem.
Tworzysz program, ktory sobie siedzi w systemie i z pewnym interwalemco pwien okres czasu) sprawdza jakie procesy sa w systemie, a dokladniej mowiac sprawdza czy w systemie jest proces, ktory chcesz zamknac. Jesli tak to go zamykasz.

Jak to zrobic?

jesli wykarzesz odrobine cierpliwosci to podam Ci kod bo napisalem kiedys podobny program, tylko musze go znalezc. A zeby go znalezc to musze sobie przypomniec jak sie nazywa [wstyd]

Pozdrawiam:)

0

to spoko :-) :-) [browar]

0

to jak a może jakaś funkcja albo coś takiego???? [???] [???]

0

Mowilem zebys wykazal cierpliwosc....

Znalazlem ten program, a teraz do dziela:

function TForm1.SprawdzajProcesy(Proces: String):Boolean;
var
_HWND : THandle;
Proc : TProcessEntry32;

begin
//pobierz aktualnie uruchomione procesy
_HWND := CreateToolHelp32SnapShot(TH32CS_SNAPALL,0);
Proc.dwSize:=SizeOf(Proc); // okresl rozmiar
if Integer(Process32First(_HWND, Proc)) 0 then
repeat
//wyciagnij nazwe akutalnie sprawdzanego procesu
If (ExtractFileName(Proc.szExeFile)=Proces+'.EXE') then
SprawdzajProcesy:=True;
else
SprawdzajProcesy:=False;
// dopoki wartosc nie osiagnie 0
until Integer(Process32Next(_HWND, Proc)) = 0;
end;

a oto jak wykorzystujesz ta funkcje:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
//podajesz nazwe procesu bez .EXE
if SprawdzajProcesy(TUNAZWATWOJEGOPROCESU) then
//skilluj proces
end;

Mam nadzieje, ze ze zmeczenia niczego nie pomieszalem powinno dzialac. Jak zamykac procesy to sam sobie sprawdz, bo ja juz dzisiaj nie mam sily...

pozdrawiam

Wodzu

1 użytkowników online, w tym zalogowanych: 0, gości: 1