[Error] c_cookies.pas(68): Undeclared identifier: 'clRed'[Error] c_cookies.pas(70): Undeclared identifier: 'clLime'今天写了一个小程序,在线程的使用时. 用到了Edit1.color:=cIRed 结果报错.后来才知道,自己在Uses中少了Graphics单元. 大
[Error] c_cookies.pas(68): Undeclared identifier: 'clRed'[Error] c_cookies.pas(70): Undeclared identifier: 'clLime'今天写了一个小程序,在线程的使用时. 用到了Edit1.color:=cIRed 结果报错.后来才知道,自己在Uses中少了Graphics单元. 大
程序的自启动(delphi源代码)下面是通过简单的代码实现程序自身的关闭,然后启动过程.procedure TForm1.Button1Click(Sender: TObject);begin application.Terminate; Winexec(Pchar(application.exename),SW_SHOW);end;
查找网页中的字符串(使用Webbrowser控件)uses MSHTML;procedure TForm1.Button1Click(Sender: TObject);var str:string; HTML1:IHTMLDocument2;begin HTML1:=Webbrowser1.document as IHTMLDocument2; st
快速删除整个目录(源代码)以前用递归的方法删除,如果文件比较多,很消费时间。现在如下代码是借用API来删除。效果不错。代码如下:function DelDirectory(const Source: string): boolean;var fo: TSHFILEOPSTRUCT;begin FillChar(fo, Size
如何安装控件(问题已解决)在delphi控件安装时,BPL分静态包和动态包里面能放函数、窗体等,dll能做的它基本都能做到。BPL的优点很多,比如你做个被调模块,dll如果是100k,BPL顶多10k左右,容量优势很突出传递参数和dll一样都能传进来。 1.对于单个控件,Component-->install component..-->PAS或DCU
delphi与MD5加密usesWindows;typeMD5Count = array[0..1] of DWORD;MD5State = array[0..3] of DWORD;MD5Block = array[0..15] of DWORD;MD5CBits = array[0..7] of byte;MD
delphi笔记(珍藏版)delphi中退出程序的命令application.Terminate;sql查询中=:用来读取和比较参数比如update user set 姓名=:name其中的姓名是字段名称,而:name是引用参数。like :XX也是这么回事。如果直接比较或读取控件上的值或自己定义的变量上的值,则不用=:,直接=就好了比如update user set 姓名='''+edit1.t
delphi之注册表操作(木马编程) ●GetDataInfo方法Function GetDataInfo(const ValueName:String;Var Value:TRegDataInfo):Boolean;TregDataType=(rdunknown,rdstring,rdexpandstring,rdexpandstring,rdinterger,rdbinary);Tr
Delphi中UDP协议通讯 Delphi中UDP协议通讯先在type域中定义Record(未压缩)或Packed Rcord(压缩包)结构体,再用Indy的idUDPclient和idUDPServer分别负责发送和接收如:注意每定义一节都接一个End;表示定义完其中一个,末尾不再加其他end;{--------------------------------------