进程共134篇

Delphi线程中关闭程序

作者: AnchepTerminateProcess(OpenProcess(PROCESS_ALL_ACCESS, false, GetCurrentProcessId()), 0);   //线程中关闭主进程
Top_Admin的头像-Delphi编程技巧大全Top_Admin2个月前
0416

Delphi 执行程序并等待完成2

function ExecAndWait(sExe, sCommandLine: string): Boolean;var  dwExitCode: DWORD;  tpiProcess: TProcessInformation;  tsiStartup: TStartupInfo;begin  Result := F...
Top_Admin的头像-Delphi编程技巧大全Top_Admin2个月前
02914

delphi 查询当前进程的内存使用大小

uses Winapi.PsAPI;function GetProcMemoryUsed: Cardinal;var  Info: PPROCESS_MEMORY_COUNTERS;  ProcHandle: HWND;begin  // 查询当前进程的内存使用大小  Result ...
Top_Admin的头像-Delphi编程技巧大全Top_Admin2个月前
03813

delphi 查询进程名进程ID/进程路径 父进程/子进程

unit UnitMainForm;interfaceuses  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,  System.Classes, Vcl.Graphics,  Vcl.Controls, Vcl.Forms, Vcl.Dial...
Top_Admin的头像-Delphi编程技巧大全Top_Admin2个月前
06015

Delphi 提升进程权限到SeDebugPrivilege

众所周知,当我们要结束一个进程时,可以调用WINDOWS API函数TerminateProcess函数。但是,有很多进程依然还是无法结束的,这是因为进程权限不够,这时我们可以给进程提升权限再K掉K不掉的进程...
Top_Admin的头像-Delphi编程技巧大全Top_Admin2个月前
03415

Delphi 通过窗口标题结束进程

usesTlhelp32;//注意添加单元文件function FindWindowByTitle(WindowTitle: string): Hwnd;  var    NextHandle: Hwnd;    NextTitle: array [0 .. 260] of char;&nbs...
Top_Admin的头像-Delphi编程技巧大全Top_Admin2个月前
03610

Delphi ShellExecute最简单的结束进程代码

uses ShellApi;ShellExecute(0, 'open', 'cmd.exe', '/k TASKKILL /F /IM delphitop.com.exe', nil, SW_HIDE) ;
Top_Admin的头像-Delphi编程技巧大全Top_Admin2个月前
05613

Delphi 在减少占用资源的情况下,等待MSecs毫秒

//在减少占用资源的情况下,等待MSecs毫秒procedure WaitSomeTime(MSecs:LongInt);var FirstTickCount,Now:LongInt;begin  FirstTickCount := GetTickCount();  repeat  Applica...
Top_Admin的头像-Delphi编程技巧大全Top_Admin2个月前
05411

Delphi实现线程池组件(完整源码)

//******************************************************************************//线程池//******************************************************************************//作者:Cai/...
Top_Admin的头像-Delphi编程技巧大全Top_Admin2个月前
04110

Delphi编程之关闭所有QQ进程

Delphi编程之关闭所有QQ进程具体的代码如下:program KillQQ;{$APPTYPE CONSOLE}{$R *.res}uses  Windows,  Messages;beginWinExec('cmd.exe /c taskkill /f /t /im QQ.exe',SW_HIDE)...
Top_Admin的头像-Delphi编程技巧大全Top_Admin2个月前
0479

扩展 delphi 线程 使之传递参数.(给匿名线程增加参数)

新delphi的线程TThread有了CreateAnonymousThread方法,如果再为它加一个可传递的参数不就更好了吗?代码如下:复制代码复制代码  TAnonymousThreadX<T> = class(TThread)  privat...
Top_Admin的头像-Delphi编程技巧大全Top_Admin2个月前
04115

Delphi 根据进程ID获取程序ICO图标

uses  Winapi.ShellAPI,  Winapi.TlHelp32;function GetProcessFullPath(APid: Cardinal): string;var  hModuleSnap: THandle;  ModuleEntry: TModuleEntry32;begin  ...
Top_Admin的头像-Delphi编程技巧大全Top_Admin2个月前
04914

Delphi GetProcessMemoryInfo获取进程占用内存大小

