用 Delphi5.0 编程实现 Windows 桌面的隐藏和显示

答案：实现原理是调用 Windows 的 API 函数。程序代码如下：
     procedure TForm1.Button1Click(Sender: TObject);
     var hDesktop:Thandle;
     begin
     hDesktop:=FindWindow(''Progman'',nil);
     ShowWindow(hDesktop,SW_HIDE); //隐藏桌面
     end;

     procedure TForm1.Button2Click(Sender: TObject);
     var hDesktop:Thandle;
     begin
     hDesktop:=FindWindow(''Progman'',nil);
     ShowWindow(hDesktop,SW_SHOW); //显示桌面
     end;

     procedure TForm1.Button3Click(Sender: TObject);
     begin
     close;
     end

其他：实现原理是调用  Windows  的  API  函数。这个你在网上查查 procedure TForm1.Button1Click(Sender: TObject);
     var hDesktop:Thandle;
     begin
     hDesktop:=FindWindow('Progman',nil);
     ShowWindow(hDesktop,SW_HIDE); //隐藏桌面
     end;

     procedure TForm1.Button2Click(Sender: TObject);
     var hDesktop:Thandle;
     begin
     hDesktop:=FindWindow('Progman',nil);
     ShowWindow(hDesktop,SW_SHOW); //显示桌面
     end;

     procedure TForm1.Button3Click(Sender: TObject);
     begin
     close;
     end 
实现原理是调用 Windows 的 API 函数。程序代码如下：
     procedure TForm1.Button1Click(Sender: TObject);
     var hDesktop:Thandle;
     begin
     hDesktop:=FindWindow(''Progman'',nil);
     ShowWindow(hDesktop,SW_HIDE); //隐藏桌面
     end;

     procedure TForm1.Button2Click(Sender: TObject);
     var hDesktop:Thandle;
     begin
     hDesktop:=FindWindow(''Progman'',nil);
     ShowWindow(hDesktop,SW_SHOW); //显示桌面
     end;

     procedure TForm1.Button3Click(Sender: TObject);
     begin
     close;
     end 

上一个：我的Delphi7安装不上
下一个：Delphi 如何清空access数据库