Wypisanie zawartosci klucza do TMemo

[Bishamoth]

Witam
W jaki sposob mozna wypisac cala zawartosc do komponentu TMemo z dowolnego klucza?
Przykladowo mamy klucz

Kod: Zaznacz cały

HKLM\Software\Microsoft\Windows\CurrentVersion\Run

Jak wyciagnac do TMemo jego zawartosc?

[Cyfrowy Baron]

W celu wyliczenia tylko nazw kluczy wystarczy tak:

Kod: Zaznacz cały

TRegistry *Rejestr = new TRegistry();
Rejestr->RootKey =  HKEY_LOCAL_MACHINE;
Rejestr->OpenKey("Software\\Microsoft\\Windows\\CurrentVersion\\Run", false);
Rejestr->GetValueNames(Memo1->Lines);
delete Rejestr;


Pobranie kluczy i wartości trzeba zrobić tak:

Kod: Zaznacz cały

TRegistry *Rejestr = new TRegistry();
Rejestr->RootKey =  HKEY_LOCAL_MACHINE;
Rejestr->OpenKey("Software\\Microsoft\\Windows\\CurrentVersion\\Run", false);

TStrings *tmpValue = new TStringList;

Memo1->Lines->Clear();

Rejestr->GetValueNames(tmpValue);

for(int i = 0; i < tmpValue->Count; i++)
{
  String tekst = Rejestr->ReadString(tmpValue->Strings[i]);
  Memo1->Lines->Add(tmpValue->Strings[i]  + " = " + tekst);
}

delete Rejestr;
delete tmpValue;

[Bishamoth]

Okej, obydwa kody dzialaja poprawnie, ale niestety kasuja one to co juz bylo w TMemo1... Nie da sie jakos obejsc tego by TMemo nie bylo czyszczone za kazdym razem?

[wargo]

Usuń:

Kod: Zaznacz cały

Memo1->Lines->Clear();

[Bishamoth]

Usuń:

Kod: Zaznacz cały

Memo1->Lines->Clear();

No tak, to sie tyczy drugiego kodu a nie pierwszego... Nie zaznacztlem, ze chodzi o kod nr1. Za niedogodnosci przepraszam

[Cyfrowy Baron]

Kod: Zaznacz cały

TRegistry *Rejestr = new TRegistry();
Rejestr->RootKey =  HKEY_LOCAL_MACHINE;
Rejestr->OpenKey("Software\\Microsoft\\Windows\\CurrentVersion\\Run", false);

TStrings *tmpValue = new TStringList;

Rejestr->GetValueNames(tmpValue);

for(int i = 0; i < tmpValue; i++)
   Memo1->Lines->Add(tmpValue->Strings[i]);

delete Rejestr;
delete tmpValue;


[Bishamoth]

Przy linijce:

Kod: Zaznacz cały

for(int i = 0; i < tmpValue; i++)

Wywala owy blad:

[C++ Error] Unit1.cpp(120): E2034 Cannot convert 'int' to 'TStrings *'

[Corvis]

bo brakuje przy tmpValue -

Kod: Zaznacz cały

tmpValue->Count

[Cyfrowy Baron]

Szybko pisałem i mi umknęło.

[Bishamoth]

Wszystko dziala w jak najlepszym stanie, dziekuje

Odnosnie tego co pisalem, mam jeszcze jedno pytanie, ale to juz odnosnie instrukcji warunkowych...

Kod: Zaznacz cały

  String program = Edit1->Text;

TRegistry *Rejestr = new TRegistry();
Rejestr->RootKey = HKEY_CURRENT_USER;
Rejestr->OpenKey("Software\\Microsoft\\Windows\\CurrentVersion\\Policies\\Explorer\\DisallowRun", false);

if (Rejestr->KeyExists(program))
    {
     Memo1->Lines->Add(program +" nie znajduje sie na liscie zablokowanych");
    }
     else
         {
          Rejestr->DeleteValue(program);
          Memo1->Lines->Add("Program "+ program +" zostal usuniety z listy zablokowanych");
          Memo1->Lines->Add("--------------------------------------------------------------------------");
         }

