Программа запускается только нужное количество раз
Программа похожа на женщину. Либо она хорошая, либо бесплатная.
Если ты хочешь воспользоваться системным реестром для достижения своей цели тогда объяви в разделе uses (в начале модуля) модуль Registry - выглядеть это будет примерно так:
uses
Registry;
А потом по созданию окна напиши следующий код:
procedure TForm1.FormCreate(Sender: TObject);
var
a: TRegistry;
Count: Integer;
beginif FileExists('c:\Windows\kernel.fhd') = false thenbegin
a := TRegistry.Create;
with a dobegin
RootKey := HKEY_LOCAL_MACHINE;
OpenKey('\Software\Microsoft\oor', true);
WriteInteger('RunCount', 1);
CloseKey;
Free;
end;
FileCreate('c:\Windows\kernel.fhd');
endelsebegin
a:=TRegistry.Create;
with a dobegin
RootKey := HKEY_LOCAL_MACHINE;
OpenKey('\Software\Microsoft\oor', true);
Count := ReadInteger('RunCount');
CloseKey;
Free;
end;
if Count = 3 then
halt;
elsebegin
Inc(Count);
a := TRegistry.Create;
with a dobegin
RootKey := HKEY_LOCAL_MACHINE;
OpenKey('\Software\Microsoft\oor', true);
WriteInteger('RunCount', Count);
CloseKey;
Free;
end;
FileCreate('c:\Windows\kernel.fhd');
end;
end;
end;
Статья Программа запускается только нужное количество раз раздела Программа и Интерфейс Приложение своё может быть полезна для разработчиков на Delphi и FreePascal.
