- 博客(30)
- 资源 (19)
- 收藏
- 关注
转载 Delphi 从内存中加载并启动一个EXE
windows似乎只提供了一种启动进程的方法:即必须从一个可执行文件中加载并启动。而下面这段代码就是提供一种可以直接从内存中启动一个exe的变通办法。用途嘛, 也许可以用来保护你的exe,你可以对要保护的 exe 进行任意切分、加密、存储,只要运行时能将exe的内容正确拼接到一块内存中,就可以直接从内存中启动,而不必不安全地去生成一个临时文件再从临时文件启动进程。另外这段代码也提供了一种自
2012-12-21 14:55:07
1071
转载 北京工作居住证的申请条件和可享受的待遇
符合城市功能定位和首都经济发展方向及产业规划要求的本市行政区域内具有法人资格的企事业单位、民办非企业单位、社会团体,外国(地区)、外埠在京设立的非法人分支机构,其聘用的人员在本市有固定住所且具备下列条件之一者,均可申请《工作居住证》: (一)具有2年以上工作经历并取得学士(含)以上学位的人才; (二)具有中级(含)以上专业技术职称或相当资格、资质的人才; (三)对首都经济和
2012-07-23 18:08:59
2959
转载 使用通配符进行字符串比较的函数MatchesMask
procedure TTestMatchesMask.TestMatchesMaskFunc;var S: string;begin // TODO: Setup method call parameters S := 'http://www.zhangsk.cn'; Check(MatchesMask(S,'http://*'), 'Error at: );
2012-07-23 17:25:04
442
转载 FastMM配置文件详解
中文详细配置方法如下:{Fast MemoryManager: 选项配置文件在这里为FastMM设置默认选项FastMM 4.84}{Simplified Chinese translation by QianYuan WangContact meif you find any improper translation.如果翻译上有任何不恰当的地方请和我联系。
2012-07-13 15:10:45
558
转载 Delphi程序员如何找到高薪的工作?
<br /><br />本文翻译自《美国优秀经理观念大全修订本》<br /><br />我想现在没有什么比做一个软件工程师更能赚钱的了,当然了,明星除外。在美国,一个优秀的软件工程师,就算在一个平凡的岗位上,也能得到年薪50万(美元)以上的待遇。这绝对不是开玩笑,在北美曾有统计表明,一年内发放给软件工程师的工资以及各种福利,占去了全美净收入的2.4%,这是一个很大的数字。<br /><br />我是一个Java软件工程师,但是在这里我不想说Java,而是想说说Delphi,这个曾一度被遗弃的孩子。<br /
2011-06-01 15:04:00
360
转载 共享软件的盈利模式
<br /> 经常看到很多同行们对共享软件能否赚到钱感到困惑,虽然大家都知道的周易前辈的MP3 CD Maker创下了月入四万的记录,但这对我们大多数人来说,只是一个很遥远的梦,就好象是水中的月亮,可望不可及。这个也曾经是我投入这个行业是的目标,虽然到目前我的收入才达到他的四分之一,但我已心滿意足了,回顾两年多的编程生活,总结了一些经验,希望和大家分享,最重要的一点,我将它做为这篇文章的题目吧,那就是:我一直在努力。<br /> 一 困惑<br /> 共享软件能赚到钱吗?怎么才能收到钱?很多朋友在刚
2011-01-09 19:08:00
1968
原创 delphi提示:File not Found:DockForm.dcu的解决办法
安装控件时,如果引用了dsgnintf单元,那么就会提示找不到proxy.pas 或者DockForm.dcu的错误,只需在安装控件包时添加“lib/DesignIde.dcp”即可
2010-01-08 16:52:00
1894
转载 位图文件格式
理解分辨率我们常说的屏幕分辨率为640×480,刷新频率为70Hz,意思是说每行要扫描640个象素,一共有480行,每秒重复扫描屏幕70次。 理解调色板有一个长宽各为200个象素,颜色数为16色的彩色图,每一个象素都用R、G、B三个分量表示。因为每个分量有256个级别,要用8位(bit),即一个字节(byte)来表示,所以每个象素需要用3个字节。整个图象要用200×200×3,
2009-04-24 15:52:00
1575
2
转载 delphi 中使用TWebBrowser控件
1.获得网页中变量值 htm中 var currID=123 程序中可以这么调用 id := Form1.WebBrowser1.OleObject.Document.script.currID 值得说明的是,变量可以是javascript定义的,也可以是vbscript定义的,如果Webbrowser1中找不到该变量,调用会触发一个异常事件,即变量cur
2009-04-10 10:28:00
1172
转载 如何取消win2003关机提示?
每次关闭Windows Server 2003系统时,你总会发现关机原因提示框,不厌其烦地“抢占”你的视线,这让喜欢一气呵成关机的你,浑身不自在。不得已,你必须进行如下“手术”,才能“赶走”烦人的关机原因提示窗口。依次执行“开始” | “运行”命令,打开一个运行对话框,在其中输入“gpedit.msc”命令,来弹出组策略编辑界面。在该界面中,用鼠标左键双击“计算机配置”文件夹 | “管理模板”文
2009-04-09 17:06:00
555
转载 关于使用__try和__except 链接时报错的解决方法
关于使用__try和__except 链接时报错的解决方法在驱动程序使用了结构化异常处理(try-except)块,用VS编译连接有时会报错。如:无法解析的外部符号___security_cookie无法解析的外部符号__except_handler4无法解析的外部符号__local_unwind4 解决方法:1)选择“项目”->“属性”-> “C/C++”-> “
2009-03-25 23:21:00
533
转载 使用VS2008编译驱动程序
使用VS2008编译驱动程序一.用VS2008创建一个Win32控制台应用程序,在“附加选项”处勾选“空项目”二.将编写好的源代码文件导入项目中三.修改VS2008设置,添加支持驱动程序编译链接的头文件和库文件 在Include目录中添加: D:/软件/WINDDK/2600/inc/w2k D:/软件/WINDDK/2600/inc/ddk/w2k
2009-03-25 23:20:00
2633
1
原创 设置 Delphi的 代码编辑器的字体
Delphi 7: 打开注册表HKEY_CURRENT_USER/Software/Borland/Delphi/7.0/Editor/Options,可以看到右边有Editor Font:Courier New,修改这个可以修改字体名称,Font Size:a,修改这个可以修改字体大小,其他还有很多属性都可以尝试更改; Delphi 2009: 打开注册表HKEY_CURRENT
2009-03-13 14:38:00
2334
原创 Windows 2003不能自动给USB设备分配盘符
新买了个移动硬盘,接入电脑,等了半天发现没反应,还以为是移动硬盘有问题,于是进到磁盘管理中,看到了我的移动硬盘,但是没有盘符,于是给他指定了一个盘符,然后再打开我的电脑,发现移动硬盘出来了,原来windows 2003不能自动给插入USB接口的移动硬盘自动分配盘符
2009-03-03 11:02:00
711
原创 dell 640M笔记本换内存条
往往现在的笔记本有两条内存扩展槽,一条是你说的在笔记本后面,它只是扩展槽,Dell官方的本子上对它有比较多的描述,0sJ&gZ/~K另外一条内存在你键盘下方,需要你将键盘拆下来才能更换。$FG(o8x3S$N拆机方法如下: a%x2Ny-MG0Rjb1、关闭所有的电源!!最重要!,Q^GQ3`2、将电池取下,下面有两个螺丝,仔细看一下,应该是连接前面的开关面板的。3、用一字螺
2008-11-03 15:51:00
2827
原创 delphi中用Socket取得本机的IP地址
function GetLocalAddr: string;var szName: array [0..254] of char; host: Phostent; addr: in_addr;begin Result := ; ZeroMemory(@szName, 255); if gethostname(szName, 255) begin host := geth
2008-07-17 10:43:00
436
原创 csdn是怎么了
最近在用csdn博客,发现越改版就越是差劲,速度慢得出奇不说,有的常用功能还得我到处找,找了半天才找到操作的接口,有的功能找了半天怎么也找不到,估计csdn根本就没有提供那些功能。今天偶上传了一个资源,然后查看偶的所有资源,居然没有这个资源,在baidu和google搜索下这个资源,也搜索不到,郁闷ing!!!!!!偶准备换一个博客了,不在csdn开了,各位有什么好的博客空间可以推荐下
2008-05-23 10:42:00
331
1
原创 TIcon保存ico文件时失真的解决办法
提取exe文件中的图标并保存为ico文件:ico := TIcon.Create;try ico.handle := ExtractIcon(hInstance, ExeFileName, 0); ico.SaveToFile(c:/001.ico);finally ico.free;end;保存后的001.ico文件严重失真,我们打开Graphics.pas文件,找到writeIcon
2008-05-19 08:46:00
761
原创 获取ie在本机的缓存文件
function MyGetUrlCacheEntryInfo(lpszUrlName: PAnsiChar; lpCacheEntryInfo: PInternetCacheEntryInfo; lpdwCacheEntryInfoBufferSize: PDWORD): BOOL; stdcall; external wini
2008-05-09 15:33:00
483
原创 使用MSI读出本机已经安装软件列表
type PsoftItem = ^TSoftItem; TSoftItem = packed record SoftName: string; SoftVer: string; Path: string; end; procedure ReadLocalSoftByMSI(aList: TList);var Index: Integer; Buf: array
2008-04-09 12:14:00
792
转载 利用Debug Api 获得QQ2007密码
利用Debug Api 获得QQ2007密码 代码:{*******************************************************}{ }{ 利用Debug Api 获得QQ2007密码
2008-03-10 20:17:00
382
转载 关于WMI的问题
关于WMI的问题运行脚本、诸如 CIM Studio 这样的基于 WMI 的工具或者运行 WMI 控件的时候,可能会遇到 WMI 服务错误。脚本可能不运行,或者可能收到一个“Access Denied”(拒绝访问)错误;导致这种错误的原因可能是 WMI 没有运行,或者命名空间没有被正确地配置。引起错误的原因还可能是 WMI 提供者提供的类没有被载入,或者 WMI 存储库(存储类定义的场所)已经
2008-02-28 11:26:00
1143
1
原创 delphi实现jpg图片转换成bmp格式
将一个jpg格式的图片文件转换为bmp格式的文件,如果直接将扩展名jpg改成bmp,在XP及以上的系统中能自动识别打开bmp文件,但在2000及以下的系统中就会提示格式错误,这段代码实现了jpg格式到bmp格式的转换,转换后的bmp文件在2000以下的系统中也能正确打开 procedure TForm1.JpgToBmp(const JpgFile, BmpFile: string);var
2008-02-26 11:24:00
1621
原创 用WMI检测本机已经安装的补丁列表
procedure TForm1.BitBtn1Click(Sender: TObject);var Locator: OleVariant; WMI: OleVariant; RET: OleVariant; Enum: IEnumVariant; Tmp: OleVariant; Value: Cardinal; s: string;begin Memo1.Lines.Cl
2008-02-21 12:02:00
727
转载 Delphi中TFrame组件的使用
Delphi中TFrame组件的使用 从Delphi 5.0开始,Borland 引进了一个新的可视化的容器类TFrame。 这个类,我们称之为TFrame框架组件,使程序开发人员能够可视化的设置一组组件,之后系统中对它进行重用。TFrame框架概观 TFrame框架有两个主要的好处: 第一、框架可大幅减少需要存储在工程中的
2008-02-19 10:45:00
2579
转载 高级停靠(Dock)技术的实现
高级停靠(Dock)技术的实现 介绍所谓停靠就是可以用鼠标拖动窗体或者控件,并将其从一个父窗体移出或者移动到另一个父窗体上,可以按水平,垂直方向整齐排列, 并且可以停靠在分页控制组件上。下面的示意图是一个Delphi IDE的窗口停靠示意图:考察一些常用的软件如Office等大型软件,会发现大多提供窗体停靠的功能。微软的MFC很早就引入了工具条的拖放功能,可以将工具条上窗口
2008-02-19 10:42:00
616
原创 计算两个日期的间隔,可精确到秒
function LeaveDateTimeStr(const fromDate, ToDate: TDateTime): string;var Days, H, M, S: Int64;begin Result := ; if fromDate = ToDate then begin Result := 已到期; end else begin Days := A
2008-02-18 14:19:00
537
原创 非主窗体如何置顶
SetWindowPos(Form1.Handle, HWND_TOPMIOST, Left, Top, Width, height, SWP_SHOWWINDOW)可以将窗口放在所有窗口的最前面,但是这仅对一个应用程序的主窗口有效,非主窗口只能在这个应用程序的内部被置前,但是其他应用程序的窗口仍然会盖住他。 解决方法是将Form1的父窗口设为桌面,如:procedure TForm1.
2008-01-12 15:36:00
906
1
屏幕颜色提取器(带源码)
2011-01-18
解决vs2008与ie8冲突的问题
2009-05-15
vs2008工程转换为vs2005工程的工具
2008-11-10
类似于SPY++的能抓取窗口信息的工具
2008-10-09
NT函数得到进程的exe文件名
2008-09-26
扩展的THeader控件
2008-03-06
自动安装Windows补丁漏洞
2008-02-02
桌面秀软件
2008-02-02
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人