大悟还俗

邮箱 key_ok@qq.com 我的收集 http://pan.baidu.com/share/home?uk=1177427271
  新随笔  :: 联系 :: 订阅 订阅  :: 管理

随笔分类 -  Delphi

上一页 1 2 3 4 5 6 ··· 8 下一页

MIDAS.dll 出错时 (Error loading MIDAS.DLL.)

摘要：DELPHI 写的程序会出---------------------------Pmain---------------------------Error loading MIDAS.DLL.---------------------------确定 ---------------------------原因有三个1 没有MIDAS.DLL 下载一个考过去 2. 没有注册 。 使用 Regsvr32 （不会的话，就百度一下）3.还有一种是之前注册过，在注册表也有。只是和现在目录路径不同了Windows Registry Editor Version 5.00[-HKEY_CLASSES... 阅读全文

posted @ 2013-12-25 18:06 大悟还俗_2 阅读(2265) 评论(0) 推荐(0)

ClientDataSet

摘要：TField对象的SetText和GetText事件处理函数使用TField对象的SetText和GetText事件处理函数可方便的解决字段的代码与代码所对应值的显示问题TSimpleDataset/TClientDataset对象的Aggregation使用TDataset对象的Aggregate属性可以来计算客户端数据集中数据的总计数值、平均值或是计算最大值和最小值。使用TBookMark来标记记录书签, 访问数据集中的数据通过使用TBookMark以及TDataset对象的 BookMark 属性, 要以为当前的纪录设置书签，例var bk:TBookMark;begin bk:=ds. 阅读全文

posted @ 2013-12-18 16:17 大悟还俗_2 阅读(919) 评论(0) 推荐(0)

jpeg

摘要：方法1：procedure TForm1.Button2Click(Sender: TObject);var JPEGImage: TJPEGImage;beginif SavePictureDialog1.InitialDir =''then SavePictureDialog1.InitialDir := ExtractFilePath(OpenPictureDialog1.FileName);if trim(LabeledEdit1.Text)''then SavePictureDialog1.FileName := trim(LabeledEdit1.T 阅读全文

posted @ 2013-12-16 13:45 大悟还俗_2 阅读(299) 评论(0) 推荐(0)

Delphi2009之TImage

摘要：TPngImage原来是SourceFroge上的一个开源项目，现在突然消失了，为什么呢？Nick 在他的博客上写到：TPNGImage被CodeGear/Embarcadero收购了，现在直接就是Delphi 2009的一部分了，大家可以方便的在TImage中使用PNG图片。另外TImageLists也可以直接使用PNG图片了，呵呵。爽吧，不用下载。另外Delphi 2009还提供给大家一些漂亮的PNG图标，在C:\Program Files\Common Files\CodeGear Shared\Images\GlyFX\Icons\PNG下面哦。 阅读全文

posted @ 2013-12-09 15:17 大悟还俗_2 阅读(267) 评论(0) 推荐(0)

主程序装载脚本

摘要：主程序装载脚本procedure TForm1.FormCreate(Sender: TObject);begin fsScript1.Clear; fsScript1.Parent := fsGlobalUnit; fsScript1.AddComponent(Form1); fsScript1.Lines.LoadFromFile('1.txt'); fsScript1.Run;end; 1.txt文件uses 'lang.txt'; //引用公用的语言单元 procedure button1click(sender: tobject);begin show 阅读全文

posted @ 2013-11-26 15:29 大悟还俗_2 阅读(301) 评论(0) 推荐(0)

用UpdateResource修改EXE文件图标(已修正)

摘要：//请自行添加到 Type 处PICONDIRENTRY = ^ICONDIRENTRY;ICONDIRENTRY = packed record bWidth: Byte; bHeight: Byte;" A% f% ?( F* f' A1 R bColorCount: Byte; bReserved: Byte;! l/ c3 ?6 V7 S8 k, z& B9 t0 n wPlanes: Word;5 Q4 a+ ~: R* O) v wBitCount: Word;8 u7 R( K! t) W0 W: W dwBytesInRes: DWOR... 阅读全文

posted @ 2013-11-25 17:52 大悟还俗_2 阅读(712) 评论(0) 推荐(0)

SysUtils.CompareText的注释

摘要：两个字符串对象进行比较，忽略大小写，两个字符串缓冲区地址利用EAX和EDX两个寄存器传给该函数，字符串的长度用4个字节保存在缓冲区的前面，函数用EAX返回比较结果，结果为0表示相同。 function CompareText(const S1, S2: string): Integer; assembler;asm PUSH ESI ; 保存寄存器 PUSH EDI PUSH EBX MOV ESI,EAX ; EAX、EDX的值给ESI、EDI MOV EDI,EDX ... 阅读全文

posted @ 2013-11-25 17:47 大悟还俗_2 阅读(238) 评论(0) 推荐(0)

获取进程列表及相关信息

摘要：unit Main;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs,TlHelp32, StdCtrls, ComCtrls,psAPI;type PTokenUser = ^TTokenUser; _TOKEN_USER = record User: TSIDAndAttributes; end; TTokenUser = _TOKEN_USER; TForm1 = class(TForm) btn... 阅读全文

posted @ 2013-11-18 17:25 大悟还俗_2 阅读(297) 评论(0) 推荐(0)

全局键盘钩子(WH_KEYBOARD)

摘要：为了显示效果，在钩子的DLL中我们会获取挂钩函数的窗体句柄，这里的主程序窗体名为"TestMain"，通过FindWindow查找。KeyBoardHook.dll代码library KeyBoardHook;{ Important note about DLL memory management: ShareMem must be the first unit in your library's USES clause AND your project's (select Project-View Source) USES clause if your D 阅读全文

posted @ 2013-11-18 17:24 大悟还俗_2 阅读(838) 评论(0) 推荐(0)

实现软件自动升级

摘要：原理简单，在FTP上维护一个Update.ini文件，里面记录着要更新文件的版本号，本地也有一个Update.ini文件，每次启动更新程序时，先从FTP上下载Update.ini文件到本地名字为Update_new.ini，然后比较这两个文件，如果新的版本号大于旧的，或者新的文件在就ini中没有，这些就表示要更新的文件，然后逐一下载。 本程序名字为AutoUpdate，你生成这个exe，然后和主程序一起打包，创建桌面快捷方式时，指向AutoUpdate，而不是主程序。 在本地还有一个ini文件，比如叫ftp.ini吧，里面内容是[coninfo]main=Project1.exeparam=. 阅读全文

posted @ 2013-11-18 17:23 大悟还俗_2 阅读(451) 评论(0) 推荐(0)

在Win32程序中显示Dos调试窗口

摘要：在很多程序中，都可以看到程序运行中，会有一个Dos窗口，实时显示一些运行信息，这里就告诉大家是如何实现的，我们做个简单的，其实对控制台的操作还有很多，有兴趣的可以去查资料。 用到的API函数如下： //创建控制台 AllocConsole; //获取控制台窗口 GetStdHandle; //向控制台输出信息 WriteConsole; //释放控制台 FreeConsole;unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs,.. 阅读全文

posted @ 2013-11-18 17:21 大悟还俗_2 阅读(532) 评论(0) 推荐(0)

在窗体上创建自己的光标并输入文字

摘要：我们知道在文本框等可以接收输入的组件中，我们可以看到闪烁的光标，并可以输入文字，如果我们在，比如窗体上时，因为不支持输入，也无法显示闪烁的光标，那我们 有办法做自己的输入吗？当然可以，下面我们演示在Form上来输入文字。 用到的API函数如下GetTextMetrics：获取程序当前的字体信息，存放到TEXTMETRIC结构中CreateCaret：为系统插入标记创建一个新的形状，并且将插入标记的属主关系指定给特定的窗口。插入标记的形状。可以是线、块或位图ShowCaret：显示光标SetCaretPos：设置光标的位置unit Unit1;interfaceuses Windows, Me. 阅读全文

posted @ 2013-11-18 17:20 大悟还俗_2 阅读(643) 评论(0) 推荐(0)

RTTI D7

摘要：RTTI需要引用单元TypeInfo至于RTTI的数据结构,大家可以参考TypeInfo单元的代码看例子,先为大家介绍一下根据字符串找到属性,并且对其修改的例子根据属性字符串找到属性,并修改属性GetPropInfo 函数用于获得属性的 RTTI 指针 PPropInfo。它有四种重载形式，后面三种重载的实现都是调用第一种形式。AKinds 参数用于限制属性的类型，如果得到的 PPropInfo 不属于指定的类型，则返回 nil。 function GetPropInfo(TypeInfo: PTypeInfo; const PropName: string): PPropInfo; func 阅读全文

posted @ 2013-11-18 17:19 大悟还俗_2 阅读(270) 评论(0) 推荐(0)

delphi读取xml文件

摘要：功能: 根据省份更新地市信息-------------------------------------------------------------------------------}procedure TForm.GetCityInfo;var iXMLAreaFile : IXMLDocument; sFileName,aProvince,sProvince,sCity : string; nCol,nNum,nCityCount,nprovinceCount : Integer;begin iXMLAreaFile := TXMLDocument.create(nil)... 阅读全文

posted @ 2013-11-18 17:15 大悟还俗_2 阅读(1000) 评论(0) 推荐(0)

窗体Form的FormStyle属性设置为fsStayOnTop时属性设置不起作用问题探讨。

摘要：procedure CreateParams(var Params: TCreateParams); override; procedure MainForm.Createparams(var Params: TCreateParams);begin inherited; With Params do begin WndParent := Application.MainForm.Handle; Params.ExStyle := WS_EX_TOPMOST; end;end;View Code 阅读全文

posted @ 2013-11-18 17:12 大悟还俗_2 阅读(520) 评论(1) 推荐(0)

windows的消息传递--消息盒子

摘要：例如对windows发消息让文本选中。 SendMessage(Text1.hwnd,EM_GETSEL,0,-1); EC_LEFTMARGIN(&H1) EC_USEFONTINF //设置左边距时使用EC_RIGHTMARGIN EC_USEFONTINF //设置右边距时使用EC_USEFONTINF,O//边距 设置编辑控件的左、右边距，当wParam含EC_LEFTMARGIN时在lParam的低16位指定左边距点数，当wParam含EC_RIGHTMARGIN时在lParam的高16位指定右边距点数。当指定wParam为EC_USEFONTINFO时，则用当前字体的字符& 阅读全文

posted @ 2013-11-18 15:02 大悟还俗_2 阅读(424) 评论(0) 推荐(0)

实现拦截API的钩子(Hook)

摘要：library Hook;uses SysUtils, Windows, Classes, ApiDefine in 'ApiDefine.pas', APIHook in 'APIHook.pas';{$R *.res}var HookHandle: HHook;function HookProc(code:Integer;wparam:WPARAM;lparam:LPARAM):LRESULT;stdcall;begin Result := CallNextHookEx(HookHandle,code,wparam,lparam);end;procedure 阅读全文

posted @ 2013-11-18 10:37 大悟还俗_2 阅读(326) 评论(0) 推荐(0)

取PE文件的引入表和导出表

摘要：unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ComCtrls;type //导入表元素结构 TImageImportDiscriptor = packed record OriginalFirstThunk: DWORD; DataTimpStamp: DWORD; ForwardChain: DWORD; DLLName: DWORD; FirstThunk: D... 阅读全文

posted @ 2013-11-18 10:36 大悟还俗_2 阅读(645) 评论(0) 推荐(0)

KMP(字符串匹配)算法

摘要：unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } //模式数组 arrNext : array of Integer; //主串数组... 阅读全文

posted @ 2013-11-18 10:35 大悟还俗_2 阅读(164) 评论(0) 推荐(0)

Webbrowser中模拟连接点击（非鼠标模拟）

摘要：uses mshtml, ActiveX;//初始加载网易主页procedure TForm1.FormCreate(Sender: TObject);begin Webbrowser1.Navigate('http://www.163.com/');end;procedure TForm1.Button1Click(Sender: TObject);varI: Integer;Document: IHTMLDocument2;Element: IHTMLElement;Anchors: IHTMLElementCollection;sLink: string;begin // 阅读全文

posted @ 2013-11-18 10:32 大悟还俗_2 阅读(250) 评论(0) 推荐(0)

上一页 1 2 3 4 5 6 ··· 8 下一页