Uses Windows, SysUtils, Tlhelp32 ; Function KillTask( ExeFileName: String ): Integer ; //关闭进程 Function EnableDebugPrivilege: Boolean ; //提升权限 Function FindProcessId( ExeFileName: String ): THandle ; //查找进程 Implementation Function FindProcessId( ExeFi…

偶然翻到很久以前用DELPHI写的一个小程序,实现功能是在后台默默关闭符合条件的进程,并隐藏自身.编写目的是为了防止办公电脑运行游戏. 实现原理是: 1.程序运行后将自身以不同的名称一式三份存到系统各目录中,将其中一个COPY写到注册表里开机自启动,然后修改注册表中txt文件和exe文件打开方式分别指向另两个COPY,达到监控目的. 2.程序一但激活首先会确认各COPY是否存在以及注册表关联是否正常,然后再检查系统是否运行在禁止名单中的进程,发现就杀死. 3.如果程序监控到用户运行regedit…

TStrings是一个抽象类,在实际开发中,是除了基本类型外,应用得最多的. 常规的用法大家都知道,现在来讨论它的一些高级的用法. 先把要讨论的几个属性列出来: 1.CommaText 2.Delimiter & DelimitedText 3.Names & Values & ValueFromIndex 先看第一个:CommaText.怎么用呢?用代码说话: const constr :String = 'aaa,bbb,ccc,ddd'; var strs :TStrings…

C#中可以通过反射分析元数据来解决这个问题,示例代码如下: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 using System; using System.Reflection;   namespace Hello {     class Program     {…

Windows Server 2008跟Windows Server 2003一样,在关机的时候会弹出一个“关闭事件跟踪程序”窗口,当然微软这么做是处于安全的考虑啦,但是如果我们只是个人用用的话,那就有点麻烦了,所以今天就教大家在Windows Server 2008中关闭事件跟踪程序的方法. 1.开始→运行→输入gpedit.msc,打开组策略 2.依次展开计算机配置→管理模板→系统,在右边的窗口中找到显示“关闭事件跟踪程序”,相关截图如下所示: 3.双击显示“关闭事件跟踪程序”,打开显示“关…

源:Delphi中建立指定大小字体和读取该字体点阵信息的函数 Delphi中建立指定大小字体和读取该字体点阵信息的函数 作者:Thermometer Email:  webmaster@daheng-image.com 由于要控制硬件,需要把矢量的汉字转化为点阵信息写入eprom或在液晶屏上显示,因此用Delphi写了如下的函数,可以把指定的一个汉字(两个字符)转化为点阵信息保存到文件,每个点对应一个二进制位,有文字信息该位为1,否则为0. 目前该函数可以生成指定大小的汉字并可读取点阵字模信息保…

查看所有tcp进程 监听的端口 lsof -iTCP -sTCP:LISTEN 查看指定端口信息 lsof -i: 关闭指定进程 kill -…

from:http://www.jb51.net/article/66580.htm 这篇文章主要介绍了Python3实现从文件中读取指定行的方法,涉及Python中linecache模块操作文件的使用技巧,需要的朋友可以参考下 本文实例讲述了Python3实现从文件中读取指定行的方法.分享给大家供大家参考.具体实现方法如下: # Python的标准库linecache模块非常适合这个任务 import linecache the_line = linecache.getline('d:/Fre…

python实现在目录中查找指定文件的方法 本文实例讲述了python实现在目录中查找指定文件的方法.分享给大家供大家参考.具体实现方法如下: 1. 模糊查找 代码如下: import os from glob import glob #用到了这个模块 def search_file(pattern, search_path=os.environ['PATH'], pathsep=os.pathsep):     for path in search_path.split(os.pathsep)…

例如要关闭jupyter-notebook这个进程: - | 说明:管道符“|”用来隔开两个命令,管道符左边命令的输出会作为管道符右边命令的输入. “ps -ef” 查看所有进程 “grep -v grep” 是在列出的进程中去除含有关键字“grep”的进程. “cut -c 9-15” 是截取输入行的第9个字符到第15个字符,而这正好是进程号PID. “xargs kill -9” 中的xargs命令是用来把前面命令的输出结果(PID)作为“kill -9”命令的参数,并执行该命令. “kil…

