Фоновый режим программы

unit Unit1;
 
interface
 
uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ExtCtrls, Vcl.StdCtrls;
 
type
  TForm1 = class(TForm)
    TrayIcon1: TTrayIcon;
    Button1: TButton;
    Label1: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure Button1Click(Sender: TObject);
  private
    procedure EndThreadWork(Sender: TObject);
  end;
 
  // дополнительный поток для фоновых операций
  TMyThread = class(TThread)
  private
    { Private declarations }
  protected
    procedure Execute; override;
  end;
 
var
  Form1: TForm1;
  isWorking: boolean = false;     // определяет, запущен ли фоновый процесс
  N: Cardinal;
 
implementation
 
{$R *.dfm}
 
// кнопка запуска
procedure TForm1.Button1Click(Sender: TObject);
begin
  N:= GetTickCount;
  Button1.Enabled:= false;
  isWorking:= true;
  TrayIcon1.Visible:= true;
  TrayIcon1.Hint:= 'Работает фоновый режим!';
  Application.MainForm.Hide;
  // запускаем процесс
  with TMyThread.Create(true) do
  begin
    FreeOnTerminate:= true;
    OnTerminate:= EndThreadWork;
    Resume;
  end;
end;
 
procedure TForm1.EndThreadWork(Sender: TObject);
begin
  // завершение работы потока
  isWorking:= false;
  Button1.Enabled:= true;
  Application.MainForm.Show;
  TrayIcon1.Visible:= false;
  N:= GetTickCount - N;
  Label1.Caption:= Format('время работы потока: %f sek',[N/1000]);
end;
 
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  // если процесс запущен, просто так форму не закроешь ("крестиком").
  // на случай, если форма останется видна на экране. в этом
  // примере форма перманентно скрывается на время фонового режима работы
  CanClose:= not isWorking;
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  TrayIcon1.Icon:= Application.Icon;
end;
 
{ TMyThread }
 
procedure TMyThread.Execute;
var
  i: Cardinal;
begin
  // какая-то полезная работа
  for i:= 0 to MAXDWORD do
end;
 
end.