摘要：http://blog.csdn.net/blue_morning/article/details/8815609 Delphi 类的类 class of 用法 这个概念本来在一个关于Delphi RTTI 介绍的文档中已经说得很清楚了。但没有任何关于实际使用的介绍，在我明白了这个概念和如何使用后决
阅读全文
posted @ 2017-10-24 14:06
随笔分类 - Delphi
摘要：procedure TForm1.DBGrid1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);var coords:TGridCoord; // 这个结构体中x是列，y 是行begin coords := dbgrid1.MouseCoord(x,y); // 根据鼠标位置获得行列 Self.Cap...
阅读全文
posted @ 2017-08-28 13:22
摘要：x:=x shl 1 二进制数向左移1位,尾部补1个零,相当于x:=x*2;x:=x shl 2 二进制数向左移2位,尾部补2个零,相当于x:=x*4;...x:=x shl n 二进制数向左移n位,尾部补n个零,相当于x:=x*2^n;x:=x shr 1 二进制数向右移1位,首部补1个零,相当于
阅读全文
posted @ 2017-06-30 10:25
摘要：var S: string;begin S := 'c:\aa\bb\cc\dd\abc.exe'; ShowMessage(ExtractFileDir(ExtractFileDir(S))); //c:\aa\bb\cc ShowMessage(ExtractFileDir(ExtractFil
阅读全文
posted @ 2017-06-21 13:02
摘要：http://blog.csdn.net/haiou327/article/details/6106233 不用cmd用delphi如何实现启动停止windows服务建议参考一下Delphi的ScktSrvr原码， $(DELPHI)/Source/Vcl/ScktSrvr.dpr windows
阅读全文
posted @ 2017-03-22 12:43
摘要：while True do begin if not PeekMessage(msg,0,0,0,PM_REMOVE) then begin case MsgWaitForMultipleObjects(1,hCloseEvent,False,INFINITE,QS_ALLINPUT) of WAI
阅读全文
posted @ 2017-03-09 19:38
摘要：使用串口SPCOMM接收数据的时候0x11和0x13无法接受，从时间间隔上看来可以接收，但是无法显示。网上查错误得： OutX_XonXOffFlow/InX_XonXoffFlow：这个属性是指进行发送/接收时的软件握手标志，两个握手信号之间的数据被认为是通讯数据，收到握手信号后，通讯就中止了。
阅读全文
posted @ 2017-03-06 18:20
摘要：SystemParametersinfo的用法（一） SystemParametersinfo的用法（一） 函数功能：该函数查询或设置系统级参数。该函数也可以在设置参数中更新用户配置文件。 函数原型：B00L SystemParametersinfo（UINT uiAction，UINT uiPar
阅读全文
posted @ 2017-03-02 12:17
摘要：SystemParametersinfo用法（二） SystemParametersinfo用法（二） SPI_SETDOUBLECLKHEGHT：将ulParam参数的值设为双击矩形区域的高度。双击矩形区域是指双击中的第2次点击时鼠标指针必须落在的区域，这样才能记录为双击。 SPI_SETDOUB
阅读全文
posted @ 2017-03-02 12:16
摘要：http://www.delphifans.com/InfoView/Article_662.html 用Delphi创建服务程序 Windows 2000/XP和2003等支持一种叫做"服务程序"的东西.程序作为服务启动有以下几个好处: (1)不用登陆进系统即可运行.(2)具有SYSTEM特权.所
阅读全文
posted @ 2017-02-16 10:14
摘要：http://www.cnblogs.com/smallmuda/archive/2009/07/24/1529845.html delphi 如何判断应用程序未响应 今天在MSN的核心讨论组上看到两篇文章.讨论的乃是应用程序是否没有响应.原文如下: > How is it possible to
阅读全文
posted @ 2017-02-14 10:57
摘要：http://www.cnblogs.com/del/archive/2008/02/28/1085124.html 这是储存字符串的一组 API.通过 AddAtom 储存一个字符串, 返回一个 ID;GetAtomName 通过这个 ID 可返回储存的字符串;还可以用 FindAtom 查找、用
阅读全文
posted @ 2017-02-14 10:34
摘要：function BringWindowToTopEx(hWnd: HWND): Boolean;begin if IsIconic(hWnd) then ShowWindow(hWnd, SW_RESTORE); if GetForegroundWindow <> hWnd then SetFor
阅读全文
posted @ 2016-12-19 14:34
摘要：http://www.cnblogs.com/Thinknet/archive/2008/04/07/1141149.html 这是从“VC编程经验总结7”中转出来的 借花献佛——如何通过崩溃地址找到出错的代码行 作为程序员，我们平时最担心见到的事情是什么？是内存泄漏？是界面不好看？……错啦！我相信
阅读全文
posted @ 2016-11-07 17:44
摘要：delphi 程序全屏显示无标题栏，覆盖整个屏幕，这个在做工控机或屏保时有用的，所以记下 procedure TMainFrm.FormCreate(Sender: TObject); begin with MainFrm do begin { Position form } Top := 0 ;
阅读全文
posted @ 2016-11-07 09:29
摘要：http://www.cnblogs.com/Jesses/articles/1636323.html 引用PsAPIvar h:HWND; pid: Cardinal; pHandle: THandle; buf: array[0..MAX_PATH] of Char;begin h:=GetFo
阅读全文
posted @ 2016-07-27 16:06
摘要：今天在Android中将sqlite的数据库文件生成在SD卡上的过程中，发现生成的.db文件的旁边 生成了一个大小为0的与数据库文件同名的.db-journal文件，不明白此文件的用途，于是 google了sqlite的官方文档，发现该文件的用途如下： 该文件是sqlite的一个临时的日志文件，主要
阅读全文
posted @ 2016-06-26 14:23
摘要：delphi 按位运算 not and or xor shl shr delphi 按位运算 not and or xor shl shr unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graph
阅读全文
posted @ 2016-05-25 10:58
摘要：FillChar(aryTest[Low(aryTest)], Length(aryTest) * SizeOf(aryTest[Low(aryTest)]), 0);
阅读全文
posted @ 2016-05-17 17:39
摘要：在这里Val和iif都是你所用的数据库中的函数在delphi中Val是一个将字符串转换为数字的函数，Val(S; var V; var Code: Integer)第一个参数是要转换的字符串，第二个参数存放转换后的数字，可以是整数或浮点数，第三个参数存放出错的字符索引值，例如：Var V, Code
阅读全文
posted @ 2016-05-10 14:01