var //检查自己的进程的父进程
Pn: TProcesseNtry32;
sHandle: THandle;
Found: Boolean;
sHandle := CreateToolHelp32SnapShot(TH32CS_SnapProcess, 0);
Found := Process32First(sHandle, Pn); 执行完为什么Found为False???我是放在.dpr文件里首先执行再运行程序的,跟这个有关么???
各位大虾帮忙看看!!!
Pn: TProcesseNtry32;
sHandle: THandle;
Found: Boolean;
sHandle := CreateToolHelp32SnapShot(TH32CS_SnapProcess, 0);
Found := Process32First(sHandle, Pn); 执行完为什么Found为False???我是放在.dpr文件里首先执行再运行程序的,跟这个有关么???
各位大虾帮忙看看!!!
pn.dwSize:=sizeof(pn);