Par početnički pitanja!

[ VRKY @ 02.12.2004. 21:57 ] @

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)

[ reiser @ 02.12.2004. 22:30 ] @

Ide ovako :

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

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

[ VRKY @ 02.12.2004. 22:36 ] @

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

[ dogriz @ 03.12.2004. 08:14 ] @

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

[ VRKY @ 03.12.2004. 13:56 ] @

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

[ bancika @ 03.12.2004. 14:06 ] @

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

[ sasas @ 03.12.2004. 14:10 ] @

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.

[ Srki_82 @ 03.12.2004. 15:06 ] @

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

[ VRKY @ 03.12.2004. 16:41 ] @

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?

[ reiser @ 03.12.2004. 17:53 ] @

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

[ VRKY @ 03.12.2004. 18:46 ] @

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

[ VRKY @ 03.12.2004. 19:18 ] @

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)

[ reiser @ 04.12.2004. 00:03 ] @

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.

[ VRKY @ 04.12.2004. 12:33 ] @

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

[ reiser @ 04.12.2004. 12:44 ] @

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

[ VRKY @ 04.12.2004. 20:31 ] @

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

[ reiser @ 04.12.2004. 23:55 ] @

http://www.elitesecurity.org/tema/48528

[ VRKY @ 05.12.2004. 06:34 ] @

Hvala, sad ću pogledati.