[PaHaNjkee]

Здраствуйте! Снова я! Вот почти-почти написал создатель инсталляторов типа InnoSetup ну вот хочу поставить ключ активации. Вообщем это Form3 (главная Form1) там Memo(Куда код вписывается) и BitBtn (Чтобы зарегестрировать ключ). Это я сделал, если пользователь ввел ключ (их всего 5) то в файл key.ccbf записывается это:

Код:

[RegistryKey]
Key=...

Ну вот если заного открыть программу этого уже не будет я подумал...И тута в голову стукнула одна мыслейка прочитать этот файл и ключ записать в Form1.sMemo1.Lines.Text и нажать на BitBtn как вообще это сделать? Надо прочитать key.ccbf и ключ записать в Форм3.сМемо1.Линес.Текст и нажать на кнопку.

[v1s2222]

Честно говоря не понял что ты хочешь...

Код:

Memo1.Lines.LoadFromFile(ExtractFilePath(ParamStr(0)) + 'key.ccbf');
Buttin1.Click;

[PaHaNjkee]

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

Честно говоря не понял что ты хочешь...

Код:

Memo1.Lines.LoadFromFile(ExtractFilePath(ParamStr(0)) + 'key.ccbf');
Buttin1.Click;

Ну это понятно я сделал по твоему способу. Я сейчас сделал т.е пользоваетль вводит код если он правильный он сохраняется в файл, потом при запуске из этого файла вводится в Мемо1 и нажимается БитБтн. Ну так вот я написал при сохранении:

Код:

sMemo1.Lines.SaveToFile(ExtractFilePath(ParamStr(0)) + 'key.ccbf');

А при запуске:

Код:

Form3.sMemo1.Lines.LoadFromFile(ExtractFilePath(ParamStr(0)) + 'key.ccbf');
Form3.sBitBtn1.Click;

Но пишет:
Project Project1.exe raised exception class EAccessViolation with message 'Access violation at adress 005076A8 in module 'Project1.exe'. Read of adress 0000030C'. Proccess stopped. Use Step or Run to continue.

И ёще как сделать:

Код:

if (файл key.ccbf найден в папке с программой) then
действие
end;

[ryderx34]

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

И ёще как сделать:

Код:

if (файл key.ccbf найден в папке с программой) then
действие
end;

Код:

if FileExists(ExtractFilePath(Application.ExeName) + 'key.ccbf') then
begin
  // действие
end;

[PaHaNjkee]

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

Код:

if FileExists(ExtractFilePath(Application.ExeName) + 'key.ccbf') then
begin
  // действие
end;

Спс, но у меня все равно выдает ошибку которая была приведена выше. У меня ругается на эту строку:

Код:

if FileExists(ExtractFilePath(Application.ExeName) + 'key.ccbf') then
begin
Form3.sMemo1.Lines.LoadFromFile(ExtractFilePath(ParamStr(0)) + 'key.ccbf');
Form3.sBitBtn1.Click;
end;

Сначала программа запускается, потом я ввоже код активации все норм, файл создается, я закрываю программу, открываю и пишет ошибку...Помогите, плз

[BoRoV]

Код:

if FileExist(ExtractFilePath(ParamStr(0)) + 'key.ccbf') then
begin
  Form3.sMemo1.Lines.LoadFromFile(ExtractFilePath(ParamStr(0)) + 'key.ccbf');
  Form3.sBitBtn1.Click;
end;