例如要关闭jupyter-notebook这个进程: ps -ef | grep jupyter-notebook | grep -v grep | cut -c 9-15 | xargs kill -9 说明:管道符“|”用来隔开两个命令,管道符左边命令的输出会作为管道符右边命令的输入. “ps -ef” 查看所有进程 “grep -v grep” 是在列出的进程中去除含有关键字“grep”的进程. “cut -c 9-15” 是截取输入行的第9个字符到第15个字符,而这正好是进程号PID.…

在Delphi中,所有流对象的基类为TStream类, 其中定义了所有流的共同属性和方法.TStream类中定义的属性介绍如下: 1.Size: 此属性以字节返回流中数据大小. 2.Position: 此属性控制流中存取指针的位置. Tstream中定义的虚方法有四个:1.Read:此方法实现将数据从流中读出.函数原形为:Function Read(var Buffer;Count:Longint):Longint;virtual;abstract;参数Buffer为数据读出时放置的缓冲区,Co…

在开发某些软件的时候,为了保护程序自身,就需要用到隐藏程序进程.以下通过实例来讲解隐藏程序进程的方法: 1.创建一个新的项目 Project1 选择File,New Application.在表单Form1上放一Memo组件,一个OK按钮组件,改变OK按钮组件的Cation属性为 CreateProcess.再放一个timer组件.设置timer组件的Interval值为1000,每秒检查一次进程是否终止. 2.在Unit1 Use节的Type后定义一个过程 procedure Establis…

在eclipse中查找指定文件   1.ctrl+h打开搜索界面 File Search: containing text填*,File name patterns填写hello.*,可以找到hello为命名的文件 知道文件类型,查找里面的login 2.ctrl+shift+t查找工作空间(workspace)java类文件 注意:由于是查找工作空间的,所以多的项目时找到多个类用鼠标指向去看时属于哪个项目 如下查找类文件ServiceVO,找到后会自动指向该类文件 3.ctrl+shift+r…

转载请注明出处:http://blog.csdn.net/bettarwang/article/details/40947481 近期有一个需求就是往程序中增加大数据的採集点,可是由于我们的Android程序包括两个进程,所以涉及到跨进程通信的问题.现将Android中的跨进程通信方式总结例如以下. Android中有4种跨进程通信方式,各自是利用AIDL Service.ContentProvider.Broadcast.Activity实现. 1.利用AIDL Service实现跨进程通信…

public static void KillProcess(string strProcessesByName)//关闭线程 { foreach (Process p in Process.GetProcesses())//GetProcessesByName(strProcessesByName)) { if (p.ProcessName.ToUpper().Contains("你要关闭的进程名字")) { try { p.Kill(); p.WaitForExit(); // p…

如果要在delphi中使用自定义资源文件*.res文件,比如一个光标,此时可以采用下列步骤: 1,创建包含相应的资源文件,这里是创建一个包含自定义光标的res文件. 2,在主窗体的pas文件中加入编译指令,要求编译器将资源文件链接到最终文件中. 3,在FormCreate的时候加载资源并使用. unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,…

1.ContentProvider简单介绍 在Android中有些数据(如通讯录.音频.视频文件等)是要供非常多应用程序使用的.为了更好地对外提供数据.Android系统给我们提供了Content Provider使用.通过它能够訪问上面所说的数据,比如非常多音乐播放器中的扫描功能事实上就用到了Content Provider功能(当然.也有的播放器是自己去实现更底层的功能).这种优点是统一管理.比方添加了某个音频文件,底层就会将这种变化通知Content Provider,从而当应用程序訪问时…