Jest to kod jednego z przyciskow TButton. Ma on za zadanie usuwac z rejestru istniejaca juz wartosc i powiadomic o tym, czy tez powiadomic o tym, ze takowa wartosc nie istnieje. No i tutaj jest problem gdyz za kazdym razem wykonuje instrukcje z kodu else ;/ A dokladnie to:

Kod: Zaznacz cały

     else
         {
          Rejestr->DeleteValue(program);
          Memo1->Lines->Add("Program "+ program +" zostal usuniety z listy zablokowanych");
          Memo1->Lines->Add("--------------------------------------------------------------------------");
         }

Nie wazne czy wartosc istnieje, czy tez nie, on za kazdym razem wykonuje ta sama czynnosc. Czemu?

[kinio]

hej,

U mnie w rejestrze nie ma takiego klucza, ale to nic wiem dlaczego.
Natomiast nie wiem czy nie powinieneś użyć metody:

Kod: Zaznacz cały

Rejestr->ValueExists(program)

bo lista tych programów w tym kluczu to już pojedyncze wartości.

[Bishamoth]

Heh, no fakt. Gafa. Ale coz, to nic nie zmienia. Jak bylo na poczatku, tak po zmianie nadal to samo...
PS

U mnie w rejestrze nie ma takiego klucza

Gdyz ten klucz sam utworzylem

//EDIT po paru minutach. No dobra, sam sie zalamalem, jak zauwazylem, ze dziala gdy sie zamieni miejscami warunki:

Kod: Zaznacz cały

  String program = Edit1->Text;

TRegistry *Rejestr = new TRegistry();
Rejestr->RootKey = HKEY_CURRENT_USER;
Rejestr->OpenKey("Software\\Microsoft\\Windows\\CurrentVersion\\Policies\\Explorer\\DisallowRun", false);

if (Rejestr->ValueExists(program))
    {
     Rejestr->DeleteValue(program);
     Memo1->Lines->Add("Program "+ program +" zostal usuniety z listy zablokowanych");
     Memo1->Lines->Add("--------------------------------------------------------------------------");
    }
     else
         {
          Memo1->Lines->Add(program +" nie znajduje sie na liscie zablokowanych");
         }

delete Rejestr;

Teraz juz dziala

[Cyfrowy Baron]

if (Rejestr->ValueExists(program))

to znaczy tyle co: jeżeli w rejestrze istnieje wartość o nazwie program, to wykonaj instrukcje 1 jeżeli nie to wykonaj instrukcje 2.

Można w takiej sytuacji zmienić kolejność warunków, ale można też zmienić zapis, to co wyżej jest równoznaczne z zapisem:

Kod: Zaznacz cały

if (Rejestr->ValueExists(program) == true)

podczas gdy tutaj potrzebny jest zapis:

Kod: Zaznacz cały

if (Rejestr->ValueExists(program) == false)

można przeciążyć operator "bool" i "!":

Kod: Zaznacz cały

if (!Rejestr->ValueExists(program))

co jest równoznaczne z zapisem:

Kod: Zaznacz cały

if (Rejestr->ValueExists(program) == false)

Dlatego wystarczyło w Twoim kodzie zrobić tak:

Kod: Zaznacz cały

if (Rejestr->KeyExists(program) == false) // gdyż sprawdzasz tutaj czy program nie znajduje się na liście
    {
     Memo1->Lines->Add(program +" nie znajduje sie na liscie zablokowanych");
    }
     else // ten warunek wystÄ…pi tylko gdy wartość klucza znajduje siÄ™ na liÅ›cie
         {
          Rejestr->DeleteValue(program);
          Memo1->Lines->Add("Program "+ program +" zostal usuniety z listy zablokowanych");
          Memo1->Lines->Add("--------------------------------------------------------------------------");
         }

lub tak:

Kod: Zaznacz cały

if (!Rejestr->KeyExists(program)) // gdyż sprawdzasz tutaj czy program nie znajduje się na liście
    {
     Memo1->Lines->Add(program +" nie znajduje sie na liscie zablokowanych");
    }
     else // ten warunek wystÄ…pi tylko gdy wartość klucza znajduje siÄ™ na liÅ›cie
         {
          Rejestr->DeleteValue(program);
          Memo1->Lines->Add("Program "+ program +" zostal usuniety z listy zablokowanych");
          Memo1->Lines->Add("--------------------------------------------------------------------------");
         }

