随笔分类 - Delphi
Delphi7使用一段时间后抽风提示注册
摘要：参考： http://www.delphitop.com/html/hanshu/4627.html procedure GetVersionInfo(const FileName:string; var vs:string); var VerInfoSize,VerValueSize,Dummy:
阅读全文
摘要：很遗憾，好像没有直接的代码可以操作，可以试试以下代码： var GWL_Result: Integer; begin GWL_Result:= GetWindowLong(Handle,GWL_STYLE); if GWL_Result>0 then begin SetWindowLong(Hand
阅读全文
摘要：//按下左侧win键 keybd_event(VK_LWIN,0,0,0); //按下tab键 keybd_event(VK_TAB,0,0,0); //抬起左侧win键 keybd_event(VK_LWIN,0,KEYEVENTF_KEYUP,0); //抬起tab键 keybd_event(V
阅读全文
摘要：两种方式： 一、简单直接 uses MMSystem; procedure TFmSound.playBtnClick(Sender: TObject); begin PlaySound(PChar('./sound.wav'),0,SND_NODEFAULT or SND_ASYNC); end;
阅读全文
摘要：HandleMessage： HandleMessage中断应用程序的执行，以便Windows可以在将控制权返回给应用程序之前处理来自Windows消息队列的单个消息。 如果消息队列为空，则HandleMessage生成OnIdle事件并启动更新应用程序中的操作的过程。 注意：如果应用程序空闲，Ha
阅读全文
摘要：TObject是所有对象的基本类，DELPHI中的任何对象都是一个指针，这个指针指明该对象在内存中所占据的一块空间！ 对象空间的头4个字节是指向该对象类的虚方法地址表（VMT-Vritual Method Table）。接下来的空间就是存储对象本身成员数据的空间，并按从该对象最原始祖先类的数据成员到
阅读全文
摘要：function IsPortUsed(aPort: Integer): Boolean; var _vSock: TSocket; _vWSAData: TWSAData; _vAddrIn: TSockAddrIn; begin Result := False; if WSAStartup(MA
阅读全文
摘要：Delphi使用两种方法获取windows系统的端口，还可测试发送消息，点击获取端口信息后，可依次得到如下信息：DCB结构大小、波特率大小、XON的临界值、XOFF的临界值、字符位数、奇偶检验位、停止位、XON字符等，也可设置端口信息，设置SPCOMM端口信息： unit Unit1; interf
阅读全文
摘要：去除菜单项的加速键--‘&’符号 PopupMenu的AutoHotKeys(不用设置每个Item的这个属性)设置为maManual就行了
阅读全文
摘要：安装Indy uses IdStackWindows; 另外一种方法： XE10.x 使用正常 D2010
阅读全文
摘要：关于Delphi中产生的文件 编辑阶段: pas/单元文件,dpk/组件包文件,dpr/工程文件,dfm/窗体文件 编译阶段: dcu/单元编译文件,dcp/Delphi Compile package 连接阶段: exe,dll,bpl/Borland package library 运行阶段 使
阅读全文
摘要：一般来说,用来扫描整个数据库表并修改每个记录的某一个字段的程序如下所示: with Table Do begin DisableControls;{在修改记录的过程中,使其它部件无效} First; {将记录指针指向第一条记录} while not EOF do begin <读取记录的一个字段值到
阅读全文
摘要：数学函数:Inc(i)使I:=I+1;Inc(I,b)使I:=I+b;Abs(x)求x的绝对值例:abs(-3)=3Chr(x)求编号x对应的字符。 例:Chr(65)=’A’chr(97)=’a’chr(48)=’0’Ord(x)求字符x对应的编号。例:ord(‘A’)=65ord(‘a’)=97
阅读全文
摘要：Delphi判断文件夹（目录）是否存在，不存在就创建一个，可以一次创建多级目录 procedure TForm1.Button1Click(Sender: TObject);begin if not FileExists(Edit1.Text) then//if not DirectoryExist
阅读全文
摘要：一、关于ado中替代findkey的方法： 在delphi 中使用findkey必须有索引才能使用， 在数据库中查找数据,有两种方式:一种是以数据表的关键字段或辅助索引字段为查询依据，这种方式查询的速度比较快,如GotoKey、FindKey方法；另一种是以任意字段或字段组合为查询依据，这种方式查询
阅读全文
posted @ 2018-11-14 16:45
MasterQi
摘要：XE2 有了 FireMonkey 框架，它不同于 VCL ，以往的数据感知控件不能放在它上面，所以 XE2 提供了 LiveBindings 功能作为替代方案。另外它也是个通用的基础设施，同样可用于传统的VCL 这里用一个极简化的例子说明它的意图，在窗体上放一个 edit 和一个 label，找到
阅读全文
posted @ 2018-11-13 09:32
MasterQi
摘要：Invalidate方法通知Windows应该重新绘制表单的整个表面。最重要的是Invalidate不会立即强制执行绘制操作。 Windows只是存储请求，并且只会响应它当前程序完全执行后，并且只要系统中没有其他待处理事件。 Windows故意延迟绘画操作，因为它是最耗时的操作之一。有时，这种延迟，
阅读全文
摘要：打开主项目文件直接显示一排'口'形状！查了下资料也问了下伙伴，这多半应该是文件损坏了，解决办法： 1. 不关D7的事，所以重装D7应该是无效的，最好看看自己是不是有备份文件，我之前有备份的所以直接覆盖了，因此，提醒各位还是有个备份的文件安全啊！（单独覆盖这个项目文件也是无效的，需要整个工程都覆盖掉才
阅读全文
摘要：今天在单位用电脑接自己的移动硬盘，一打开资源管理器就卡死，删除硬盘总是提示用程序在使用，反复试了几次，老样子。很是窝火。干脆直接关机电脑，桌面上还有开着的Delphi编译器，重新开机！开机后一打开编译器直接提示未激活,需要激活！NM，这什么啊！之前好端端的怎么抽风了!可是弹出的提示注册界面连个注册的
阅读全文
浙公网安备 33010602011771号