Passwortabfrage

Max · Hält's aus hier Beiträge: 7

Hallo allerseits !

Ich brauche eine simple Passwortabfrage auf ein Editfeld um darüber
einbestimmtes Programm zu starten in einem bestimmten Pfad .

Danke im voraus

MAX :?:

Black Lightning · Beiträge: 69

Hi,
im Objektinspektor kannst du als erstes das gewünschte Zeichen für PasswordChar festlegen...im gewöhnlich ja *
beim drücken von Enter wird das Passwort dann überprüft.

markieren

Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if key = #13 then
  Begin
  if edit1.Text = 'geheim' then
    showmessage('richtig')
  else
    showmessage('false');
  end;
end;

so ist das CaseSensitiv, falls du das nicht willst, dann so:

markieren

Quelltext

1:	if AnsiUpperCase(edit1.text) = 'GEHEIM' then...

ich würd das Programm dann aber noch mit upx packen, damit einigermaßen vor disassemblern sicher ist.

gruß
Black Lightning

_________________
--erst programmieren, dann denken, dann debuggen--

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme