1. Aufruf des Programms

[Trouble_Maker]

Hier nochmal mein Code (nicht komplett nur die wichtigsten Teile):

Code:

procedure TForm1.FormCreate(Sender: TObject);
var Regist: TRegistry;
begin

//das hier kann doch schonmal nicht funktionieren, weil es beides in OnCreate drinsteht:

      if regist.ValueExists('1Aufruf') then exit
      else
        begin
          regist:=TRegistry.Create;
          regist.RootKey:=HKEY_CURRENT_USER;
          regist.OpenKey('Software\Trouble_Maker\Secure\PW', true);

          regist.WriteString('PW', 'passwort');
        end;

  try
  regist:=TRegistry.Create;
  regist.RootKey:=HKEY_CURRENT_USER;
  regist.OpenKey('Software\Trouble_Maker\Secure\', true);
  regist.WriteInteger('1Aufruf', 1);

  Regist.CloseKey;
  regist.free;
  except
    exit;
  end;


procedure TForm1.Button4Click(Sender: TObject); //Passwort ändern
var regist: TRegistry;
begin
  if (edit2.text = '') and (edit3.text = '') and (edit4.text = '')
    then exit;

  if (edit2.text = 'passwort') and (edit3.text = edit4.text)
    then
      begin
        regist:=TRegistry.Create;
        regist.RootKey:=HKEY_CURRENT_USER;
           try
        regist.OpenKey('Software\Trouble_Maker\Secure\PW', true);
        regist.WriteString('PW', edit3.text);
           except
             showmessage('Failure... please try again');
           end;

so ich hoffe das erleutert das ein bisschen! Da sich ja das Passwort ändern lassen soll, darf nicht immer im oncreate das Passwort als "passwort" festgelegt werden ...

was mache ich falsch und wie funktioniert das richtig ?!?

danke für eure Mühe

cu Trouble_Maker