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;
Hmm troche to zakrecone... Sprobuj skorzystac z plikow INI
Hmm co mi da INI ja chce po prostu tak:
- Wyskakuje mi IntputBox wpisuje haselko
- Wyskakuje mi drugi IntputBox potwierdzam haselko
- 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 ??
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ść.
Wielki dzieki LKS :-) bardzo wielkie