@小宝

2015年4月26日

摘要： //新的DATASNAP已经支持TPARAMS作为远程方法里面的参数，会自动序列TPARAMS，无需手动序列它。 //在此只是记录一些JSON序列的用法，无实际意义 unit uSerialize; interface uses System.SysUtils, Data.Win.ADODB, Data.DBXJSON, Data.DBXJSONReflect, ... 阅读全文

posted @ 2015-04-26 21:55 @小宝阅读(465) 评论(0) 推荐(0)

2011年4月2日

delphi中常用的键盘操作

摘要： DELPHI IDE中部分操作快捷方式 1 代码模板：CTRL+J 2 代码整块移动（先选中代码块）：CTRL+SHIFT+I（右移） CTRL+SHIFT+U（左移） 3 选中窗体：先选中任一控件，SHIFT+鼠标左键 4 将鼠标指向变量名、单元名、类名，再用 CTRL+鼠标左键可找到相应的说明 5 在过程、函数、事件内部， SHIFT+CTRL+向上的方向键可跳跃到相应的过程、函数、事... 阅读全文

posted @ 2011-04-02 15:29 @小宝阅读(452) 评论(0) 推荐(0)

2011年3月7日

delphi弹出信息框大全

摘要： 1．警告信息框 MessageBox(Handle,'警告信息框','警告信息框',MB_ICONWARNING); 2．疑问信息框 MessageBox(Handle,'疑问信息框','疑问信息框',MB_ICONQUESTION); 3．错误提示框 MessageBox(Handle,'错误信息框','错误信息框',MB_ICONERROR); 4．提示信息框 MessageBox(Hand... 阅读全文

posted @ 2011-03-07 14:25 @小宝阅读(4514) 评论(0) 推荐(0)

阻止form移动到桌面以外

摘要： private procedure FormMove(var Msg: TWMMove); message WM_MOVE; procedure TForm1.FormMove(var Msg: TWMMove);var WorkArea: TRect;begin inherited; if SystemParametersInfo(SPI_GETWORKAREA, 0, @WorkArea, 0... 阅读全文

posted @ 2011-03-07 14:18 @小宝阅读(184) 评论(0) 推荐(0)

2011年1月28日

Registry

摘要： uses Registry; Registry为我们提供了操作注册表的方法,这里我们用TRegIniFile提供的方法,TRegIniFile继承自TRegistry,TRegIniFile提供的方法类似于前面讲到的操作Ini文件的方法,这样就大大简化了我们操作"神秘"注册表的方法,下面是常用的方法: function CreateKey(const Key: String): Boolean; ... 阅读全文

posted @ 2011-01-28 10:28 @小宝阅读(366) 评论(0) 推荐(0)

2011年1月27日

应用程序敏感键的实现

摘要： ----在一个应用程序内部菜单、部件都可以设置敏感键。如在菜单中一般用Alt+F进入“文件”之类的子菜单。另外我们在桌面上设置的快捷方式里的快捷键，无论你任何时候按下你所设置的快捷键就会启动相应的应用程序。在多个正在运行的应用程序中如何利用一个按键动作迅速地回到你所需要的应用程序呢？这就需要利用敏感键（HOTKEY）的技术来实现。本文利用Delphi3.0开发工具来阐述该技术在应用程序的实... 阅读全文

posted @ 2011-01-27 14:06 @小宝阅读(317) 评论(0) 推荐(0)

用Delphi实现远程屏幕抓取

摘要： ---- 在网络管理中，有时需要通过监视远程计算机屏幕来了解网上微机的使用情况。虽然，市面上有很多软件可以实现该功能，有些甚至可以进行远程控制，但在使用上缺乏灵活性，如无法指定远程计算机屏幕区域的大小和位置，进而无法在一屏上同时监视多个屏幕。其实，可以用Delphi自行编制一个灵活的远程屏幕抓取工具，简述如下。 ---- 一、软硬件要求。 ---- Windows95/98对等网，用来监视的计算机... 阅读全文

posted @ 2011-01-27 14:05 @小宝阅读(502) 评论(0) 推荐(0)

delphi对ini文件的操作

摘要：定义 1、在Interface的Uses节增加IniFiles； 2、在Var变量定义部分增加一行： MyIniFile:Tinifile; 打开INI文件 MyIniFile:=Tinifile.create('program.ini'); 当地： Filename := ExtractFilePath(Paramstr(0)) + 'data.ini'; sysini := Tinifile... 阅读全文

posted @ 2011-01-27 14:03 @小宝阅读(378) 评论(0) 推荐(0)

delphi中的字符串操作

摘要： uses StrUtils; 【字符串函数大全】首部 function AnsiResemblesText(const AText, AOther: string): Boolean; $[StrUtils.pas 功能返回两个字符串是否相似说明 ANSI(American National Standards Institute)美国国家标准协会;不区分大小写参考 function St... 阅读全文

posted @ 2011-01-27 14:02 @小宝阅读(7239) 评论(0) 推荐(0)

只能运行一个程序实例的两种方法对比

摘要：两种方面都是运行在project/view source里编辑。一个是利用Windows系统的全局原子，另一个是利用API函数比较同类同名窗体。 1.全局原子利用向系统添加全局原子的方法，全局原子由Windows 系统负责维持，它能保证其中的每个原子都是唯一的，管理其引用计数，并且当该全局原子的引用计数为0时，从内存中清除。我们用GlobalAddAtom 函数向全局原子添加一个255... 阅读全文

posted @ 2011-01-27 13:56 @小宝阅读(280) 评论(0) 推荐(0)

公告