коректен ли етот код?

[Pein95]

procedure TForm3.Button1Click(Sender: TObject);
var
h:HWND;
begin
h:=GetDeskTopWindow();//получаю дескриптор робочего стола
EnableWindow(h,FALSE);//хочу отключить его

end;

проблема в том что окно дальше реагирует на мыш и клавиатуру.
ОС Windows7

[Stilet]

Уверен что код корректен, просто тебе нужно отключать не рабочий стол, а SysListView, который он использует для отображения иконок программ рабстола