天下网吧 >> 网吧天地 >> 天下码农 >> 桌面开发 >> VBS >> 正文

Delphi写网吧IE修复工具,调用Rundll32

2010-1-19本站原创admin

以下是代码片段:

unit main ;

interface

uses
  Windows , Messages , SysUtils , Variants , Classes , Graphics , Controls , Forms ,
  Dialogs , StdCtrls , ComCtrls , shellapi , txwblabel ;

type
  TFrmMain = class ( TForm )
    ProgressBar1: TProgressBar ;
    LbMsg: TLabel ;
    Button1: TButton ;
    ListBox1: TListBox ;
    Label1: TLabel ;
    TxwbLabel1: TTxwbLabel ;
    procedure FormCreate ( Sender: TObject ) ;
    procedure Button1Click ( Sender: TObject ) ;
  private
    { Private declarations }
  public
    { Public declarations }
  end ;

var
  FrmMain: TFrmMain ;

implementation

{$R *.dfm}

procedure TFrmMain.Button1Click ( Sender: TObject ) ;
var
  tmpStr: string ;
begin
  Button1.Enabled := False ;
  Progressbar1.Position := 0 ;
  Progressbar1.Max := ListBox1.Items.Count ;
  for tmpStr in ListBox1.Items do
  begin
    Lbmsg.Caption := '正在处理:' + tmpStr ;
    Progressbar1.Position := Progressbar1.Position + 1 ;
    Application.ProcessMessages ;
    winexec (
      Pchar ( 'Regsvr32.exe ' + tmpStr + ' /s-' ) ,
      1 ) ;

  end ;

  winexec ( 'rundll32.exeadvpack.dll/DelNodeRunDLL32%systemroot%\System32\dacui.dll' , 1 ) ;
  winexec ( 'rundll32.exeadvpack.dll/DelNodeRunDLL32%systemroot%\Catroot\icatalog.mdb' , 1 ) ;
  winexec ( 'Regsvr32.exe scrrun.dll mstinit.exe /setup /s-' , 1 ) ;
  winexec ( 'Regsvr32.exe msnsspc.dll /SspcCreateSspiReg /s-' , 1 ) ;
  winexec ( 'Regsvr32.exe msapsspc.dll /SspcCreateSspiReg /s-' , 1 ) ;
  winexec ( 'Regsvr32.exe proctexe.ocxmshta.exe/register /s-' , 1 ) ;
  Button1.Enabled := True ;
  Lbmsg.Caption := '修复完成' ;
end ;

procedure TFrmMain.FormCreate ( Sender: TObject ) ;
begin
  Label1.Caption :=
    '因功能强大请慎重使用!软件带来后果自行负责'#13 +
    '适合不能在新窗口打开连接,不能执行某些脚本,'#13 +
    '以及其它的IE疑难杂症!' ;
end ;

end.

 

本文来源:本站原创 作者:admin

声明
声明:本站所发表的文章、评论及图片仅代表作者本人观点,与本站立场无关。若文章侵犯了您的相关权益,请及时与我们联系,我们会及时处理,感谢您对本站的支持!联系Email:support@txwb.com,系统开号,技术支持,服务联系QQ:1175525021本站所有有注明来源为天下网吧或天下网吧论坛的原创作品,各位转载时请注明来源链接!
天下网吧·网吧天下
  • 本周热门
  • 本月热门
  • 阅读排行