[es] - Pisanje u registry bazu

Duke Nukem
Miroslav Mitic
dipl.mas.ing - tehnolog za hidrauliku/ REL, MAG panci..
Lazarevac

Član broj: 38933
Poruke: 115
*.absolutok.net.

Sajt: www.sezampro.yu/~agro.sof..

Profil

Pisanje u registry bazu

^{19.12.2004. u 22:59}

Da li neko zna zasto ovo parce koda ( kompajlovao BC++ Buileder 1 ) nece da otvori novi kljuc u registry i upise string

String temp = "test";
try
{
reg= new TRegistry;

reg->CreateKey("\\HKEY_LOCAL_MACHINE\\Software\\Microsoft\\Windows\\CurrentVersion\\RunOnce\\Test");
if (reg->OpenKey("\\Software\\Microsoft\\Windows\\CurrentVersion\\RunOnce\\Test", true))
{
reg->WriteString("Test", temp);
reg->CloseKey();
}
}
catch(...)
{
Application->MessageBox("Problemi sa registry", "Naslov", IDIGNORE);
}
delete reg;

// predpostavljam da je problem trivijalan
// Hvala unapred

Tape loading error

^{19.12.2004. u 22:59}

reiser
Vranje

Član broj: 7895
Poruke: 1892
*.neobee.net.

Profil

Re: Pisanje u registry bazu

^{19.12.2004. u 23:08}

Verovatno lupam, ali zar CreateKey() vec ne vraca handle do key-a koji kreiras, tako da ti je pozivanje OpenKey() bespotrebno ??

^{19.12.2004. u 23:08}

Miloš Vukotić
Podgorica

Član broj: 7996
Poruke: 485
195.66.163.*

Profil

Re: Pisanje u registry bazu

^{20.12.2004. u 10:24}

Sad, ne znam da li si pisao kod ponovo ili paste-ovao ovdje, ali ovo mi prvo pada u oci:

Code:
reg= new TRegistry;

Treba da stoji:

Code:
TRegistry *reg=new TRegistry;

Dalje, za novi TRegistry objekat, default je HKCU tj. moras pozvati i ovo:

Code:
reg->RootKey=HKEY_LOCAL_MACHINE;

nakon toga mozes da izbacis CreateKey tj. dovoljno je da stavis:

Code:
if(reg->OpenKey("Software\\Microsoft\\Windows\\CurrentVersion\\RunOnce\\Test", true))
{
...
}

i ovo 'true' ce ti "zavrsiti posao" tj. ako kljuc ne postoji, kreirace ga...

Na kraju, provjeri da ti nije kreirao kljuc:
HKEY_CURRENT_USER\HKEY_LOCAL_MACHINE\Software\... ;) :)

^{20.12.2004. u 10:24}

Duke Nukem
Miroslav Mitic
dipl.mas.ing - tehnolog za hidrauliku/ REL, MAG panci..
Lazarevac

Član broj: 38933
Poruke: 115
*.absolutok.net.

Sajt: www.sezampro.yu/~agro.sof..

Profil

Pisanje u registry bazu

^{20.12.2004. u 22:38}

Hvala svima
napomena reg je vec bio deklarisan kao pointer u globalnim prom.
Probao sam Milosev nacin pre nego sto zam zapoceo temu, izgleda da je problem u registry --> RunOnce folderu. Jos uvek ga nisam provalio, ali izgleda da windows nakon startovanja brise sve vrednosti iz njega, tako da ga ne mozemo videti kada startujemo regedit.
Pozdrav svim ljubiteljima Borland C++ kompajlera.

Tape loading error

^{20.12.2004. u 22:38}

Duke Nukem
Miroslav Mitic
dipl.mas.ing - tehnolog za hidrauliku/ REL, MAG panci..
Lazarevac

Član broj: 38933
Poruke: 115
*.yu
Via: [es] mailing liste

Sajt: www.sezampro.yu/~agro.sof..

Profil

Re: Pisanje u registry bazu

^{21.12.2004. u 22:10}

>
>
>
Postovani
Hvala ti na sugestijama, nakon izvesnog eksperimentisanja doneo sam
sledece zakljucke (Windows XP )
1. Problem je kljuc HKCUHKEY_LOCAL_MACHINESoftware...,
umesto njega treba pisati u kljuc Reg->RootKey = HKEY_CURRENT_USER;
i problema nema! Naime pravio sam aplikaciju koja se sama startuje ako
je bila iskljucena metodom nestanka struje napr.
2. Reg je definasan ranije kao pokazivac u globalu, a deo koda prikazan
na konferenciji je pastovan kao sto si dobro primetio.
Sada sve to lepo radi a kompletnu funkciju ti saljem pa mozes da je
nekada upotrebis

void TfrmMain::SetRegistry(int value)
{
TRegistry *Reg = new TRegistry;
try
{
Reg->RootKey = HKEY_CURRENT_USER;
if
(Reg->OpenKey("\Software\Microsoft\Windows\CurrentVersion\RunOnce",
true))
{
Reg->WriteString("MyPcProgram",""" + ParamStr(0) + """);
Reg->WriteInteger("Tip",value);
Reg->CloseKey();
}
}
catch(...)
{
//
}
delete Reg;
}

hvala : -)

Tape loading error

^{21.12.2004. u 22:10}

NastyBoy
Bojan Nastic
UK

Član broj: 12041
Poruke: 881
*.plus.com.

Profil

Re: Pisanje u registry bazu

^{21.12.2004. u 23:18}

Citat:

Probao sam Milosev nacin pre nego sto zam zapoceo temu, izgleda da je problem u registry --> RunOnce folderu. Jos uvek ga nisam provalio, ali izgleda da windows nakon startovanja brise sve vrednosti iz njega, tako da ga ne mozemo videti kada startujemo regedit.

Bash tako. "RunOnce" tome i sluzhi, da se uskladishte privremeni programi koje treba startovati samo jednom pri butovanju Windows-a i nikad vishe (korisno za instalacione programe, na primer)
Ako zhelish da se tvoj program startuje uvek sa Windows-om, napravi kljuch u "Run" grani.

^{21.12.2004. u 23:18}

Miloš Vukotić
Podgorica

Član broj: 7996
Poruke: 485
195.66.163.*

Profil

Re: Pisanje u registry bazu

^{22.12.2004. u 07:22}

Hvala :)
BTW, primjer koji sluzi upravo tome sto tebi treba (iz bcb help-a):
The following example shows how to tell Windows to relaunch your application when Windows starts up if it was running when the system shut down.
When Windows starts up, it launches each application listed in the RunOnce key and then deletes the entry for that application. Therefore, you do not need to remove the entry written here.

Code:

void __fastcall TForm1::WMEndSession(TWMEndSession &Message)
{
  TRegistry *Reg = new TRegistry;
  try
  {
    Reg->RootKey = HKEY_CURRENT_USER;
    if (Reg->OpenKey("\\Software\\Microsoft\\Windows\\CurrentVersion\\RunOnce", true)
    {
      Reg->WriteString("MyApp","\"" + ParamStr(0) + "\"");
      Reg->CloseKey();
    }
  }
  __finally
  {
    delete Reg;
    TForm::WMEndSession(Message);

  }
}

In order for this method to be called, it must be declared in your main form class as follows:

Code:

class PACKAGE TForm1 : public TForm

{
...
protected:

BEGIN_MESSAGE_MAP
MESSAGE_HANDLER(WM_ENDSESSION, TWMEndSession, WMEndSession)
END_MESSAGE_MAP(TForm)
};

^{22.12.2004. u 07:22}