Film als Desktop Hintergrund

[hui1991]

Programm in den Hintergrund legen:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
var
  wnd: HWND;
begin
  timer1.Enabled:=false;
  wnd :=  FindWindow('Progman', 'Program Manager');
  wnd :=  FindWindowEx(wnd, 0, 'SHELLDLL_DefView', nil);
  wnd :=  FindWindowEx(wnd, 0, 'SysListView32', 'FolderView');

  if wnd <> 0 then
  begin
    parentwindow:=wnd;
  end;
  ShowWindow(Application.Handle,SW_HIDE);
end;

Die Icons und das Hintergrundbild sind dann nicht mehr sichtbar!

MfG
hui1991