program u pozadinu

Code:


unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, AppEvnts;

type
  TForm1 = class(TForm)
    private
    { Private declarations }
  public
    { Public declarations }
    procedure SetBottomWindow;
    procedure WMNCPaint(var Msg: TWMNCPaint); message WM_NCPAINT;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.SetBottomWindow;
begin
  SetWindowPos( Handle, HWND_BOTTOM,
                Left, Top, Width, Height,
                SWP_NOACTIVATE or SWP_NOMOVE or SWP_NOSIZE or SWP_NOOWNERZORDER);
end;

procedure TForm1.WMNCPaint(var Msg: TWMNCPaint);  
begin
  SetBottomWindow;
  inherited;
end;

end.