- 博客(13)
- 资源 (14)
- 收藏
- 关注
转载 CxGrid用法
<br />1.简单介绍:<br />cxGrid右下方的cxGrid1Level1是表示Grid表的层,cxGrid可以有多层,这相当于集合了PageControl的功能,而cxGrid1Level1右边的cxGrid1DBTableView1相当DBGrid一样。右击cxGrid1可以添加cxGrid1Level2,右击cxGrid1Level2,可以选择Create View , Add level 或者Delete Level。Add level可以增加子Level,Create View里面可以选
2011-02-17 11:43:00 3854
转载 DevExpress皮肤引用的办法
1.引用Dll皮肤文件<br />Type<br />procedure SetSkin(skinnam:string); procedure TFrmMain.SetSkin(skinnam:string);<br /> var<br /> Hinst:THANDLE;<br /> RStream:TResourceStream;<br />begin<br /> Hinst:=Loadlibrary('ALLSK.dll');<br /> If Hinst=0 Then<br />
2011-02-17 11:30:00 3930
转载 把任何TWINCONTROL放入到CXGRID中,能浏览能编辑
<br />I can put any twincontrol into a cell of cxgrid which can view and can edit.<br /><br />for example,cxgrid1 column color is a string field,it is 'True' or 'False' or NULL or '',I put a checkbox and dbcheckbox into the cell of it .it is for example,t
2011-02-17 11:27:00 1037
转载 用hook实现dll注入详解
<br />需要一个用来注入的dll(inject.dll)及一个调用程序(caller.exe)<br />流程:<br />caller.exe<br />procedure TestHook;<br />var pwnd,hChild, hwndInject hwnd;<br />msgtmsg;<br />begin<br />通过窗口标题用FindWindow找到要注入的程序的主窗口句柄pwnd<br />pwnd = findwindow('Progman',nil);<br />用Findwi
2011-02-17 11:11:00 1365
转载 FindWindow函数
<br /><br />如果你知道该窗口的类名或标题,可以直接将类名或标题代入下面的FindWindow函数中,下面的代码首先查找目标窗口的句柄,再枚举该窗口的子窗口,判断子窗口的类名是否为"Edit"或"TEdit",若是,则认为已经找到编缉框。找到后,再发送WM_GETTEXTLENGTH和WM_GETTEXT消息来获取编缉框的文本长度及内容。<br />var<br /> hwndEdit:THandle;<br />function EnumWindowProc(hwnd:THandle;lPar
2011-02-17 11:05:00 5545
转载 程序中发布OCX
<br />program XXX;<br /><br />uses<br /> Forms,Windows,<br /> uMainFM in 'uMainFM.pas' {MainFM};<br /><br />{$R *.RES}<br />Var<br /> hLib:THandle;<br /> PRegOcx: procedure ; stdcall;<br /><br />begin<br /> Application.Initialize;<br /> hLib:=Loadlib
2011-02-17 11:00:00 937
转载 进程之间通讯的代码:
<br />进程之间通讯的代码:<br />var<br /> SendText: string;<br /> SendDataStruct: CopyDataStruct;<br />begin<br /> SendText := 'Send';<br /> SendDataStruct.cbData := length(Sendtext);<br /> SendDataStruct.lpData := @SendText[1];<br /> SendMessage(FindWindow(PC
2011-02-17 10:57:00 787
转载 动态创建DBF数据文件
<br />1、SQL建表:<br /> query1.close;<br /> query1.sql.text:='create table "mytable.dbf" (n1 char(10))';<br /> query1.execsql;<br /> DELPHI建表:<br /> table1.close;<br /> table1.fielddefs.clear;<br /> table1.fielddefs.add('n1',ftstring,10,false);<
2011-02-17 10:38:00 4690
转载 cxGrid运行期间添加LevelView
<br /> cxGrid := TcxGrid.Create(self); <br /> InsertControl(cxGrid); <br /> cxGrid.Align := alLeft;<br /> cxGrid.Width := 240; <br /> cxGrid.Name := 'cxGrid'; <br /> cxGrid.Font.Name := 'Times New Roman';<br /> cxGridLevel := cxGrid.Levels.Add;<br /
2011-02-17 10:31:00 2242
转载 Delphi指针的认识
<br />大家都认为,C语言之所以强大,以及其自由性,很大部分体现在其灵活的指针运用上。因此,说指针是C语言的灵魂,一点都不为过。同时,这种说法也让很多人 产生误解,似乎只有C语言的指针才能算指针。Basic不支持指针,在此不论。其实,Pascal语言本身也是支持指针的。从最初的Pascal发展至今 的Object Pascal,可以说在指针运用上,丝毫不会逊色于C语言的指针。<br />以下内容分为八个部分,分别是<br />一、类型指针的定义<br />二、无类型指针的定义<br />三、指针的解除引
2011-02-16 22:06:00 1023
转载 delphi中的多值返回
<br />1. Return a record <br />Type<br />TmyData = Record 先定义一个Record有三个返回值<br />Data1: string;<br />Data2: string;<br />Data3: string;<br />end;<br />private<br />{ Private declarations }<br />function Myfunction(parm: string): TMydata; //定义一个functi
2011-02-16 21:55:00 3246
原创 Delphi 中的 procedure of object
<br />delphi中经常见到以下两种定义<br />Type<br />TMouseProc = procedure (X,Y:integer);<br />TMouseEvent = procedure (X,Y:integer) of Object;<br />两者样子差不多但实际意义却不一样,<br />TMouseProc只是单一的函数指针类型;<br />TMouseEvent是对象的函数指针,也就是对象/类的函数/方法<br />区别在于类方法存在一个隐藏参数self,也就是说两者形参不一
2011-02-16 21:30:00 6620
原创 如何将文件存放在oracle中bfile字段中
<br />数据库环境:oracle 10.2.0.1<br /> <br />首先在数据库中创建一个文件夹:<br /> <br />SQL> conn / as sysdba;<br /> <br />然后在数据库中和数据库所在服务器上创建一个文件夹。<br /> <br />数据库服务器上所建文件夹名:E:/tfliess<br /> <br />SQL>create directory tfiles as 'E:/tfliess';<br /> <br />让指定用户具有读写文件的权限:<br />
2011-02-15 11:50:00 2391
jrockit-jdk1.6.0_181-linux_x86_64
2018-03-17
jrockit-jdk1.6.0_171-windows_x86_64
2018-03-17
jrockit-jdk1.6.0_181-windows
2018-03-17
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人