比较基础的东西 继续加油：）

创建无窗体的EXE程序的法子

Delphi启动后，会自动开启一个Form1窗体，
1、Project-->Remove from Project选中要删除的窗体名点OK
2、View-->Units

创建的就是这样的了

program Project1;

uses
  Forms;

{$R *.res}

begin
  Application.Initialize;
  Application.Run;
end.

自己改下代码

这个方法也是创建最小程序的一种方法：）

Delphi的代码总是看的我很头疼。。。

最初由 lemony 发布
Delphi的代码总是看的我很头疼。。。

Delphi比较好懂吧？

这个貌似就是相当于进程守护了　

楼上就貌似是传说中的ASM了

Originally posted by 默数悲伤
楼上就貌似是传说中的ASM了

我有个ＩＤ叫 ASM

不知道你指的是不是我　

要是程序只允许允许一个，还能杀不？

通杀！可以杀自己也可以杀别人。
/调用函数杀程序进程
KillTask('1.exe');
KillTask('2.exe');
KillTask('3.exe');
//启动程序
WinExec('1.exe',SW_SHOW);
WinExec('2.exe',SW_SHOW);
WinExec('3.exe',SW_SHOW);

杀死自己，无非就是一个ExitProcess把自己退出去，然后另外一个再启动自己，代码：

.386
.model flat, stdcall
option casemap:none
include windows.inc
include kernel32.inc
include user32.inc

includelib kernel32.lib
includelib user32.lib

.data
szFileName db '22222222.exe',0

.data?
hSnapShot dd ?
stProcess PROCESSENTRY32 <?>
stStartUp    STARTUPINFO        <?>
stProcInfo    PROCESS_INFORMATION    <?>
hInstance    dd        ?
hWinList dd ?
.code
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
_Snapshot proc
invoke   RtlZeroMemory,addr stProcess,sizeof stProcess ;清空stProcess,不然进程会重叠
mov   stProcess.dwSize,sizeof stProcess
invoke   CreateToolhelp32Snapshot,TH32CS_SNAPPROCESS,addr stProcess ;开始历遍快照
mov   hSnapShot,eax ;保存到句柄中
invoke   Process32First,hSnapShot,addr stProcess ;历遍第一个进程
   .while   eax
       invoke   lstrcmp,addr szFileName,addr stProcess.szExeFile ;对比是否发现22222222.exe
       .if eax == NULL ;如果发现了,就调用_Snapshot1刷新快照
       call _Snapshot1
     .endif
       invoke   Process32Next,hSnapShot,addr stProcess
   .endw
call _Process ;如果没发现，就执行22222222.exe
invoke ExitProcess,NULL ;一定要退出，不然会大量消耗CPU导致死机
_Snapshot endp
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
_Snapshot1 proc
invoke   RtlZeroMemory,addr stProcess,sizeof stProcess
mov   stProcess.dwSize,sizeof stProcess
invoke   CreateToolhelp32Snapshot,TH32CS_SNAPPROCESS,addr stProcess
mov   hSnapShot,eax
invoke   Process32First,hSnapShot,addr stProcess
   .while   eax
       invoke   lstrcmp,addr szFileName,addr stProcess.szExeFile ;刷新并开始对比是否发现22222222.exe
       .if eax == NULL ;如果发现
       call _Snapshot ;重新刷新快照重复
     .endif
       invoke   Process32Next,hSnapShot,addr stProcess
   .endw
call _Process ;如果没发现，就执行它，执行完毕，退出
invoke ExitProcess,NULL
_Snapshot1 endp
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
;开始调用CreateProcess创建22222222.exe
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
_Process proc
   invoke    GetStartupInfo,addr stStartUp
   invoke    CreateProcess,addr szFileName,NULL,NULL,NULL,NULL,\
           NORMAL_PRIORITY_CLASS,NULL,NULL,addr stStartUp,addr stProcInfo
ret
_Process endp
start:
        call _Snapshot ;程序一开始运行就要马上历遍快照
end start
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

.386
.model flat, stdcall
option casemap:none
include windows.inc
include kernel32.inc
include user32.inc

includelib kernel32.lib
includelib user32.lib

.data
szFileName db '111111111.exe',0

.data?
Pid dd ?
hSnapShot dd ?
stProcess PROCESSENTRY32 <?>
stStartUp    STARTUPINFO        <?>
stProcInfo    PROCESS_INFORMATION    <?>
hInstance    dd        ?
hWinList dd ?
.code
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
_Snapshot proc
invoke   RtlZeroMemory,addr stProcess,sizeof stProcess
mov   stProcess.dwSize,sizeof stProcess
invoke   CreateToolhelp32Snapshot,TH32CS_SNAPPROCESS,addr stProcess
mov   hSnapShot,eax
invoke   Process32First,hSnapShot,addr stProcess
   .while   eax
       invoke   lstrcmp,addr szFileName,addr stProcess.szExeFile
       .if eax == NULL
       call _Snapshot1
     .endif
       invoke   Process32Next,hSnapShot,addr stProcess
   .endw
call _Process
       invoke ExitProcess,NULL
_Snapshot endp
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
_Snapshot1 proc
invoke   RtlZeroMemory,addr stProcess,sizeof stProcess
mov   stProcess.dwSize,sizeof stProcess
invoke   CreateToolhelp32Snapshot,TH32CS_SNAPPROCESS,addr stProcess
mov   hSnapShot,eax
invoke   Process32First,hSnapShot,addr stProcess
   .while   eax
       invoke   lstrcmp,addr szFileName,addr stProcess.szExeFile
       .if eax == NULL
       call _Snapshot
     .endif
       invoke   Process32Next,hSnapShot,addr stProcess
   .endw
call _Process
       invoke ExitProcess,NULL
_Snapshot1 endp
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
_Process proc
   invoke    GetStartupInfo,addr stStartUp
   invoke    CreateProcess,addr szFileName,NULL,NULL,NULL,NULL,\
           NORMAL_PRIORITY_CLASS,NULL,NULL,addr stStartUp,addr stProcInfo
ret
_Process endp
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
start:
   call _Snapshot
end start
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

上传的附件：

• 进程守护1.rar （1.41kb，45次下载）

请问:
如何保证自己的进程不被杀死呢

求xp下屏蔽Ctrl_Alt_Del的delphi代码

记得看过先删除自己，再结束进程的代码，牛人啊~