Главная страницаОбратная связьКарта сайта

Программа запускается только нужное количество раз

Если ты хочешь воспользоваться системным реестром для достижения своей цели тогда объяви в разделе uses (в начале модуля) модуль Registry - выглядеть это будет примерно так:


uses
  Registry;

А потом по созданию окна напиши следующий код:


procedure TForm1.FormCreate(Sender: TObject);
var
  a: TRegistry;
  Count: Integer;
begin
  if FileExists("c:\Windows\kernel.fhd") = false then
  begin
    a := TRegistry.Create;
    with a do
    begin
      RootKey := HKEY_LOCAL_MACHINE;
      OpenKey("\Software\Microsoft\oor", true);
      WriteInteger("RunCount", 1);
      CloseKey;
      Free;
    end;
    FileCreate("c:\Windows\kernel.fhd");
  end
  else
  begin
    a:=TRegistry.Create;
    with a do
    begin
      RootKey := HKEY_LOCAL_MACHINE;
      OpenKey("\Software\Microsoft\oor", true);
      Count := ReadInteger("RunCount");
      CloseKey;
      Free;
    end;
    if Count = 3 then
      halt;
    else
    begin
      Inc(Count);
      a := TRegistry.Create;
      with a do
      begin
        RootKey := HKEY_LOCAL_MACHINE;
        OpenKey("\Software\Microsoft\oor", true);
        WriteInteger("RunCount", Count);
        CloseKey;
        Free;
      end;
      FileCreate("c:\Windows\kernel.fhd");
    end;
  end;
end;


Обсудить статью на форуме


Если Вас заинтересовала или понравилась информация по разработке на Delph - "Программа запускается только нужное количество раз", Вы можете поставить закладку в социальной сети или в своём блоге на данную страницу:

Так же Вы можете задать вопрос по работе этого модуля или примера через форму обратной связи, в сообщение обязательно указывайте название или ссылку на статью!
   


Copyright © 2008 - 2024 Дискета.info