Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Что-типа защиты на программу [D6, WinXP]

начинающий програмер © (2002-06-11 15:24:00)
Добрый час суток, Мастера!
Извините за ламерский вопрос, то не все же сразу
умными стали :)
Мне нужо что-то тиа защиты на программу. Вот
код,(требуемый файл(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;

VID (2002-06-11 16:48:00) [1]
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;

VID (2002-06-11 16:30:00) [2]
TO Кулюкин Олег:

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

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

Кулюкин Олег (2002-06-11 16:03:00) [3]
Вчера я писал о человеке, который хранил данные в Edit"ах. :))

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

Игорь Шевченко (2002-06-11 15:30:00) [4]

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
...

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

Kaban (2002-06-11 15:27:00) [5]
а вы чего хотели у вас же Edit1.Text под все условия попадает
поставьте везде else

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

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »