我的图样个人中心修改密码通知用户名：密码：陈学术的博客http://leftdream.bokee.com首页博文图样博文图样志大学同学Andy的日记！作者：阿猴2006-04-17 22:12分类：默认分类标签：“你哭着对我说，童话里都是骗人的，我不可能是你的王子。也许你不会懂，从你说爱我以后，我的天空星星都亮了。我愿变成童话里你爱的那一个天使。。。。。。”微风的怂恿下我睁着眼睛推开宿舍防盗门，舍友阿龙正倚靠在电脑旁伴随音乐的节奏哼着光良的《童话》。看着他表情黯然，目光漂泊。我猜测道应该是在追逐小I的道路上遇到了悬车束马的挫折。不敢劝他重整旗鼓等待着枯枝再春，我尽量束缚语言的膨胀，保持着缄默不语。隔岸观火的我毕竟还是了解他现在的感受，一接触到关于爱情的话题可能就会如同在他血涌如泉的伤口上撒下盐巴一般。    踏过地上舞动的纸屑，溅起如同浪花飘散的烟灰，我停留在阳台栅栏边盯着橱窗下的篮球若有所思。阳光染红了我的脸颊，在榕树林里撒下一片片闪烁的鱼鳞。此刻，赫然想起连同裤裆里点击(0)评论(0)支持(0)程序员四大忌 你该如何避免呢？作者：阿猴2006-01-18 20:19分类：默认分类标签：从我学pascal的第一天起，我就发誓自己要做一名合格优秀的程序员，但是浮躁，急功近利一直是我最大的缺点，希望自己以后能够彻底改正！因为王选的成功是建立在他近10年隐姓埋名，废寝忘食，黑白不分的研究上，建立在他超乎现象的毅力，建立在惊天动地的执着上！以下文章是对自己最好的启示！程序员四大忌 你该如何避免呢？ 2006.01.13  来自：希赛　    一忌：轻易言败，没有自信　　没有永不放弃精神的程序员，只是一个有程序员名号的假程序员。一个真正的程序员，知道在程序设计的过程中，可能会遇到不计其数的困难和问题，可能有极多的挫折和失败，而成功只有一次。　　就为解决一个问题，我们可能连续十几甚至几十小时的坐在计算机前不停的工作。一个问题解决了，可能又有其它的问题出现。而你要是不能坚持下来，可能点击(0)评论(0)支持(0)英雄主义已经过去了！作者：阿猴2005-12-23 23:53分类：默认分类标签：以下是某网友针对cscn上关于国产数据库创始人冯玉才报道的评论，说的太好了！太棒了！太符合我的口味了！我看过候捷的书，不止一次提到中国人太强调英雄主义的问题了！都什么年代了！我想说的，以下这位仁兄已经说得很清楚了，中国人真的要醒悟啊：英雄主义已经过去了！网友评论：这是一种怎样的悲哀！    20年，My God！人生几个20年？扪心自问，20年里，你们都干什么了？一个数据库系统开发需要20年这么长时间吗？20年哪，一个微软帝国都产生了，而我们还在沾沾自喜地为开发出一个别人几十年前就有的技术而兴奋，而狂奔，而呼喊。    自主？国产？凭什么？谁给你的权利？凭什么把自己开发的产品说成是国产？在你们使用“国家”这一神圣而不可亵渎的字眼给自己脸上贴金时，你们有没有感觉到半点羞耻？难道仅仅因为你是个中国点击(0)评论(0)支持(0)Delphi精要笔记 5作者：阿猴2005-12-14 01:50分类：默认分类标签：11:27 2005-12-131.自定义系统唯一消息UINT RegisterWindowMessage(LPCTSTR lpString);DWORD GetWindowThreadProcessId(HWND hWnd,    LPDWORD lpdwProcessId);例子：接收端AppReceivevar  Id:dword;begin  mainform.newOneMessage(var Msg:TMsg;var Handled:Boolean);  begin    if Msg.message=Id then    begin      showMessage('应用程序收到消息');      handled:=true;    end;  end;  mainform.formcreate();  begin    caption:='接受者'；    ID:=RegisterWindowMessage(P('OneOfAppMessage'));  end;   mainform.WndProc(var Message:TMessage) override;  begin    inherited;    with Message do if Msg=Id then    begin      showMessage('主窗体收到消息');      result:=0;    end;  end;end;发送端AppSendvar  Id:dword;begin  mainform.formcreate();  begin    caption:='发送者';    ID:=RegisterWindowMessage(P('OneOfAppMessage'));  end;   mainform.button1Click(sender.Tobject);  begin    H:=FindWindow(nil,pchar('接受者'));    if H<>0 then    begin      sendMessage(H,ID,0,0);      PostThr点击(0)
评论(0)
支持(0)
Delphi精要笔记 4
作者：
阿猴2005-12-09 20:57分类：默认分类标签：
19:40 2005-12-9发送消息的多种方法1).给指定窗口发送消息 给窗口发送消息：  function SendMessage(hWnd:HWND;Msg:UINT;wParam:WParam;lParam:LParam):LRESULT;stdcall;  function DispatchMesage(const lpMsg:TMsg):Longint;stdcall;------------------------------------------------------------------------------  function PostMessage(hWnd:HWND;Msg:UINT;wParam:WPARAM;lParam:LParam):Bool;stdcall;2) 给应用程序发送消息：  function SendAppMessage(Msg:Cardinal;wParam,lParam:Longint);3) 给线程发送消息  function PostThreadMessage(idThread:DWORD;Msg:UINT;wParam:WPARAM;lParam:LPARAM):BOOL;stdcall;  获取idThread可用Api函数得：  function GetWindowThreadProcessId(hWnd:HWND;lpdwProcessId:Pointer=nil):DWORD;stdcall;overload;  function GetWindowThreadProcessId(hWnd:HWND;var