一.打开外部exe 1.use文件-SHELLAPI 2.ShellExecute(handle,'open','E:\test.exe','-s','',SW_SHOWNORMAL); 二.关闭外部exe 1.use文件-TLHelp32 2.新建两个函数 //查找正在运行的进程 function TForm1.FindTask(ExeFileName: string): Boolean;constPROCESS_TERMINATE=$0001;var ContinueLoop: BOOL;

http://www.duote.com/tech/4/11797.html delphi编写提取exe文件的ICO图标 7.0分 出处:天下网吧 时间:2011-08-05 人气:2390 核心提示:会写自己的EXE程序,但没一个好看的EXE图标,是不是很遗憾啊?很多软件都有很好看的图标, 会写自己的EXE程序,但没一个好看的EXE图标,是不是很遗憾啊?很多软件都有很好看的图标,我们为什么不提取出来呢?下面教你怎么用delphi编程提取EXE文件的图标,并保存为ICO格式的. 代码如下: pr

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

后台代码: 1 using System.Diagnostics;  2 3 protected void Button1_Click(object sender, EventArgs e)4     {5         Process process = new Process();6         process.StartInfo.FileName = "notepad.exe";7         process.Start();8  } 其中notepad.exe是记事本

有时在Delphi使用指针类型的数据,总是提示如下: [Warning] FGroupFeedBack.pas(796): Unsafe typecast of 'Pointer' to 'TObject' [Warning] FGroupFeedBack.pas(696): Unsafe type 'PChar' 比较烦,虽说不是bug,但是看着不爽.做程序最好做到没有waring和hints. 说说怎么关闭这个waring, 其他的waring需要找出代码的不完善行,后改善,但这种warin

/** * @desc 启动进程 * @author zp * @date 2018-3-29 */ public static void startProc(String processName) { log.info("启动应用程序:" + processName); if (StringUtils.isNotBlank(processName)) { try { Desktop.getDesktop().open(new File(processName)); } catch (

链接: https://www.cnblogs.com/pengpengzhang/p/8675740.html https://blog.csdn.net/ZHANGHUI3239619/article/details/78808129 例: // 启用exe客户端 @RequestMapping("/startUpXFExe") @ResponseBody public ResponseResult startUpXFExe(ModelMap map, HttpServletReq

delphi获取Exe文件版本信息的函数 Type TFileVersionInfo = Record FixedInfo:TVSFixedFileInfo; {版本信息} CompanyName:String; {公司名称} FileDescription:String; {说明} FileVersion:String; {文件版本} InternalName:String; {内部名称} LegalCopyright:String; {版权} LegalTrademarks:String;

句柄Handle顾名思义就是把柄,把手的意思 ,得到了某对象的句柄可以任意控制此对象 .句柄是一种指向指针的指针.不是每个组件都有句柄,只有窗口控件等(*.模块(module)*.任务(task)*.实例(instance)*.文件(file)*.内存块(block of memory)*.菜单(menu)*.控制(control)*.字体(font)*.资源(resource),包括图标(icon),光标(cursor),字符串(string)等*.GDI对象(GDI object),包括位图

@echo off rem rem 注释 tastkill /f /im a.exe cd %CD% %CD:~0,1%: cd  %Cd%b start %CD%a.exe cd .. %CD:~0,1%: cd  %Cd%a start %CD%b.exe

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

右击里面有修改 点开直接修改就可以了吧. DELPHI 里程序的版本信息怎么是灰色的,无法更改 耐心读以下说明,应该能解决你的问题,如果不能解决,请Hi我~ 如何给自己的dll文件添加版本信息呢? 首先建立一个文件后缀为.rc(以ver.rc为例),用记事本打开,拷贝下面内容: ("//"号为注释,会被编译器丢弃,这里只是为了说明才加上的.) VS_VERSION_INFO VERSIONINFO //版本信息结构 FILEVERSION 1,0,0,1 //顾名思义文件版本,就是在属

一般来说,由Delphi生成的EXE文件,要比其由它编程语言生成的体积大一些.这主要是由于使用VCL的原因(当然,VCL是有许多优点的!) 以下是减小EXE文件大小的几种途径: 01) 使用加壳工具(如 UPX,ASPack 等) 02) 使用 KOL 03) 不使用VCL来编写程序 04) 使用 ACL (API 控制库) 05) 使用 StripReloc 06) 去除运程调试信息与 TD32 07) 把允许的代码写到 DLL 中 08) 不要在设计时把图片放置在 Form 上,而是运行时加

