在你的程序加上以下 看看。
procedure TForm1.FormActivate(Sender: TObject);
var
Hdesktop:HWND;
temp:integer;
// rtButton2: TRect;
begin
SystemParametersInfo(Spi_screensaverrunning,1,@temp,0);
Hdesktop:=FindWindow('Progman',Nil);
ShowWINDOW(Hdesktop,0);
Hdesktop:=FindWindow('Shell_TrayWnd',Nil);
ShowWINDOW(Hdesktop,0);
end;