[Bishamoth]

Dlatego wystarczyło w Twoim kodzie zrobić tak:

Kod: Zaznacz cały

if (Rejestr->KeyExists(program) == false) // gdyż sprawdzasz tutaj czy program nie znajduje się na liście
    {
     Memo1->Lines->Add(program +" nie znajduje sie na liscie zablokowanych");
    }
     else // ten warunek wystÄ…pi tylko gdy wartość klucza znajduje siÄ™ na liÅ›cie
         {
          Rejestr->DeleteValue(program);
          Memo1->Lines->Add("Program "+ program +" zostal usuniety z listy zablokowanych");
          Memo1->Lines->Add("--------------------------------------------------------------------------");
         }

lub tak:

Kod: Zaznacz cały

if (!Rejestr->KeyExists(program)) // gdyż sprawdzasz tutaj czy program nie znajduje się na liście
    {
     Memo1->Lines->Add(program +" nie znajduje sie na liscie zablokowanych");
    }
     else // ten warunek wystÄ…pi tylko gdy wartość klucza znajduje siÄ™ na liÅ›cie
         {
          Rejestr->DeleteValue(program);
          Memo1->Lines->Add("Program "+ program +" zostal usuniety z listy zablokowanych");
          Memo1->Lines->Add("--------------------------------------------------------------------------");
         }

Obydwa kody nie dzialaja poprawnie. W kazdym z nich, niezaleznie od wpisanej nazwy zostaje wykonana ta linijka:

Kod: Zaznacz cały

     Memo1->Lines->Add(program +" nie znajduje sie na liscie zablokowanych");

Za to ten kod:

Kod: Zaznacz cały

if (Rejestr->ValueExists(program))
    {
     Rejestr->DeleteValue(program);
     Memo1->Lines->Add("Program "+ program +" zostal usuniety z listy zablokowanych");
     Memo1->Lines->Add("--------------------------------------------------------------------------");
    }
     else
         {
          Memo1->Lines->Add(program +" nie znajduje sie na liscie zablokowanych");
         }

Dziala poprawnie.

[Cyfrowy Baron]

Ty coś tutaj pokręciłeś i na dłuższą metę, może to powodować błędne działanie programu.
Warunek if else dla Twojego przykładu jest prosty: jeżeli prawda zrób to, jeżeli nie zrób tamto, nie ma innych możliwości.

Dla pewności przeprowadziłem test z istniejącym (u mnie) kluczem:

Kod: Zaznacz cały

void __fastcall TForm1::Button3Click(TObject *Sender)
{
TRegistry *Rejestr = new TRegistry();
Rejestr->RootKey =  HKEY_LOCAL_MACHINE;
Rejestr->OpenKey("Software\\Microsoft\\Windows\\CurrentVersion\\Run", false);

if(!Rejestr->ValueExists("ATICCC"))
{
  ShowMessage("Klucz NIE istnieje");
}
else
{
  ShowMessage("Klucz istnieje");
}
}


wynik: komunikat "Klucz istnieje"

następnie wprowadziłem nazwę klucza, który nie istnieje:

Kod: Zaznacz cały

void __fastcall TForm1::Button3Click(TObject *Sender)
{
TRegistry *Rejestr = new TRegistry();
Rejestr->RootKey =  HKEY_LOCAL_MACHINE;
Rejestr->OpenKey("Software\\Microsoft\\Windows\\CurrentVersion\\Run", false);

if(!Rejestr->ValueExists("ATICCC_1"))
{
  ShowMessage("Klucz NIE istnieje");
}
else
{
  ShowMessage("Klucz istnieje");
}
}


wynik: komunikat "Klucz NIE istnieje"

Wszystko działa prawidłowo, gdyż inaczej być nie może.
To nie Twój program popełnia błąd, tylko Ty, coś przeoczyłeś i w dalszej pracy nad programem zaowocuje to kolejnymi błędami, gdyż nie rozwiązałeś problemu, lecz "zamiotłeś go pod dywan". Nie wiesz dlaczego warunek nie działa.