码农的笔记

摘要： 此处的句柄请不要用另一个程序中的控件句柄！就算用了，也找不到控件！ procedure TForm1.Button1Click(Sender: TObject);begin if FindControl(StrToIntdef(Edit1.Text,0))<>nil then ShowMessage 阅读全文

摘要： 本人C++是个菜鸟， C++编写的DLL，Delphi调用，先弄个简单的C++的DLL； C++ Delphi： Unit unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Con 阅读全文

摘要： 开发环境是Delphi7 此处用的是临界；信号量，互斥就不做测试了！ 仅仅是测试，哈哈 Unit unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 阅读全文

摘要： 资料来源别处，谢谢 Application.HintHidePause:=30000;//显示多久隐藏 HintHidePause，HintPause，HintShortPause，控制着提示窗显示的时间等。HintHidePause指定提示窗口在屏幕上显示的时间，以毫秒为单位。HintPause则 阅读全文

摘要： unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DB, DBClient, Grids, DBGrids, StdCtrls, 阅读全文

摘要： Unit开始 unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls; type TForm1 阅读全文

摘要： 来自网上 此程序开发环境为Delphi XE Unit开始 1 unit Unit1; 2 3 interface 4 5 uses 6 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 7 Dial 阅读全文

摘要： adoconnection1.connectionstring:=promptdatasource(handle,'') 阅读全文

摘要： 本程序刚开始是别人的，无法实现全局钩键盘消息；修改后能钩中键盘消息，但是没有去解析，那些解析暂时不正确，本人没有那么多时间弄这玩意-- 先把代码贴上，不管了，以后有时间可以玩玩。 再次强调，本程序不是本人的，网上下载而来..... DLL部分 library KeyboardHook; uses S 阅读全文

摘要： 开发环境D7 需要Uses superobject,superobject需要下载 本人电脑上有Web服务器,提供Web服务， JSON数据形式：[{"name":"A000000","teacher":"Tea000000","classroom":"C_R000000"},{"name":"A0 阅读全文