1、先用Const 定义一个常量，例如 const WM_MyMessage=WM_USER+$200;
2、在要实现的unit中定义一个私有方法
procedure doMyMessage(var msg:TMessage);message WM_MyMessage;
3、实现这个私有方法
procedure TForm1.doMyMessage(var msg:TMessage);
begin
//
if msg.Msg= WM_MyMessage then
showmessage('好啊')
else
showmessage('不好');
end;
4、最重要 把这个消息广播出去 Form1.Perform(WM_MyMessage,0,0);
下面是实现的代码
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
const WM_MyMessage=WM_USER+$200;
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
procedure doMyMessage(var msg:TMessage);message WM_MyMessage;
&nbs ......
1.先用记事本写一个文本文件：
nestexe exefile "c:\nestexe.exe"
将文件存为 nestexe.rc. 可为任意文件名。
2.在命令提示符下输入：
brcc32 nestexe.rc
生成 nestexe.res
3.在源文件中加一句：
{$R nestexe.res}
4.在运行时解出来：
procedure TForm1.Button2Click(Sender: TObject);
var
rs:TResourceStream;
begin
rs:=TResourceStream.Create(hinstance,'nestexe','exefile');
rs.SaveToFile('nestexe.exe');
rs.free;
winexec('nestexe.exe',sw_show);
&nbs ......
Day 开头的函数
●
Unit
DateUtils
function DateOf(const AValue: TDateTime): TDateTime;
描述
使用 DateOf 函数用来把一个 TDateTime 类型的变量转变成一个
只带有日期的 TDateTime 类型变量。
例如：
showmessage(DateTimetostr(dateof(now())));
你得到的是 2003/03/19
而 showmessage(DateTimetostr((now())));
得到的是 2003/03/19 10:50:49
●function DateTimeToStr(DateTime: TDateTime): string;
描述
DateTimeToString 函数将 TDateTime 类型的参数 DateTime 转换成一个
字符串，使用给定的全局变量 ShortDateFormat 的格式，时间部分按照
给定的全局变量 LongTimeFormat 的格式。
其中 DateTime 为零的部分将不会显示出来。
例如：
ShortDateFormat:='yyyy mm dd';
showmessage(DateTimetostr((now())));
你将得到：2003 03 19 10:50:49
●procedure DateTimeToString(var Result: string; const Format:
string; DateTime: TDateTime);
描述：
DateTimeToString 方法将TDateTime类型的参数DateTime 按照由参数Format提供的格式
转化成字符串，并保存在Result中。
对于Format的格式类型，请看 Date-Time format strings 的帮助。
......
关键字
absolute 指令 (变量)
abstract 指令 (方法)
and 运算符 (布尔)
array 类型
as 运算符 (RTTI)
asm 语句
assembler 向后兼容 (汇编)
at 语句 (异常处理)
automated 访问类别符 (类)
begin 块标记
case 语句
cdecl 函数调用协定
class 类型
const 声明或指令(参数)
constructor 特殊方法
contains 运算符 (集合)
default 指令 (属性)
destructor 特殊方法
dispid dispinterface 界面类别符
dispinterface 类型
div 运算符
do 语句
downto 语句 (for)
dynamic 指令 (方法)
else 语句 (if 或 case)
end 块标记
except 语句 (异常处理)
export 向后兼容 (类)
exports 声明
external 指令 (函数)
far 向后兼容 (类)
file 类型
finalization 单元结构
finally 语句 (异常处理)
for 语句
forward 函数指令
function 声明
goto 语句
if 语句
implementation 单元结构
implements 指令 (属性)
in 运算符 (集合) - 工程结构
index 指令 (dipinterface界面)
inherited 语句
ini
tialization 单元结构
inline 向后兼容 (见 asm)
interface 类型
is 运算符 (RTTI)
label 声明
library 程序结构
message 指令 (方法) ......
引用这个单元jpeg
procedure TCommMethods.uploadimage(img:TImage);
var
OpenPictureDialog:TOpenPictureDialog;
bmp1:TBitmap;
jpg1:TJpegImage;
sFileName:string;
begin
OpenPictureDialog:= TOpenPictureDialog.Create(nil);
with OpenPictureDialog do
begin
if Execute then
begin
sFileName:=FileName;
if ExtractFileExt(sFileName)='.bmp' then
begin
bmp1:=TBitmap.Create;
bmp1.LoadfromFile(sFileName);
bmp1.Assign(bmp1);
end;
if (ExtractFileExt(sF ......
支持delphi开发语言的短信猫二次开发控件-短信猫控件ocx版v8.0，支持VB、Delphi，VC，PB,.net多种开发平台，
提供有免费版控件供测试，并提供有开发文档、例子，实现不同的短信猫开发应用，轻松实现企业短信发送功能。
短信猫二次开发控件特点：
设备低廉：采用手机发送、接收，无须上网，一般的电脑均可支持使用。
发送快速：正常情况下即可达到:500-1200条/小时,或更高。
支持诺基亚、西门之等标准GSM手机和专用短消息发送设备。
支持数据线及红外连接方式。
收发双便：支持短消息实时收发、自动保存。
大扩展性：最大支持16个串口同时发送，享受电信级的发送快感。
强实时性：理想状态下，一条短信息自发出到被接收只需２－３秒钟。
无限长度：本平台运用自动分隔功能，您可不限字数地输入，会自动分解成若干条。
OCX控件方式提供，使用极其方便，更灵活，可无缝加入你的系统中
支持状态报告（短信到达通知）
属性、方法、事件抽象合理、精简，容易理解使用
事件驱动方式，占用系统资源少，运行效率高
开发举例：
第一步：先设置好“CommPort”和“Smsservice”属性，有必要时更改settings属性值
例� ......
最新文章 :