Programm als DesktopHintergrund @ Windows

[supermuckl]

* null peilung *

Delphi-Quellcode:

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure CreateParams(Params: Tcreateparams);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure Tform1.CreateParams(Params: Tcreateparams);
begin
inherited create(nil);
form1.Parent := GetDesktopHandle; // will er nich - undefinierter bezeichner GetDesktopHandle
end;

end.