program Project1; uses Windows, Messages, SysUtils; procedure DeleteMe; var BatchFile: TextFile; BatchFileName: string; ProcessInfo: TProcessInformation; StartUpInfo: TStartupInfo; begin BatchFileName := ExtractFilePath(ParamStr(0)) + '_deleteme.bat'…

Delphi编写后台监控软件         文章来源:Delphi程序员之家     后台监控软件,为了达到隐蔽监控的目的,应该满足正常运行时,不显示在任务栏上,在按Ctrl+Alt+Del出现的任务列表中也不显示,管理员可以通过热键调出隐藏的运行界面.要作到这些,必须把当前进程变为一个系统服务,并且定义全局热键. 一.把当前进程变为一个系统服务: 目的是在任务列表中把程序隐藏起来.调用API函数RegisterServiceProcess实现. 二.定义全局热键(本例中定义热键Ctrl+De…

实现的原理WINSOCK是一组API,用于在INTE.Net上传输数据和交换信息.用它编程本来是很麻烦的,但在DELPHHI中并不需要直接与WINSOCK的API打交道,因为TclientSocket和TserverSocket元件封装了它的大部分API,使得对WINSOCK的访问大大简化.SOCKET是网络通信的基本构件,是可以被命名和寻址的通信端点,使用中的第一个SOCKET都有其类型和一个与之相连的进程.SOCKET存在于通信区域中,通信区域也叫地址族,是一个抽象概念,主要用于将通过SOC…

这篇文章的目的,关心询问名人,要打开源代码.这里说明,远程监控摄像头场外,相反,用手机摄像头摄像头server上,要理解这一点.关于非常网上的文章达到server道路.它能够准确,念就乱发博文,当然假设博文有利于Android学者学当然是好的,假设是误人子弟,我是建议你先细致想想这篇文章对学者们是否实用,假设是否,就不用乱发了.以下考论这个源代码的重要性. 一.需求确定 有很多客户都须要实现一个手机能对场外的摄像头进行实时监控,能进行控制摄像头转动,拉焦距,抓图等. 二.这类资源缺少 网上看过海…

当Close是一个主窗体时,程序会退出.Close会发生FormClose事件,FormCloseQuery事件Halt会发生FormDestory事件,Application.Terminate以上三个事件都不会发生 Application.Terminate就是程序结束了.整个程序结束运行,系统强行收回系统资源 当主窗口关闭时或WM_QUIT消息触发时,Terminate自动被调用close,只是针对窗体.主窗体close以后程序就Application.Terminate了. 子窗体clo…

不久前写了个抓取网页内容的小程序,跑了一晚上,本以为早上起来都抓完了,谁知道程序死掉了,分析半天,才发现用tmemo来记录日志的信息太多了,越积越多,本来memo的容量就不大.对于无法控制信息量的日志来说,有可能造成崩溃.记得见过盒子上一个关于手机发短信的小程序,上面有个日志的写法不错.方法:1.每写一行日志,先判断memo的行数是否超过自己设定的行数,我一般设为1000行,这样保存的日志大小一般在64K左右2.判断保存日志的目录是否存在,不存在就建 一个3.用日期加时间取一个日志名,象这种20…

uses Tlhelp32; function KillTask(ExeFileName:string):integer; const PROCESS_TERMINATE = $0001; var ContinueLoop: BOOLean; FSnapshotHandle: THandle; FProcessEntry32: TProcessEntry32; begin Result := 0; FSnapshotHandle := CreateToolhelp32Snapshot(TH32C…

需要在子窗口的onClose事件中吧Action = caFree; 就可以了. procedure Tfrm_aa.FormClose(Sender: TObject; var Action: TCloseAction);begin Action := caFree;end;…

清除Windows图标缓存的代码: procedure RebuildIconCache; .... const sr_WindowMetrics='Control Panel\Desktop\WindowMetrics\'; sr_ShellIconSize='Shell Icon Size'; function WindowsDir:string; var buffer: ..] of char; begin GetWindowsDirectory(@Buffer,SizeOf(buffer…

procedure TFrmWeekAnalysisQry.BtnExportToExcelClick(Sender: TObject);var wordApp,WordDoc,WrdSelection:variant;strAdd:string;i,j,iRangeEnd,iStart,iEnd : integer;wdPar,wdRange:OleVariant;oShape, oChart,myCol: OleVariant;SumJHTonCount, SumWCTonCount, PJ…