2013年02月_缘中人

12月 11月 10月 09月 08月 07月 06月 05月 04月 03月 02月 01月

转载用命令实现Win7远程桌面关机和重启

用命令实现Win7远程桌面关机和重启关机 shutdown -s -t 0 重启 shutdown -r -t 0把这两行命令分别存到.bat文件里，以后双击就可以了打开运行框（Win+R键），输入上述命令即可，后面的数字表示关机/重启延迟的时间at 12:00 shutdown -s在运行里输入这个然后敲回车他就会在12点种的时候关机

2013-02-28 16:39:51 1868

原创 DBGridEh设置行只读

void __fastcall TForm1::DBGridEh1Columns5GetCellParams(TObject *Sender, bool EditMode, TColCellParamsEh *Params){// if( ADOQuery1->FieldByName("Flag")->AsString.Trim() == "1")// Para

2013-02-28 09:15:12 1864

原创 win7访问不了win2008共享文件夹

win7访问win2008共享文件夹输入\\192.168.1.1win7访问win2008 您没有权限访问请与网络管理员联系请求访问权限输入具体路径目录 \\192.168.1.1\tools不允许一个用户使用一个以上用户名与一个服务器或共享资源的多重连接。中断与此服务器或共享资源的所有连接，然后再试一次...解决方法：net use \\机器名或IP\ipc$ /de

2013-02-27 10:59:37 7938

原创网线水晶头做法

工具资料：网钳、网线、水晶头568B 白橙橙、白绿蓝、白蓝绿、白棕棕平行线：两头都是568B交叉线：一头是568A、一头是568B1、用钳子对网线剥皮2、排列线序3、对齐排列后的线，如果参差不齐，用钳子剪一下4、线插入水晶头5、用钳口压紧，线朝上放入钳内。次卧的水晶头不是568A，也不是568B，下次做的时候观察原来的线序。

2013-02-26 11:29:31 748

原创 ApplicationEvents1Message屏蔽鼠标右键

OnMessage事件只处理消息队列中的消息，SendMessage()发送的消息不会被截获。任何窗体接收到一个windows消息，都会触发一次此事件　　函数原型：　　typedef void __fastcall (__closure *TMessageEvent) (tagMSG &Msg,bool &Handled);　　Msg表示被截获的消息，Handled表示是否处理完成

2013-02-26 09:21:03 2154

原创 SendMessage发送字符串参数

#define WM_MY_DOSOME WM_USER+1 // do somethingvoid __fastcall TForm1::ApplicationEvents1Message(tagMSG &Msg,bool &Handled){if( Msg.message == WM_MY_DOSOME ){Caption = (char*) Msg.lParam;

2013-02-26 09:16:21 4535

原创 win7下好用的虚拟光驱，免安装，体积小

LZZ Virtual Drive(虚拟光驱工具)V2.5绿色版 WIN7 好用的很VDM

2013-02-26 09:11:18 2483 1

原创 ado连不上sql server数据库

在没有安装delphi或c++builder的电脑上，运行程序，adoconnection组件连不上数据库提示缺少安装的程序重新安装odac组件即可。c:\windows\inf\ 鼠标右键mdac.inf文件，安装，选择xp光盘路径安装完成OK

2013-02-26 07:41:53 1240

原创 ClientDataSet动态创建选择字段

void __fastcall TForm1::createField(){ ClientDataSet1->Close();//for(int i = 0 ;i Fields->Count - 1;i++)// ClientDataSet1->Fields->Fields[0]->Free();//释放所有的静态字段 ClientDataSet1->Fields->

2013-02-21 14:35:48 2778

原创 clientDataSet控件open后天就fields的源码

d:\program files\borland\delphi7\source\vcl\DBClient.pasclientDataSet控件open后天就fields的源码 procedure TCustomClientDataSet.AddFieldDesc(FieldDescs: TFieldDescList; var DescNo: Integer; var FieldI

2013-02-21 13:33:02 960