Создание файла

[misher]

Сделал в программе ввод ключа, и теперь его всё время надо вводить.
Песле того как ввёл ключ правильно, нужно чтобы создался файл в котором будет лежать(правильный)ключ, чтоб не вводить каждый раз! И после запуска программы надо чтоб сначала просмотрелся этот файл и если ключ правильный пропустить ввод ключа, если неправильный, то появилось окошко с вводом ключа.
Подскажите с кодом!

[FaTaL]

Во первых это очень слабая защита, т.к. можно просто скопировать файл с ключем, вот тебе и зарегистрированная программа.
А во вторых, что у вас не получается? Файл создать? Ну это через файловый поток очень удобно TFileStream

[Alex Cones]

Или использовать AssignFile, коль не хватит умения TFileStream юзать.

[AvaMight]

Код программы.

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    Timer1: TTimer;

    procedure Button1Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;



implementation

uses Math, Unit2;

{$R *.dfm}









procedure TForm1.Button1Click(Sender: TObject);
  var
    License: TextFile;
begin
  if (Edit1.text='111-111-111') or (Edit1.text='111111111') then        // Если пароль введен правильно то
    begin
      form2.Show;     // показываем следующую форму
      form1.Hide;     // скрываем текущую
      AssignFile(license,'license.txt');          //
      Rewrite(license);                           //
      Append(license);                            //    Создаем файл и записываем в него данные
      Writeln(License,'111-111-111');             //
      Write(License,'1');                         //
      CloseFile(license);                         //
    end;





end;

procedure TForm1.Timer1Timer(Sender: TObject);
var
    License: TextFile;          // файл с кодом
    code: string;               //сам код
    activate: string;            // что то типо ключ авторизациии((( не знаю зачем это сделел))
    smb: string;                  // переменная для считывания строк с файла
    q: Byte;
begin
  If FileExists('license.txt') then        // если файл существует
    Begin
    q:=1;
      AssignFile(License,'license.txt');
      Reset(License);

      While not eof(License) do                   // считываем в переменные код и значение параметра активации
        begin
        Readln(License,smb);
          If q=1 then
            begin
              code:=smb;
              q:=2;
            end
          Else
            activate:=smb;
        end;
      closefile(license);                               // заканчиваем работу с файлом

      If (code='111-111-111') and (activate='1') then        // если данные в файле соответсвуют нужным то
    begin
      form2.Show;         // показываем следующую форму
      form1.Hide;;       // скрываем текущую
      Timer1.Enabled:=false;       // останавливаем таймер
    end;
    end;

end;

end.

p.s Сделано примитивно через AssignFile.
p.s.s Мелькание главной формы при имеющемся файле обусловлено тем что событие по таймеру ( скрыть главную форму я так и не смог , не смотря на кучу тем в инете про это.)


Но вроде все работает.)))) Плюс пока нет не каких других ответов.

Да чуть не забыл пароль 111-111-111 или 111111111.))) Файла изначально нету.

[misher]

Спасибо всем!