示例注释(现在应该知道的): {   1.接口命名约定 I 起头, 就像类从 T 打头一样.   2.接口都是从 IInterface 继承而来; 若是从根接口继承, 可省略.   3.接口成员只能是方法.属性, 没有字段.   4.接口成员都是公开的, 不需要 private.protected.public.published 等任何访问限制.   5.因为接口只声明.无实现, 也用不到继承与覆盖相关的修饰(virtual.dynamic.abstract.override).   6.一个…

实例1 unit Unit1; interface   uses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;    const WM_ME=WM_USER+100; //自定义消息:  type  TForm1 = class(TForm)     Button1: TButton; procedure  Button1Click(Sender: TO…

Delphi从XE以后集成里SVN客户端, 安装完Delphi以后, 在bin\subversion下, 存放的就是SVN客户端文件, 可惜版本有点低(好像是1.7的) 如果想更新成高版本的客户端文件按下面的方法: 1.到collab的网站SVN下载页面: http://www.collab.net/downloads/subversion 下载要使用的SVN Client版本(不是EDGE的), 大概6M左右的那个 2.下载下来安装(默认安装路径: C:\Program Files\Colla…

脚本由 Inno Setup 脚本向导 生成!; 有关创建 Inno Setup 脚本文件的详细资料请查阅帮助文档! #define MyAppName "XX管理系统"#define MyAppVersion "1.0"#define MyAppPublisher "彭小波"#define MyAppURL "http://www.xxxxx.com/"#define MyAppExeName "fdsfds.ex…

每一个activity都有自己的生命周期,被打开了最终就要被关闭. 四种结束当前的activity方法 但如果已经启动了四个Activity:A,B,C和D, 在D Activity里,想再启动一个Activity B,但不变成A,B,C,D,B,而是希望是A,B,而且B上的数据依然保留 在D Activity里,想再启动一个Activity B,但不变成A,B,C,D,B,而是希望是A,B,而且B上的数据不保留 如果已经启动了四个Activity:A,B,C和D,在D Activity里, 想…

注意这条命令用反引号(Tab上面的那个键)括起来,作用类似于${ } processId = ` ps -ef | grep fms.jar | grep -v grep | awk '{print $2}' `     ps -ef  |  grep fms.jar 打印出包含 fms.jar 的所有进程信息(一行一个进程的信息): grep -v  grep  过滤掉包含  grep 字符的行,过滤掉当前的查找进程: awk '{print $2}' 输出第二列的内容:等于0时输出所有内容,…

package oracle.apps.pon.printing.cp; import java.io.InputStream; import java.io.FileOutputStream; import oracle.jbo.domain.BlobDomain; import oracle.apps.fnd.cp.request.CpContext; import oracle.apps.fnd.cp.request.LogFile; import oracle.apps.fnd.cp.r…

  NthDayOfWeek 计算并返回指定日期是该月第几周 Unit:DateUtils function NthDayOfWeek(const AValue: TDateTime): Word; Example: Uses SysUtils,DateUtils; Begin  Write('Today is the ',NthDayOfWeek(Today),'-th ');  Writeln(formatdateTime('dddd',Today),' of the month.');En…

uses MSHtml; //在控件标签additional中找到TApplicationEvents控件,拖到窗体上．在TApplicationEvents的OnMessage事件中加入以下代码: //替换右键菜单 procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG; var Handled: Boolean); var mPoint: TPoint; begin if IsChild(WebBrowser.Handle, Ms…

unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls; const TIMER_ID = ; type TForm1 = class(TForm) Label1: TLabel; btkilltime: TButton; btsettime: TButton; procedure Button1Click(Send…

Case 语句If...Then…Else 语句适合选项较少的情况,如果有很多选项的话利用If 语句就比较麻烦,在这种情况下,Case 语句就容易多了.Case 语句的语法如下: case <表达式> of <数值>:<语句>; <数值>:<语句>; else <语句>; end; 下面这个例子中的S 为Char 类型.当用户输入一个字符后按回车键确认后判断变量S,如果是小写或大写字母将显示“字符”,如果是数字,则显示“数字”,其余的…

var str = 'abcadeacf'; var str1 = str.replace('a', 'o'); alert(str1); // 打印结果: obcadeacf var str2 = str.replace(/a/g, 'o'); alert(str2); //打印结果: obcodeocf, 注意: 此处replace的第一个参数为正则表达式,/g是全文匹配标识.…