技巧分享：计算机二级考试DELPHI基础开发技巧

　　◇[杂类]隐藏共享文件夹

　　共享效果:可访问,但不可见(在资源管理、网络邻居中)

　　取共享名为:direction$

　　访问://computer/dirction/

　　◇[Java Script]Java Script网页常用效果

　　网页60秒定时关闭

　　关闭窗口

　　关闭

　　定时转URL

　　数据源,一个是MQIS,一个是LocalSever,任选一个选后点击配置按钮,不知你的SQL7.0

　　是不是安装在本地机器上,如果是的话直接进行下一步,如果不是,在服务器一栏中填上

　　Server,然后进行下一步,填写登录ID 和密码(登录ID,和密码是在SQL7.0中的用户选项

　　中设的)。

　　第二步,配置BDE:

　　打开Delphi的BDE,然后点击MQIS 或 LocalServer,就会提示用户名和密码,这和

　　ODBC的用户名和密码是一样的,填上就行了。

　　第三步,配置程序:

　　如果用的是TTable,就在TTable的DatabaseName中选择MQIS 或LocalServer,然后在

　　TableName中选择Sale就行了,然后将Active改为True,Delphi弹出提示对话,填入用户

　　名和密码。

　　如果用的是TQuery,在TQuery上点击右键,再击"SQL Builder",这是以界面方式配置

　　SQL语句,或者在TQuery的SQL中填入SQL语句。最后,别忘了将Active改为True。

　　在运行也可能配置TQuery,具体见Delphi帮助。

　　□◇[DELPHI]得到图像上某一点的RGB值

　　procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;

　　Shift: TShiftState; X, Y: Integer);

　　var

　　red,green,blue:byte ;

　　i:integer;

　　begin

　　i:= image1.Canvas.Pixels[x,y];

　　Blue:= GetBValue(i);

　　Green:= GetGValue(i):

　　Red:= GetRValue(i);

　　Label1.Caption:=inttostr(Red);

　　Label2.Caption:=inttostr(Green);

　　Label3.Caption:=inttostr(Blue);

　　end;

　　◇[DELPHI]关于日期格式分解转换

　　var year,month,day:word;now2:Tdatatime;

　　now2:=date();

　　decodedate(now2,year,month,day);

　　lable1.Text :=inttostr(year)+''年''+inttostr(month)+''月''+inttostr(day)+''日'';

　　◇[DELPHI]如何判断当前网络连接方式

　　判断结果是MODEM、局域网或是代理服务器方式。

　　uses wininet;

　　Function ConnectionKind :boolean;

　　var flags: dword;

　　begin

　　Result := InternetGetConnectedState(@flags, 0);

　　if Result then

　　begin

　　if (flags and INTERNET_CONNECTION_MODEM) = INTERNET_CONNECTION_MODEM then

　　begin

　　showmessage(''Modem'');

　　end;

　　if (flags and INTERNET_CONNECTION_LAN) = INTERNET_CONNECTION_LAN then

　　begin

　　showmessage(''LAN'');

　　end;

　　if (flags and INTERNET_CONNECTION_PROXY) = INTERNET_CONNECTION_PROXY then

　　begin

　　showmessage(''Proxy'');

　　end;

　　if (flags and INTERNET_CONNECTION_MODEM_BUSY)=INTERNET_CONNECTION_MODEM_BUSY then

　　begin

　　showmessage(''Modem Busy'');

　　end;

　　end;

　　end;