InputBox

0

Jak zrobic zeby zapisac wpisane haslo jednego z intputboxow chodzi mi o ten konkretny przyklad.
Reg := TRegistry.Create; // stworz rejestr
try
Reg.OpenKey('Software\QTestXP', False);
if Reg.ValueExists('GetPass') then
exit else
begin
if InputBox('Podaj hasło!', 'Program wykrył pierwsze uruchomienie programu podaj haslo na ustawienia:', )=InputBox('Potwierdż hasło', 'Potwierdż hasło',) then
Reg.WriteString('GetPass', TU POMOC) else
Showmessage('Hasła się nie zgadzają');
end;
finally
Reg.Free;
end;

0

Hmm troche to zakrecone... Sprobuj skorzystac z plikow INI

0

Hmm co mi da INI ja chce po prostu tak:

  1. Wyskakuje mi IntputBox wpisuje haselko
  2. Wyskakuje mi drugi IntputBox potwierdzam haselko
  3. Haslo zostaje zapisane
    nie wiem co tu wpisac: Reg.WriteString('GetPass', Nie wiem)
    bo jesli wpisze InputBox('Podaj hasło!', 'Program wykrył pierwsze uruchomienie programu podaj haslo na ustawienia:', '') chcac tylko pobrac wpisany text wyswietli mi sie 3 IntputBox. Jak pobrac nazwe wpisana do IntputBoxa ??
0

Aby przypisać wartość zwracaną przez InputBox() wystarczy:
S := InputBox(ACaption, APrompt, ADefault);
W przypadku, gdy użytkownik klinkie w Cancel do zmiennej S zostanie przypisana wartość ADefault. Natomiast, gdy użytkownik kliknie OK zmiennej S przypisana bedzie wartość wpisana ;)

var
Reg : TRegistry;
Pass : String;
begin
Reg := TRegistry.Create;
try
Reg.OpenKey('SoftwareQTestXP', True);
if not Reg.ValueExists('GetPass') then
begin
Pass := InputBox('Podaj hasło!',
'Program wykrył pierwsze uruchomienie '+
'programu podaj haslo na ustawienia:', '') ;
if Pass = InputBox('Potwierdż hasło', 'Potwierdż hasło', '') then
Reg.WriteString('GetPass', Pass)
else
ShowMessage('Hasła się nie zgadzają');
end;
finally
Reg.Free;
end;
end;

PS. Chee przestań nabijać swój licznik postów !! Nie liczy się ilość, liczy się jakość.

0

Wielki dzieki LKS :-) bardzo wielkie

1 użytkowników online, w tym zalogowanych: 0, gości: 1, botów: 0