Скачать: CL | DM;

Что-типа защиты на программу   Найти похожие ветки 

← →
начинающий програмер ©   (2002-06-11 15:24) [0]

Добрый час суток, Мастера!
Извините за ламерский вопрос, то не все же сразу
умными стали :)
Мне нужо что-то тиа защиты на программу. Вот
код,(требуемый файл(1.1) уже создан)
но почему-то сразу после первого запуска
получается что он уже последний :((
begin
Memo1.Lines.LoadFromFile("C:\1.1");
Edit1.Text:=Memo1.Text;
if Edit1.Text="0"
then
begin
Edit1.Text:="1";
Memo1.Text:=Edit1.Text;
Memo1.Lines.SaveToFile("C:\1.1");
end;
if Edit1.Text="1"
then
begin
Edit1.Text:="2";
Memo1.Text:=Edit1.Text;
Memo1.Lines.SaveToFile("C:\1.1");
end;
if Edit1.Text="2"
then
begin
Edit1.Text:="3";
Memo1.Text:=Edit1.Text;
Memo1.Lines.SaveToFile("C:\1.1");
end;
if Edit1.Text="3"
then
begin
Edit1.Text:="1";
Memo1.Text:=Edit1.Text;
Memo1.Lines.SaveToFile("C:\1.1");
end;

---

← →
Kaban   (2002-06-11 15:27) [1]

а вы чего хотели у вас же Edit1.Text под все условия попадает
поставьте везде else

P.S.
Прежде чем писать защиту на программу честно спросите себя: "А нужна ли моей программе защита. Действительно ли я могу создать программу, которую кто-то захочет не только использовать, но и сломать". По коду что-то не верится.

---

← →
Игорь Шевченко ©   (2002-06-11 15:30) [2]

if Edit1.Text="0"
then
begin
Edit1.Text:="1";
Memo1.Text:=Edit1.Text;
Memo1.Lines.SaveToFile("C:\1.1");
end;
if Edit1.Text="1"
then


if Edit1.Text = "0" then
...
elseif Edit1.Text="1" then
...

и так везде...

---

← →
Кулюкин Олег ©   (2002-06-11 16:03) [3]

Вчера я писал о человеке, который хранил данные в Edit"ах. :))

2 начинающий програмер © (11.06.02 15:24)
А Вам обязательно использовать Memo и Edit?
Может просто создавать объект типа TStringList и читать данные в него?
А проверить существует файл или нет можно функцией FileExists.

---

← →
VID ©   (2002-06-11 16:30) [4]

TO Кулюкин Олег:

> 2 начинающий програмер © (11.06.02 15:24)
> А Вам обязательно использовать Memo и Edit?
> Может просто создавать объект типа TStringList и читать
> данные в него?
> А проверить существует файл или нет можно функцией FileExists.


Придёт со временем...

---

← →
VID ©   (2002-06-11 16:48) [5]

Procedure ProgramGuard; //:)
Var FStr:TStringList;
ProgLaunchCount:Integer;
Const F = "C:\1.1";
LaunchLimit = 3;
begin
FStr:=TStringList.Create;
IF FILEEXISTS(F) then FStr.LoadFromFile(F) Else FStr.add("0");
Try
ProgLaunchCount := StrTOInt(FStr[0]);
Except ProgLaunchCount := 0; end;
Inc(ProgLaunchCount);
IF ProgLaunchCount >= LaunchLimit then ProgLaunchCount := 0;
{IF ProgLaunchCount = LaunchLimit then ShowMessage("Предел запуска программы достигнут");}
FStr.Clear;
FStr.Add(IntToStr(ProgLaunchCount));
FStr.SaveToFile(F);
FStr.Free ;
end;

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.013 c