[es] - Primer za rad sa registrima...

Vladica Savić
Software Developer
Toronto, Canada

Član broj: 26699
Poruke: 654

+5 Profil

^{04.09.2005. u 09:31 - pre 226 meseci}

Pozdrav ljudi, pre nekog vremena sam pokrenuo neke teme vezane za rad sa registrima, naravno dobio i odgovore, ali me zanima da li ja negde gresim, ili je nesto drugo u pitanju jer kad pokusam da izmenim sadrzaj nekog registra tako sto napravim program u Delphi-u koji ce da umesto na primer u HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\WindowsNT\CurrentVersion\Winlogon u delu Shell da umesto Explorer.exe ubaci moj program jednostavno nista se ne desava.

Ako nije problem neka mi neko posalje projekat >primer< za ovo
>>on ne bi trebalo da je veci od oko 50Kb do 100Kb<<

Unapred hvala i pozdrav

My IT View Of Life-BrLOG-Delphi for PHP

» LinkedIn

Odgovor na temu

defufna
Novi Sad

Član broj: 35112
Poruke: 167
*.pat-pool.nsad.sbb.co.yu.

Jabber: defufna@jabber.papla.pl

Profil

Re: Primer za rad sa registrima...

^{04.09.2005. u 19:04 - pre 226 meseci}

Kada istim kodom menjas neki manje vazan key.. na primer neki koji si sam napravio sa regeditom u Current User\Software\Mojkljuc da li se nesto desava ? ako mozes pastuj kod koji koristis

Sobe, apartmani u Crnoj Gori
http://www.123montenegro.com

Odgovor na temu

Vladica Savić
Software Developer
Toronto, Canada

Član broj: 26699
Poruke: 654

+5 Profil

Re: Primer za rad sa registrima...

^{06.09.2005. u 11:08 - pre 226 meseci}

Ovo je kod koji sam dobio sa jednog prethodnog foruma koji sam postavio i koji sam iskoristio da bih uradio gore navedeno...

Code:
var
Registry: TRegistry;
begin
Registry := TRegistry.Create();
Registry.RootKey := HKEY_CURRENT_USER;
if Registry.OpenKey('\Putanja Do Kljuca\', False) then
begin
Registry.WriteString('ImeKljuca', 'C:\Moj_Program.exe');
Registry.CloseKey;
Registry.Free;
end;
end;

Ali jednostavno nesto nece da mi stima tu...

Neka mi neko objasni sta tacno da ubacim umesto ovog da bi program mogao da radi uspesno...

A da koristio sam i ovo ali nece da stima

Code:
uses
Windows;

var
hndKey : HKEY;
tmp : String;
begin
If RegOpenKeyEx(HKEY_LOCAL_MACHINE,
'SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon',
0,
KEY_ALL_ACCESS,
hndKey) = ERROR_SUCCESS Then
Begin
tmp := '"C:\putanja_do_novog_shella.exe"';

RegSetValueEx(hndKey,
'Shell',
0,
REG_SZ,
PAnsiChar(tmp),
Length(tmp));
RegCloseKey(hndKey);
End;
end;

Pomagajte...

My IT View Of Life-BrLOG-Delphi for PHP

» LinkedIn

Odgovor na temu

reiser

Član broj: 7895
Poruke: 2314

+102 Profil

Re: Primer za rad sa registrima...

^{06.09.2005. u 15:49 - pre 226 meseci}

Ne razumem sta nece da ti stima.

Code:

uses
Windows;

var
hndKey : HKEY;
tmp : String;
begin
If RegOpenKeyEx(HKEY_LOCAL_MACHINE,
'SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon',
0,
KEY_ALL_ACCESS,
hndKey) = ERROR_SUCCESS Then
Begin
tmp := '"C:\putanja_do_novog_shella.exe"';

RegSetValueEx(hndKey,
'Shell',
0,
REG_SZ,
PAnsiChar(tmp),
Length(tmp));
RegCloseKey(hndKey);
End;
end;

Ovaj kod radi (znam jer sam ga ja napisao :)). Samo je pitanje gde ti hoces da "ubacis". Ako hoces recimo na OnClick event za neki TButton, onda postavi dugme na formu, dupli klik na njega i samo paste ovaj kod:

Code:

var
  hndKey : HKEY;
  tmp    : String;
begin
  If RegOpenKeyEx(HKEY_LOCAL_MACHINE, 'SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon', 0, KEY_ALL_ACCESS, hndKey) = ERROR_SUCCESS Then
  Begin
    tmp := '"C:\putanja_do_novog_shella.exe"';

    RegSetValueEx(hndKey, 'Shell', 0, REG_SZ, PAnsiChar(tmp), Length(tmp));
    RegCloseKey(hndKey);
  End;

Ako ovo ne radi, verovatno nemas dovoljne privilegije za pristup registry bazi. Ili koristis neki od 9x sistema.

Odgovor na temu

Vladica Savić
Software Developer
Toronto, Canada

Član broj: 26699
Poruke: 654

+5 Profil

Re: Primer za rad sa registrima...

^{07.09.2005. u 05:59 - pre 226 meseci}

Sve je OK sad

Imao sam problema sa pristupom registar bazi zbog nekog glupog Tweaking programa, ali kao sto sam rekao sad sve radi...

Hvala na pomoci...

_{[Ovu poruku je menjao VladaLe dana 07.09.2005. u 07:00 GMT+1]}

My IT View Of Life-BrLOG-Delphi for PHP

» LinkedIn

Odgovor na temu