首页Delphi列表
广告
举报该广告
点击刷新
  • Delphi 练习1 制作易飞高级查询窗口(1)

     unitUnit1;interfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs,StdCtrls,StrUtils,Vcl.RibbonLunaStyleActnCtrls,Vcl.Ribbon,Vcl.ScreenTips;typeTForm1=class(TForm)…
  • Delphi获取身份证号码验证码算法

    18身份证号码的结构  公民身份号码是特征组合码,由十七位数字本体码和一位校验码组成  排列顺序从左至右依次为:六位数字地址码,八位数字出生日期码,三位数字顺序码和一位校验码 1、地址   表示编码对象常住户口所在县(市、旗、区)的行政区域划分代码,按GB/T2260的规定执行2、出生日期码   表示编码对象出生的年、月、日,按GB/T7408的规定执行,年、月、日代…
  • 用Delphi制作DLL

    一、开使你的第一个DLL专案   1.File->Closeall->File->New﹝DLL代码:  //自动产生Code如下   libraryProject2;   //这有段废   uses   SysUtils,   Classes;  {$R*.RES}  begin   end.  2.加个Func进来 …
  • dll使用经验总结

    dll使用经验总结【资料是从免费网站上获取的,只为交流学习目的,文章原作者保留所有权力1.共享代码、资源和数据2.隐藏实现的细3.自定义控4.当多个程序同时调用同一个DLL时,能节约系统资源5.实现程序的模块化,使程序容易维护注意1.多个程序调用同一个DLL时,并不能共享该DLL中的数据,但可以通过内存映射文件技术来实现设置DLL的首选基地址2.如果在DLL被调入进程的地址空间时设置了基地址,则D…
  • Delphi 动态与静态调用DLL

      摘要:本文阐述了 Windows 环境下动态链接库的概念和特点,对静态调用和动态调用两种调用方式作出了比较,并给出 Delphi 中应用动态链接库的实例   一、动态链接库的概    动态链接库 DynamicLinkLibrary ,缩写为 DLL )是一个可以被其它应用程序共享的程…
  • Delphi.edit框只允许输入数字&字母

    在Delphi中使用编辑框时,有时需要限制输入它的字符类型,如只接收数字或只接收字母。我们可以在TEdit组件的on..KeyPress事件中对输入进行处理,以限制对编辑框的输入限制为只接收数字的例程如下:procedure TForm1.Edit1KeyPress(Sender:TObject;var..Key:Char);beginifnot(keyin)then begin  ke…
  • Delphi获取其它进程窗口句柄3种方

    本文主要跟大家介绍Delphi中获取其它进程的窗口句柄,在Delphi中获取其它进程的窗口句柄,绝大部分人首先想到的会使用:FindWindow或者用GetWindow来遍历查找,如:handle:=FindWindow(nil,PChar('窗口的标'));或者:procedureTForm1.Button1Click(Sender:TObject);var  hCurrentWindow:HW…
  • delphi函数参考手

    abort函数引起放弃的意外处abs函数绝对值函addexitproc函数将一过程添加到运行时库的结束过程表中addr函数返回指定对象的地址adjustlinebreaks函数将给定字符串的行分隔符调整为cr/lf序列align属使控件位于窗口某部分alignment属控件标签的文字位allocmem函数在堆栈上分配给定大小的块allowgrayed属允许一个灰度选择ansicomparestr函…
  • Delphi 动态连 SQL Server

    一、在Delphi7中连接MSSQLServer的方法刚开始时界面如下:添4个控件 设置控件属性过程: 1、ADOConnection1设置1)双击ADOConnection1,进行设置连接字符串(作用是:选取连接驱动方式和连接的数据库设置)。过程如下图所示: 2、ADOQuery1设置 1)ADOQuery1.connection属性为ADOConnect…
  • delphi 模拟自动登录网页

    delphi模拟自动登录网页首先我上张成果图如下下面我们来看具体实现的代码:控件啥的就不用我说看吧!第一步://初始化一下控procedureTForm1.FormCreate(Sender:TObject);beginEdit1.Text:='';Edit2.Text:='';Edit3.Text:='';Edit4.Text:='';Label1.Caption:='';button1.Cap…
友情链接