Запись в реестр.

[Кристинка89]

Всем приветики ребята. Вот сделала запись в реестр кода. Но вот одна проблемка окно регистрации выскакивает каждый раз когда запускаю программу, а мне нужно как-то проверять если был введен код то окно регистрации не должно повторно появлятся.
Вот код пожалйста ребят как его изменить или дайте исходник где подробно очень на конкретном примере показано.

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Registry;

type
  TMainForm = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Edit1: TEdit;
    Label1: TLabel;
    procedure FormShow(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
    procedure LoadProgParam;
 //   procedure SaveProgParam;
  public
    { Public declarations }
  end;

var
  MainForm: TMainForm;
   Regini:TReginifile;
implementation

uses Unit3;

{$R *.dfm}


procedure TMainForm.Button1Click(Sender: TObject);
var
Regini:TReginiFile;
begin
Regini:=TRegIniFile.Create('TextReader') ;
Regini.RootKey:=HKEY_CURRENT_USER;
Regini.OpenKey('Params', true);
Regini.WriteString('KeyGen', 'Reader', Edit1.Text);
Regini.Free;
Button1.Enabled:=False;
Button2.Enabled:=True;
end;

procedure TMainForm.Button2Click(Sender: TObject);
begin
if Edit1.Text='POVTIAS-Y742-4KURS' then  begin
form3.Show;
MainForm.Visible:=false; end
else     begin
ShowMessage('Неверный серийный номер');
Button1.Enabled:=True;
end;
end;


procedure TMainForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
//SaveProgParam;
end;

procedure TMainForm.FormShow(Sender: TObject);
begin
LoadProgParam;
end;

procedure TMainForm.LoadProgParam;
var
Regini: TReginiFile;
S:String;
begin
Edit1.Clear;
Regini:= TReginiFile.Create('TextReader');
Regini.OpenKey('Params', true);
S:=RegIni.ReadString('KeyGen','Reader','POVTIAS-Y742-4KURS');
Regini.Free;
Button2.Enabled:=False;
end;

end.

[niki2012]

Да уж... Пожалуй мне легче будет все с нуля написать, чем править этот код. Не могли бы Вы поточнее сформулировать задачу вашей программы?

P.S. Не советую Вам так яро выставлять свою принадлежность к "слабому" полу, вряд-ли из-за этого больше людей откликнутся. Да и такие посты нередко попадают в "Шедевры" форума.

[GunSmoker]

В показанном коде нет никакого куска, который делаёт (цитирую)

окно регистрации выскакивает каждый раз когда запускаю программу

Так что либо ты врёшь, либо показывай весь код.

[niki2012]

Я примерно понимаю что что-то должно происходить только при первом запуске программы, и походу это какая-то регистрация.

var 
  reg: TRegistry;
  firstRun: boolean;
begin
  reg:=TRegistry.Create;
  reg.RootKey:=HKEY_LOCAL_MACHINE;
  reg.OpenKey('Путь к разделу реестра', true);
  if reg.ValueExists('Имя записи') then firstRun:=false else firstRun:=true;
  reg.CloseKey;
  reg.Destroy;
  if firstRun=true then 
  begin
    высвечиваем чего-то; 
    reg.WriteString('Имя записи'); 
  end;
  reg.CloseKey;
  reg.Destroy;
end;

[ArtGrek]

procedure TMainForm.FormShow(Sender: TObject);
begin
LoadProgParam;
end;

замени лучше на FormCreat, FormShow может много раз за работу программы происходить

Сообщение от GunSmoker

Так что либо ты врёшь, либо показывай весь код.

ладно мне, но a девушке)

[wm_leviathan]

надо играться с 2мя формами. 1я будет проверять наличие некого параметра в реестре, если есть он то просто не показывать главную форму (у меня она та что с логином и паролем ну типа регистрация) и загружать 2ю форму. вот код главной формы (не смущайтесь что она у меня Form2):

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,Registry;

type
  TForm2 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Button1: TButton;
    Button2: TButton;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;
  B : Boolean;

implementation
uses Unit1;

{$R *.dfm}

procedure TForm2.Button1Click(Sender: TObject);
var
REG : TRegistry;
begin

if (Edit1.Text = 'test')and (Edit2.text = 'test') then begin

REG := TRegistry.Create;
REG.RootKey:=HKEY_LOCAL_MACHINE;
REG.OpenKey('Software\Test',true);
REG.WriteBool('Test1',true);
REG.CloseKey;
REG.Destroy;

Form1.Show;
Form2.Hide;
end
else
showmessage('неверный логин и пароль попробуйте test и test )))');
end;

procedure TForm2.Button2Click(Sender: TObject);
begin
Form2.Close;
end;

procedure TForm2.FormCreate(Sender: TObject); //считывание параметров с реестра
var
REG : TRegistry;
begin
REG := TRegistry.Create;
REG.RootKey:=HKEY_LOCAL_MACHINE;
if REG.OpenKey('Software\Test',false) then begin
if REG.ValueExists('Test1') then begin
B:=REG.ReadBool('Test1');
REG.CloseKey;
REG.Destroy;
end;
end;
if B=true then begin
Application.Showmainform:=false;

end;

end;

end.

вот код 1й формы (которую запускает или нет основная форма). она будет закрывать главную при закрытии т.к. главная невидимая будет.

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,Registry;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;


implementation
uses Unit2;
{$R *.dfm}

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Form2.Close;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
if Unit2.B = true  then
Form1.Show;
end;

end.

и код проекта

program Project1;

uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1},
  Unit2 in 'Unit2.pas' {Form2};

{$R *.res}

begin
  Application.Initialize;
  Application.MainFormOnTaskbar := True;
  Application.CreateForm(TForm2, Form2);
  Application.CreateForm(TForm1, Form1);
  Application.Run;


end.

и собственно исходник всего этого барахла http://zalil.ru/30482013
компилятор delphi 2007

[Кристинка89]

Всем спасибо ребята. Мне так и нужно было

[Кристинка89]

Только вот вы забыли сделать так чтобы при закрытии Form1 программа закрывалась, сдели чтобы форма закрывалась а form2 открытая. Но это я сама исправлю, мелочи

[wm_leviathan]

Сообщение от Кристинка89

Только вот вы забыли сделать так чтобы при закрытии Form1 программа закрывалась, сдели чтобы форма закрывалась а form2 открытая. Но это я сама исправлю, мелочи

там же все это есть при закрытии Form1 идет закрытие Form2(который невидимый для нас)

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Form2.Close;
end;

по крайней мере процесс Project1 выгружается из диспетчера

[Кристинка89]

Да да я поняла. Незаметила сразу пардон :-)