ini файлы

[Умагаджи]

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

[ArtGrek]

какую же ты програму зделал, что еше хочеш за нее денги брать, если об ини не знаеш)?

[ArtGrek]

uses
  ..., IniFiles
var
  Tools: TIniFile;
  FT: TextFile;
  Path, PathT: string;
  Str: string;

  Path := GetCurrentDir;                                        
  PathT := Path + '\Tools.ini';                                   
  If not (FileExists(PathT)) then                              
  begin                                                              
    AssignFile(FT,PathT);                                       
    Rewrite(FT);                                                 
    CloseFile(FT);                                                  
  end;               

  Tools:= TIniFile.Create(PathT);                           
  Tools.WriteString('Settings','Index','0');                 
  Tools.Free;  

  Tools:= TIniFile.Create(PathT);                                 
  Str:=Tools.ReadString('Settings','Index','');  
  Tools.Free;

P.S. мне хоть скидку зделаеш?

[FaTaL]

Если будешь хранить код в ИНИ файле в незашифрованном виде, то её быстро сломают. Хотя просто даже если в зашифрованном,но не привязанном к железу, то просто при копировании твоего ини она будет работать на другом компе. Короче надо чтобы на каждом компе был код уникальный.

[novichok1]

FaTaL, а как привязать файл к железу ?

[Умагаджи]

это задание такое. сделал такстовый редактор и по заданию нужно ее защитить как-то либо сделать ключ либо еще как-то. вот я и решил сделать такое