摘要：
viewRadio_th线程函数在form外生命全局变量、函数内相应的局部变量可以接收全局变量的赋值进行操作、query等可以自行创建进行查询、这样结果不会改变。//下面是后台发送字幕的线程函数应用。……var ldate,ldatetime:string; lHandle:thandle; dloopThreadID:dword; message_form: Tmessage_form; function viewRadio_th(P:pointer):Longint;stdcall;implementationuses commonDM, ubox_c, common_u, lo... 阅读全文
摘要：
利用delphi dll wizard进行dll的编写。创建：保存时改dll名称library test2;uses SysUtils, Classes, forms, dialogs;{$R *.res}function test():string;begin showmessage('a');end;exports test;//必须的beginend.调用：在调用单元的implement下面 function test():string;external 'xxxxxxx\test2.dll';button中调用test方法即可。动态调用dll：type 阅读全文
摘要：
1. 首先引用winsock单元 function PingHost(HostIP: String): Boolean;type PIPOptionInformation=^TIPOptionInformation; TIPOptionInformation=packed ... 阅读全文
摘要：
隐藏状态栏中的窗体ShowWindow( Handle, SW_HIDE ); SetWindowLong( Handle, GWL_EXSTYLE,GetWindowLong(Handle, GWL_EXSTYLE) or WS_EX_TOPMOST or WS_EX_TOOLWINDOW and not WS_EX_APPWINDOW); ShowWindow( Handle, SW_SHOW ); 阅读全文
摘要：
此方法安装了llPDFLib.v3.6 控件、对pdf左侧、右侧正文进行了操作。procedure TForm1.Button1Click(Sender: TObject);var node,nd1:TPDFOutlineNode; PW,ph:integer; bmp:TBitma... 阅读全文
摘要：
单目运算符 (最高优先级) @ 取变量或函数的地址(返回一个指针) not 逻辑取反或按位取反 乘除及按位运算符 * 相乘或集合交集 / 浮点相除 div 整数相除 mod 取模 (整数相除的余数) as 程序运行阶段类型转换 (RTTI运算符) and 逻辑或按位求和 shl 按位左移 shr 按位右移 加减运算符 + 相加、集合并集、字符串连接或指针增加一个偏移量 - 相减、集合差集或指针减少一个偏移量 or 逻辑或按位或运算 xor 逻辑或按位异或运算 关系及比较运算符(最低优先级) = 判断是否相等 判断是否不相等 < 判断是否小于 阅读全文
摘要：
Delphi 中的Additional页里有个Maskedit控件，它可以限制用户只能按照既定的输入格式输入，只需要在其EditMask属性进行一定的设置即可实现。 掩码格式可以分为三部分每个部分之间用分号“;”分开。第一部分;第二部分;第三部分其中， 第一部分是掩码本身，也就是数据输入格式。 在这一部分用一些特殊的格式符来表示应输入的字符类型及格式，常用的特殊格式符有：!去掉输入数据开头的空格符> 让输入数据的字母都变成大写，直到遇上掩码字符 不限制输入数据字母是大写或小写\ 若在输入格式内加入某个特殊字符，只要在特殊字符的前面加上此掩码就可以。（其实不加也可以）L 允许... 阅读全文
摘要：
1.首先引用comobj、varints单元 2.声明xlApp,xlBook, xlSheet,picture: Variant; 3.基本操作 xlApp:=CreateOleObject('Excel.Application'); 有异常才没有安装Excel。 xlBook := xlApp. 阅读全文