Delphi里如何让程序锁定在桌面上，win+d都无法最小化

procedure TForm29.FormCreate(Sender: TObject);
begin
Windows.SetParent(Self.Handle, FindWindowEx(FindWindow('Progman', nil), 0,
'shelldll_defview', nil));
end;