Win2K的外壳(Shell)的妙用

时间:2010-03-05 18:49:52  来源:第二电脑网  作者:第二电脑网

  第二电脑网导读: 点击 Install... 这里会有几个构件被安装到ActiveX构件栏。拖一个TShell构件到你的窗体或者DM上,你就可以使用以下代码实现全部最小化的功能: Shell1.Minimi...
  正文:如果你导入Microsoft Shell Controls & Automation Type Library,你可以在一个构件中得到这些功能。

在菜单上选择Project..Import Type Library...

 
选择 Microsoft Shell Controls & Automation (version 1.0).
 

点击 Install...

 
这里会有几个构件被安装到ActiveX构件栏。拖一个TShell构件到你的窗体或者DM上,你就可以使用以下代码实现全部最小化的功能:

 


Shell1.MinimizeAll;

 


/*********************************************************************

这里还有许多真正cool的Shell技巧在TShell构件中

*********************************************************************/

procedure TForm1.Shell(sMethod: Integer);

begin
  
  case sMethod of
  
  0:
  
  //最小化桌面上所有的窗口

  begin
    
    Shell1.MinimizeAll;
    
    Button1.Tag := Button1.Tag + 1;
    
  end;
  
  1:
  
  //显示运行对话框

  begin
    
    Shell1.FileRun;
    
    Button1.Tag := Button1.Tag + 1;
    
  end;
  
  2:
  
  //显示关闭Windows对话框

  begin
    
    Shell1.ShutdownWindows;
    
    Button1.Tag := Button1.Tag + 1;
    
  end;
  
  3:
  
  //显示搜索对话框

  begin
    
    Shell1.FindFiles;
    
    Button1.Tag := Button1.Tag + 1;
    
  end;
  
  4:
  
  //显示日期/时间对话框

  begin
    
    Shell1.SetTime;
    
    Button1.Tag := Button1.Tag + 1;
    
  end;
  
  5:
  
  //显示Internet属性对话框

  begin
    
    Shell1.ControlPanelItem('INETCPL.cpl');
    
    Button1.Tag := Button1.Tag + 1;
    
  end;
  
  6:
  
  //让用户选择“程序”的存放路径

  begin
    
    Shell1.BrowseForFolder(0, 'My Programs', 0, 'C:Files');
    
    Button1.Tag := Button1.Tag + 1;
    
  end;
  
  7:
  
  //显示工具栏属性对话框

  begin
    
    Shell1.TrayProperties;
    
    Button1.Tag := Button1.Tag + 1;
    
  end;
  
  8:
  
  //恢复桌面上所有的窗口(全部最小化的逆操作)

"Win2K的外壳(Shell)的妙用"由第二电脑网原创提供,转载请注明:http://www.002pc.com/master/College/Language/Delphi/13075.html


关键字:

关于《Win2K的外壳(Shell)的妙用》文章的评论

站内搜索: 高级搜索

热门搜索: Windows style 系统 tr IP QQ CPU 安装 function 注册 if td