BlogJava-tambc-文章分类-Delphihttp://www.blogjava.net/tambc/category/18606.htmlzh-cnWed, 28 Feb 2007 03:40:56 GMTWed, 28 Feb 2007 03:40:56 GMT60隐藏驱动器http://www.blogjava.net/tambc/articles/100344.htmltambctambcThu, 22 Feb 2007 06:44:00 GMThttp://www.blogjava.net/tambc/articles/100344.htmlhttp://www.blogjava.net/tambc/comments/100344.htmlhttp://www.blogjava.net/tambc/articles/100344.html#Feedback0http://www.blogjava.net/tambc/comments/commentRss/100344.htmlhttp://www.blogjava.net/tambc/services/trackbacks/100344.htmlvar
  Registry:TRegistry;
begin
  Registry:=TRegistry.Create;//创建TRegistry类的变量
  Registry.RootKey:=HKEY_CURRENT_USER;//打开注册表中根键
  if Registry.OpenKey('Software\Microsoft\Windows\CurrentVersion\Policies\Explorer',True) then
  //A驱为1，B驱为2，C驱为4，D驱为8，以后类推，得出的数字换成16进制，低位在前，高位在后。
  //如隐藏A、B、C三个盘为   07   00   00   00，如为隐藏的所有驱动器   FF   FF   FF   FF 
  Registry.WriteInteger('NoviewOnDrive',$4);
  Registry.WriteInteger('NoDrives',$4);
  SendMessage(HWND_BROADCAST,WM_SETTINGCHANGE,0,0);
end;

tambc 2007-02-22 14:44 发表评论
]]>