Что-типа защиты на программу

← →
начинающий програмер (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;

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