摘要:东南大学 梁云
windows系统是由消息机制驱动的,每个线程如果建立了一个窗口,则由系统分配一个消息队列用于窗口消息的处理。另外,消息也可以不经过消息队列而利用sendmessage函数直接发送给窗口,窗口过程将处理这个消息,但只有当消息被处理之后,sendmessage才能返回到调用程序。下面结合两个delphi程序,讨论如何利用sendmessage向控件发送消息和控件对这种消息的响应。......
摘要:internet/intranet在九十年代可能是最流行的计算机术语了,不管是计算机行业内的人士还是计算机外的人士,都会使用internet/intranet,有的查资料,有的是宣传自己和公司,甚至有许多以前从没有想到用internet的东西现在也在用internet来解决,比如有的程控数字计算机维护用internet来解决。在这一切应用之中,基于web server的应用程序的开发是基本点,但如......
QQ2000B刷屏机的源码(Delphi)-------------------delphi版的:--------------
program chat2001; 【程序编程相关:
DELPHI图形编辑技巧二则】 【推荐阅读:
Delphi中用Adsi创建IIS虚拟目】
【扩展信息:
Delphi中的字符串
】
uses
windows,messages,sysutils;
{$r *.res}
const
crlf=#13#10;
exename:pchar=刷屏机器人 2001;
var
//----------------------
wclass: twndclass; //窗口类变量
msg: tmsg; //消息变量
hinst, //程序实例
handle, //主窗口句柄
hfont, //字体句柄
//----------------
hbuttonstart, //开始按钮
hbuttonstop, //停止按钮
hbuttonhelp, //帮助按钮
hbuttonexit, //退出按钮
heditemail, //e-mail编辑
hlabelemail, //e-mail提示
mcount,tempwnd,qqmainw,richedit:integer;
lp:longint;
newtime:integer;
//--------------------
//往一个窗口写标题
procedure writecaption(hwnd:hwnd;text:pchar);begin sendmessage(hwnd,wm_settext,0,integer(text));end;
//从一个窗口读标题
procedure readcaption(hwnd:hwnd;text:pchar);begin sendmessage(hwnd,wm_gettext,400,integer(text));end;
procedure buttonhelp;
var s1:string;
begin
s1:=本软件只用学习用,不可害人+crlf+
程序向qq2000b的输入框中输入文字并发送!+crlf+
详细资料,及源码在作者主页上+crlf+
主页:hotsky.363.net+crlf;
messagebox(handle,pchar(s1),帮助,0);
end;
//主程序结束
procedure shutdown;
begin ...
下一页 摘要:随着internet/intranet的飞速发展和普遍应用,对在internet/intranet上的应用程序的需求越来越多,于是java和activex form应运而生,但是,现在internet的带宽还非常低下的情况下,这种基于client端的应用是非常困难的,下载一个非常小、功能非常简单的java applet就需要非常长的时间,而且还存在着用户使用浏览器不支持这种新技术的可能。在这种情况......