delphi
beggar_1982
大家好,欢迎光临我的博客
展开
-
计算两个日期的间隔,可精确到秒
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 · 523 阅读 · 0 评论 -
使用通配符进行字符串比较的函数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 · 398 阅读 · 0 评论 -
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 · 523 阅读 · 0 评论 -
Delphi程序员如何找到高薪的工作?
<br /><br />本文翻译自《美国优秀经理观念大全修订本》<br /><br />我想现在没有什么比做一个软件工程师更能赚钱的了,当然了,明星除外。在美国,一个优秀的软件工程师,就算在一个平凡的岗位上,也能得到年薪50万(美元)以上的待遇。这绝对不是开玩笑,在北美曾有统计表明,一年内发放给软件工程师的工资以及各种福利,占去了全美净收入的2.4%,这是一个很大的数字。<br /><br />我是一个Java软件工程师,但是在这里我不想说Java,而是想说说Delphi,这个曾一度被遗弃的孩子。<br /转载 2011-06-01 15:04:00 · 333 阅读 · 0 评论 -
delphi提示:File not Found:DockForm.dcu的解决办法
安装控件时,如果引用了dsgnintf单元,那么就会提示找不到proxy.pas 或者DockForm.dcu的错误,只需在安装控件包时添加“lib/DesignIde.dcp”即可原创 2010-01-08 16:52:00 · 1833 阅读 · 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 · 2237 阅读 · 0 评论 -
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 · 749 阅读 · 0 评论 -
获取ie在本机的缓存文件
function MyGetUrlCacheEntryInfo(lpszUrlName: PAnsiChar; lpCacheEntryInfo: PInternetCacheEntryInfo; lpdwCacheEntryInfoBufferSize: PDWORD): BOOL; stdcall; external wini原创 2008-05-09 15:33:00 · 465 阅读 · 0 评论 -
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 · 416 阅读 · 0 评论 -
使用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 · 774 阅读 · 3 评论 -
非主窗体如何置顶
SetWindowPos(Form1.Handle, HWND_TOPMIOST, Left, Top, Width, height, SWP_SHOWWINDOW)可以将窗口放在所有窗口的最前面,但是这仅对一个应用程序的主窗口有效,非主窗口只能在这个应用程序的内部被置前,但是其他应用程序的窗口仍然会盖住他。 解决方法是将Form1的父窗口设为桌面,如:procedure TForm1.原创 2008-01-12 15:36:00 · 875 阅读 · 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 · 1588 阅读 · 0 评论 -
用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 · 713 阅读 · 0 评论 -
Delphi中TFrame组件的使用
Delphi中TFrame组件的使用 从Delphi 5.0开始,Borland 引进了一个新的可视化的容器类TFrame。 这个类,我们称之为TFrame框架组件,使程序开发人员能够可视化的设置一组组件,之后系统中对它进行重用。TFrame框架概观 TFrame框架有两个主要的好处: 第一、框架可大幅减少需要存储在工程中的转载 2008-02-19 10:45:00 · 2534 阅读 · 0 评论 -
Delphi 从内存中加载并启动一个EXE
windows似乎只提供了一种启动进程的方法:即必须从一个可执行文件中加载并启动。而下面这段代码就是提供一种可以直接从内存中启动一个exe的变通办法。用途嘛, 也许可以用来保护你的exe,你可以对要保护的 exe 进行任意切分、加密、存储,只要运行时能将exe的内容正确拼接到一块内存中,就可以直接从内存中启动,而不必不安全地去生成一个临时文件再从临时文件启动进程。另外这段代码也提供了一种自转载 2012-12-21 14:55:07 · 1011 阅读 · 1 评论