学习 PE 可执行文件格式,用 delphi 实现给 EXE 文件增加区段 源码下载(StudyPE.zip) unit uStudyPE; interface uses Classes, SysUtils, Windows, uPERec; type TImage_Section_headerList = class; TStudyPE = class private FFileStream: TFileStream; FNewStream: TMemoryStream; FImage_Dos

//十六进制(S)-->>十进制(I)  [重写:Jey]function hextoint(s: string): Integer; begin           //$代表16进制  Result:=StrToInt('$'+s);end; //十进制转换为二进制字符串  [重写:Jey]function inttoBin(i: integer): string;begin while i <>0 do begin              //i mod 2取模,再使用fo

文件的拖放和打开拖拽 user shellapi type TForm1 = class(TForm) ListView1: TListView; procedure FormCreate(Sender: TObject); private { Private declarations } public { Public declarations } procedure AppMessage(var Msg: TMsg; var Handled: Boolean);///////消息处理函数 e

前言: Java不存在内存泄漏, 但存在过期引用以及资源泄漏. (个人看法, 请大牛指正) 这边对文件句柄泄漏的场景进行下模拟, 并对此做下简单的分析.如下代码为模拟一个服务进程, 忽略了句柄关闭, 造成不能继续正常服务的小场景. public class FileHandleLeakExample { public static String readContentFromFile(String filename) { StringBuilder sb = new StringBuilder(

在delphi 7中(其他版本也可能碰到该问题),编译后,代码左边显示蓝色小点,表示哪句代 码是被编译了的,可今天我的一些代码不能显示那些蓝点了,这样也就不能在上面设断点了,而且用F8跟踪发现执行的顺序不对.同时,编译中发现有错误的行,也没有指到对应的行上,可能在错误行的下一行,甚至有时候会执行到注释行或者空行上.造成该问题的原因是Dos换行和Unix换行的差异造成的错误. Dos换行是2个字符,一个回车符+一个换行符. Unix换行只有一个自符,好像是换行符.这样在Delphi编辑器内显示时候

delphi  安装卸载ocx 请参见 如下 http://blog.csdn.net/xt_chaoji/article/details/7027298 打开Delphi,关闭所有项目. 1.      安装OCX控件 点击菜单项:Component -> Import ActiveX Control… 进入如下界面: 然后点击按钮“Add..”,弹出如下界面选择Ocx文件:   注意:如果是DLL文件,则可能不会出现,需要将文件类型切换为所有. 选中目标文件后,该Ocx或者DLL对应的OCX

首先,我们先来认识下CreateFile函数,它的原型如下   HANDLE CreateFile( LPCTSTR lpFileName,    //指向文件名的指针 DWORD dwDesiredAccess,   //访问模式(写/读) DWORD dwShareMode,   //共享模式 LPSECURITY_ATTRIBUTES lpSecurityAttributes,//指向安全属性的指针 DWORD dwCreationDisposition,   //如何创建 DWORD d

这个问题捣鼓了两天,现在终于解决了,做个笔记分享给大家,以免走弯路 起初,我的想法是在DLL中写一个interface并从函数中导出这个interface,像这样的代码 ICom1 = interface function Show(V1, V2: Integer): Integer stdcall; end; 最后均以失败告终,后来想到各种编译器对编译后的二进制组织方式是不同的比如上面的代码如果用Delphi编写的Exe去调用就是没问题的,而用其他语言则可能会有问题网上有很多跨语言调用方案是用