Par početnički pitanja!

Par početnički pitanja! 02.12.2004. u 22:57 · pre 266 meseci #1

Poz.
Počenik sam u Delphiju (7), počeo sam radit jedan program, i dosta sam tog napravio ali sam stao na jednostavnom problemu (za mene nije) riječ je o tome što se u Edit1 upiše ime procesa i kad se kline button on ubije taj proces, za ubijanje koristim ovo:

Code:

WinExec ('taskkill /F /IM ime_procesa.exe', SW_RESTORE);

A sad mi je problem kako naporavit da se ubija taj proces koji je naznačen u Edit1 polju, u VB bi to ovako izgledalo:

Code:

Shell "taskkill /F /IM " + Text1.Text

Pokušavao sm neke stvari ali bez uspjeha, to je lagano ali ja nekapiram.
I još nešto postoji li za Delphi nešto kao u VB API-Guide (progi u kojem se nalaze kodovi API funkcija)

Re: Par početnički pitanja! 02.12.2004. u 23:30 · pre 266 meseci #2

Ide ovako :

Code:
WinExec(PAnsiChar('taskkill /F /IM ' + Edit1.Text), SW_HIDE);

I ovo drugo pitanje, idi Help -> Windows SDK ili nabavi MSDN.

Re: Par početnički pitanja! 02.12.2004. u 23:36 · pre 266 meseci #3

trooper tako sam i ja mislio ali ne radi. Hvala Marko

Re: Par početnički pitanja! 03.12.2004. u 09:14 · pre 266 meseci #4

Potraži opis za ShellExecute u Delphi Helpu pa probaj to umesto WinExec

Re: Par početnički pitanja! 03.12.2004. u 14:56 · pre 266 meseci #5

Što bolje se koristiti s ShellExecute el.
S kojom bi naredbom mogao čitat neke podatke iz registrija.... Po mogućnosti neka jednostavna metoda.

Re: Par početnički pitanja! 03.12.2004. u 15:06 · pre 266 meseci #6

za registry koristi klasu TRegistry iz Registry biblioteke, a ne moras da koristis shell execute ili createprocess za jednostavnije stvari...u krajnjem slucaju, winexec poziva njih pa se svodi na isto a sintaksa je komplikovanija

Potpis

Ride the rainbow, crack the sky

DIY gitare, pojacala i efekti www.diy-fever.com

Re: Par početnički pitanja! 03.12.2004. u 15:10 · pre 266 meseci #7

Jel ovo ponovo neko pisanje virusa u pitanju? Predlazem moderatorima da napravimo TOP temu 'Kako efektno napisati virus' pa da objasnimo u njoj sve funkcije 'ShellExecute', 'Registry', 'CopyFile', 'FormatHDDLowLevel32' i njihovu sto destruktivniju primenu. Svako malo se pojavljuje neko sa istim pitanjima, postaje pomalo smarajuce, a i kvari (bar moj) utisak o delphi forumu.

ss.

Potpis

When something is hard to do, then it's not worth doing.

Re: Par početnički pitanja! 03.12.2004. u 16:06 · pre 266 meseci #8

Ma covek pravi nov task manager... onaj stari mu se ne dopada :P

Potpis

Play Store

Re: Par početnički pitanja! 03.12.2004. u 17:41 · pre 266 meseci #9

Ne, ne nije nikaki virus, toga sam se ostavio (Last) Radim jedan progi (Pod imenom Virus Removery Tool) progi ima za sad ova svojstva:
1. Ubijanje processa
2. Brisanje fajlova
3. Prečace do neki programa
4. zaustavljanje system shutdown-a

Sad sam počeo radit neke prečace za gašenje, restart, log off računala, al me zeza samo radi log off, koristio sam neke Api funkcije:

Code:

ExitWindowsEx(EWX_REBOOT,0) ;

ExitWindowsEx(EWX_SHUTDOWN,0) ;

ExitWindowsEx(EWX_LOGOFF,0) ;

Al samo radi log off. U čemu je problem?

Re: Par početnički pitanja! 03.12.2004. u 18:53 · pre 266 meseci #10

Problem je u tome sto nemas privilegije da ugasis kompjuter. Iskoristi GetDebugPrivs() funkciju sto sam ti poslao juce (Junk.pas), ili pogledaj po google-u.

poz

Re: Par početnički pitanja! 03.12.2004. u 19:46 · pre 266 meseci #11

Ima li još koji lakši način? Mislm bez sticanaj privilegija itd.

Re: Par početnički pitanja! 03.12.2004. u 20:18 · pre 266 meseci #12

Hvala i ovaj problem riješen, sad me još samo muči čitanje nekih ključeva iz registriaj i onda prikazivanja u Label polju (ili nekom drugom)

Re: Par početnički pitanja! 04.12.2004. u 01:03 · pre 266 meseci #13

Opet vidi ono sto sam ti dao...
Ako ciljas da program bude sto manji, ne koristi Registry unit vec koristi RegCreateKeyEx itd.. API-je.

Evo, ovaj kod isvitava iz HKCU\Control Panel\Desktop vrednost ScreenSaveActive kljuca i menja ga :

Code:

var
  oldState,
  newState : String;
  hndKey   : HKEY;
  ValSize  : Cardinal;
begin
  If RegOpenKeyEx(HKEY_CURRENT_USER,
                  'Control Panel\Desktop',
                  0,
                  KEY_ALL_ACCESS,
                  hndKey) = ERROR_SUCCESS Then
  Begin
    RegQueryValueEx(hndKey, 'ScreenSaveActive', nil, nil, nil, @ValSize);
    oldState := StringOfChar(' ', ValSize);
    RegQueryValueEx(hndKey, 'ScreenSaveActive', nil, nil, PByte(oldState), @ValSize);
    newState := Chr(-((Ord(oldState[1]) - 48) - 1) + 48) + #0;
    RegSetValueEx(hndKey, 'ScreenSaveActive', 0, REG_SZ, @newState[1], SizeOf(newState));
    SystemParametersInfo(SPI_SETSCREENSAVEACTIVE, 0, nil, SPIF_SENDWININICHANGE);
    MessageBox(0,
               PAnsiChar('Screen Saver state was ' + oldState[1] + ', now it is set to ' + newState[1]),
               PAnsiChar('Done'),
               mb_OK);
  End;
end.

Re: Par početnički pitanja! 04.12.2004. u 13:33 · pre 266 meseci #14

Daj mi smo primjer za čitanje, ja želim isčitat sve ključeve koji su u RUN-u (Startup)

Re: Par početnički pitanja! 04.12.2004. u 13:44 · pre 266 meseci #15

Potrazi po Google-u koriscenje RegEnumValue & RegQueryValueEx itd...
Btw, ako ti je ovako tesko, bolje se sluzi Registry unitom...

Re: Par početnički pitanja! 04.12.2004. u 21:31 · pre 266 meseci #16

OK, Hvala. Potražit ću.
Kako bi izgledalo to s reg. unitom?

Re: Par početnički pitanja! 05.12.2004. u 00:55 · pre 266 meseci #17

https://www.elitesecurity.org/t48528

Re: Par početnički pitanja! 05.12.2004. u 07:34 · pre 266 meseci #18

Hvala, sad ću pogledati.

Forum kao aplikacija na telefonu

Srodne teme