清理回收站右键菜单

本程序会清理回收站右键菜单

删除安装WPS之后的那个找回清空的文件

本程序运行10秒后将自动退出

[file]

程序源代码：

unit man;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, registry, Vcl.ExtCtrls,
Vcl.Imaging.pngimage, Vcl.StdCtrls, Vcl.Imaging.jpeg, GetSid;
type
TForm1 = class(TForm)
Image1: TImage;
Image2: TImage;
Memo1: TMemo;
Timer1: TTimer;
procedure FormCreate(Sender: TObject);
procedure Image2Click(Sender: TObject);
procedure Image1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure Timer1Timer(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
var
reg:TRegistry;
sid:string;
pa:string;
begin
Memo1.Clear;
Memo1.Lines.Add('1.清理WPS安装的回收站右键菜单');
Memo1.Lines.Add('2.清理腾讯电脑管家的回收站右键菜单');
reg:=TRegistry.Create;
//删除金山的右键回收
sid := GetCurrentUserSid;
Memo1.Lines.Add('');
Memo1.Lines.Add('当前用户SID：' + sid);
pa:= '\' + sid + '\Software\Classes\CLSID\{645FF040-5081-101B-9F08-00AA002F954E}\shellex\ContextMenuHandlers\datamastershellext';
//Memo1.Lines.Add(pa);
reg.RootKey:=HKEY_USERS;
if not reg.openkey(pa,false) then
try
reg.DeleteKey(pa);
finally
end;
//删除腾讯的回收站右键
pa:= '\SOFTWARE\Classes\CLSID\{645FF040-5081-101B-9F08-00AA002F954E}\shellex\ContextMenuHandlers\datamastershellext';
reg.RootKey:=HKEY_LOCAL_MACHINE;
if not reg.openkey(pa,false) then
try
reg.DeleteKey(pa);
finally
end;
reg.CloseKey;
reg.Free;
//定时退出
end;
procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
If Button = mbleft Then begin ReleaseCapture; SendMessage(Form1.Handle,WM_NCLBUTTONDOWN,HTCAPTION,0); end;
end;
procedure TForm1.Image2Click(Sender: TObject);
begin
Application.Terminate;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Application.Terminate;
end;
end.

GetCurrentUserSid 参照 http://www.280i.com/tech/4163.html

本作品采用知识共享署名 4.0 国际许可协议进行许可

文章评论