02 2012 档案

摘要：private procedure WMSYSCOMMAND(var msg:TMessage);message WM_SYSCOMMAND; { Private declarations } public { Public declarations } end;//禁止窗体移动procedure TSysTemCenter.WMSYSCOMMAND(var msg: TMessage);begin if msg.WParam=SC_MOVE then msg.WParam:=0;end; 阅读全文

摘要：WIN7, Vista提供的UAC机制，它的主要目的是防止对于操作系统本身的恶意修改。对于Delphi程序的影响，UAC主要在于以下几点：1、由于UAC机制，Delphi对于系统的操作可能无声的失败，而同样的程序，在2000/X下面可能运行正常。譬如注册表的改动。。。2、为了避免这样的情况，Delphi程序必须支持Vista UAC标注，也就是说，在UAC程序的图标下面显示盾牌标志。这样可以在需要系统更高权限的时候，提醒用户。为了让程序显示UAC标志，现在看来Vista是通过读取程序的资源（Resource）里面的MANIFEST资源，来决定是否显示“UAC盾牌”。为了支持UAC，Delphi 阅读全文

摘要：var s: string;begin //FormatFloat 的参数1是 String 格式指令, 参数2是实数类型 Extended s := FormatFloat('###.###',12.3456); //返回: 12.346 s := FormatFloat('000.000',12.3456); //返回: 012.346 s := FormatFloat('#.###',12.3); //返回: 12.3 s := FormatFloat('0.000',12.3); //返回: 12.300 s := For 阅读全文