Delphi:程序自己删除自己,适用于任何windows版本(含源码)
来源:互联网 发布:中国政治体制优势 知乎 编辑:程序博客网 时间:2024/05/19 02:26
Delphi:程序自己删除自己,适用于任何windows版本(含源码)
function Suicide: Boolean;
var
sei: TSHELLEXECUTEINFO;
szModule: PChar;
szComspec: PChar;
szParams: PChar;
begin
szModule := AllocMem(MAX_PATH);
szComspec := AllocMem(MAX_PATH);
szParams := AllocMem(MAX_PATH);
if ((GetModuleFileName(0,szModule,MAX_PATH)<>0) and
(GetShortPathName(szModule,szModule,MAX_PATH)<>0) and
(GetEnvironmentVariable('COMSPEC',szComspec,MAX_PATH)<>0)) then
begin
lstrcpy(szParams,'/c del ');
lstrcat(szParams, szModule);
sei.cbSize := sizeof(sei);
sei.Wnd := 0;
sei.lpVerb := 'Open';
sei.lpFile := szComspec;
sei.lpParameters := szParams;
sei.lpDirectory := 0;
sei.nShow := SW_HIDE;
sei.fMask := SEE_MASK_NOCLOSEPROCESS;
if (ShellExecuteEx(@sei)) then
begin
SetPriorityClass(sei.hProcess,HIGH_PRIORITY_CLASS);//IDLE_PRIORITY_CLASS);
SetPriorityClass( GetCurrentProcess(),
REALTIME_PRIORITY_CLASS);
SetThreadPriority( GetCurrentThread(),
THREAD_PRIORITY_TIME_CRITICAL);
SHChangeNotify(SHCNE_Delete,SHCNF_PATH,szModule,nil);
Result := True;
end
else
Result := False;
end
else
Result := False;
end;
- Delphi:程序自己删除自己,适用于任何windows版本(含源码)
- winfrom 程序自己删除自己
- 程序删除自己,改写自己
- 程序如何删除自己
- 程序如何删除自己
- 程序快速删除自己
- 程序快速删除自己
- 程序快速删除自己
- 程序实现自己删除
- 自己写的飘带游戏含源码
- VC 程序运行后自己删除自己
- delphi编写windows服务程序,含托盘
- 获得自己程序的版本
- 获得自己程序的版本
- VC程序快速删除自己
- 自己写的一个DELPHI 控制台程序
- myeclipse注册机(适用于任何版本)
- C#程序自杀 程序删除自己
- Linux vi/vim编辑器常用命令与用法总结
- ARKit从入门到精通(3)-ARKit自定义实现
- ROS学习(基于Ubuntu 15.04 和ROS Jade)第三章 ROS核心教程 之 15 录制与回放数据
- MySQL 时间戳转日期格式小案例
- javascript赋值、算术、逻辑运算符
- Delphi:程序自己删除自己,适用于任何windows版本(含源码)
- 《leetcode》two-sum
- 第一篇博客
- java学习笔记01
- 插入排序之--希尔排序
- setTimeout and setInterval
- 人工智能之机器学习算法体系汇总
- 一些简单算法的学习——递归
- Qt4过渡至Qt5需要注意的