介绍 本文章介绍了Delphi XE5发送短信以及读取短信代码，下面通过代码脚本来介绍，不过该两段代码，没有具体测试过，有兴趣的可以测试下 1：发送短信代码 uses FMX.Helpers.Android, Andro...
关键字：MethodAddress：取得方法的地址，这个方法需要是published的。 unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TShowInfo = procedure(inf...
SetWindowLong(Handle, GWL_EXSTYLE, GetWindowLong(Handle, GWL_EXSTYLE) or WS_EX_TRANSPARENT or WS_EX_LAYERED ); WS_EX_ACCEPTFILES = 0x00000010 指明了一个已创建视窗具有拖拽文件功能 WS_EX_APPWINDOW = 0x00040000 强制一个可见...
有三张表，如下： 表A保存年级信息， 年级编码 年级名称 001 一年级 002 二年级 003 三年级 004 四年级 005 五年级 …… …… 表B保存教师信息， 教师编码 教师姓名 001 张三 002 李四 ……...
procedure TForm1.Button1Click(Sender: TObject); var i:integer; begin for i:=0 to self.ComponentCount-1 do begin if (self.Components[i] is Tedit) then begin Tedit(Components[i]).Clear;; end; end; end;...
unit Main; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls,Comobj; type TForm1 = class(TForm) Panel1: TPanel; Panel2: TPanel; Label1: TLabel; Button1: TButton; Button2: T...
关于改造WebBrowser控件的一些技巧，大家可以参考MSDN或者蒋晟写的一个东西，里面有讲的很详细的，今天我就说一下这个alter对话框的修改和过滤的方法： 很简单，只要咱们继承IDocHos...
Delphi XE2出来了一阵子了，里面比较抢眼的东西，除了VCLStyle这个换肤的东西之外，另外最让人眼亮的应该是FMX这个东西了。万一的博客上都连载了一票的关于FMX的使用心得了。我还是没...
const SECURITY_NT_AUTHORITY: TSIDIdentifierAuthority = (Value: (0, 0, 0, 0, 0, 5)); SECURITY_BUILTIN_DOMAIN_RID = $00000020; DOMAIN_ALIAS_RID_ADMINS = $00000220; function IsAdmin: Boolean; var hAccessToken: THandle; ptgGroups: PTokenGroups;...
function WriteData(FileName:String):Boolean; var FileS :TFileStream; Res :TResourceStream; StrData :string[255]; IntData :Integer; begin try try //建立文件流,参数1为文件路径,参数2为打开方式 FileS :=TFileStream.Create(File...