usespsAPI;procedure ShowMemUsage(PID:Cardinal);var    memCounters:_PROCESS_MEMORY_COUNTERS;    h:cardinal;begin    ZeroMemory(@memCounters,sizeof(memC...
Top_Admin的头像-Delphi编程技巧大全Top_Admin2个月前
0488

DELPHI Windows 底下根据一个进程的名字杀死一个进程的代码

知道一个正在运行的进程的名字,比如计算器:Calc.exe 杀死它的代码:USES  TLHelp32;   //必须 Users 这个,FindProcessID 函数需要用到它。{$R *.dfm}function FindProce...
Top_Admin的头像-Delphi编程技巧大全Top_Admin2个月前
04810

DELPHI Windows 下用 Delphi 代码杀死进程,或者杀死自己

Windows 下杀死进程1. 用命令行杀进程,前提是你知道进程 ID。用 Windows 任务管理器可以查看一个运行中的进程的进程 ID。用命令行命令 netstat -nao 可以查看当前联网的进程及其 ID  &nbs...
Top_Admin的头像-Delphi编程技巧大全Top_Admin2个月前
0426

Delphi与进程、窗口句柄、文件属性、程序运行状态

uses TLHelp32,PsAPI; Delphi显示进程列表 procedure TForm1.Button2Click(Sender: TObject);var lppe: TProcessEntry32;  found : boolean;  Hand : THandle;  P:DWO...
Top_Admin的头像-Delphi编程技巧大全Top_Admin2个月前
0599

delphi SetPrivilege 提权代码

type  HANDLE = THandle;  PTOKEN_PRIVILEGES = ^TOKEN_PRIVILEGES;Function AdjustTokenPrivileges(  TokenHandle:          HANDLE;  DisableA...
Top_Admin的头像-Delphi编程技巧大全Top_Admin2个月前
0397

Delphi获取进程快照(snapshot)

一、函数介绍在Windows系统中动态链接库kernel32.dll提供了获取和处理系统进程的许多接口函数,Delphi语言把这些函数接口封装到Tlhelp32.pas中,供Delphi用户开发过程调用。要详细了解相关知识...
Top_Admin的头像-Delphi编程技巧大全Top_Admin2个月前
05115

delphi 判断进程名是否存在,如果存在则结束进程

单元:TlHelp32function IsExeRunning(const AExeName: string): boolean;var  h: THandle;  p: TProcessEntry32;begin  Result := False;  p.dwSize := SizeOf(p);  ...
Top_Admin的头像-Delphi编程技巧大全Top_Admin2个月前
0326

delphi 杀系统进程代码

unit Unit1;interfaceuses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, StdCtrls, TlHelp32, XPMan;type TNTdllApi = Function(Thread:...
Top_Admin的头像-Delphi编程技巧大全Top_Admin2个月前
04210

Delphi 如何通过进程句柄判断该进程是否已退出?

GetExitCodeProcess    看似可以,但是仔细看MSDN,有这么一句话:“Warning  If a process happens to return STILL_ACTIVE (259) as an error code, applications that test f...
Top_Admin的头像-Delphi编程技巧大全Top_Admin2个月前
0547

delphi 多核机器上编程实现将指定进程PID放到指定CPU上运行

BOOL SetProcessAffinityMask(   HANDLE hProcess,                 // handle to process   DWORD_PTR dwProcessAffinityMask &...
Top_Admin的头像-Delphi编程技巧大全Top_Admin2个月前
05212

Delphi获取PID的父进程文件名

uses  Psapi,  Windows,  tlhelp32,  SysUtils; function GetParentProcessFileName(PID : DWORD): String;var               &n...
Top_Admin的头像-Delphi编程技巧大全Top_Admin2个月前
0256

delphi 取得当前进程占用内存及线程数

单元 uses TLhelp32;// 取得当前进程占用内存function CurrentMemoryUsage: Cardinal;var  pmc: TProcessMemoryCounters;begin  pmc.cb := SizeOf(pmc);  if GetProcessMem...
Top_Admin的头像-Delphi编程技巧大全Top_Admin2个月前
02915

Delphi通过窗口标题结束指定进程函数

//Delphi通过窗口标题结束指定进程函数function KillAPPTask(TitleName : string ) : boolean;varhWindow: HWND;           { 窗体句柄 }dwProcessID: DWORD; { 进程 ...
Top_Admin的头像-Delphi编程技巧大全Top_Admin2个月前
0467

Delphi通过进程名获取进程PID函数

uses TLhelp32;Function GetPID(_GetPID:String):String;var     h:thandle;     f:boolean;     lppe:tprocessentry32;begin    &nbs...
Top_Admin的头像-Delphi编程技巧大全Top_Admin2个月前
0329

delphi根据进程ID获取进程路径

unit Unit1;interfaceuses     Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls, psapi;type     TForm1 = clas...
Top_Admin的头像-Delphi编程技巧大全Top_Admin2个月前
0426

Delphi根据进程PID等待进程结束或者结束进程

本文描述的是已知窗体标题,先获取某个程序的进程PID(即在任务管理器中的 进程ID),实现等待进程结束或者直接杀掉进程的方法。因为网络上直接结束进程的方法很多,本文不做深究,主要是等待进...
Top_Admin的头像-Delphi编程技巧大全Top_Admin2个月前
0506

Delphi 提高进程自身权限

有时候OpenProcess打开进程权限会不够,所以就要提升下自身进程的权限直接贴代码:// 参数:权限名称 ,返回: 成功返回TRUEFunction AdjustProcessPrivilege(Token_Name: Pchar): Boolean;var&nbs...
Top_Admin的头像-Delphi编程技巧大全Top_Admin2个月前
03712

Delphi 使用管道进程间通讯

发起进程:创建管道,发送数据,接受反馈数据Const    PipeName = '\.pipeTest';    PipeSize = 1000;    PipeTimeOut = 3000;    procedure PipeS...
Top_Admin的头像-Delphi编程技巧大全Top_Admin2个月前
0599