发信人: lofe ()感激生活(), 信区: BorlandDev
标  题: 改计算机名 (转载)
发信站: 哈工大紫丁香 (2000年09月01日18:53:06 星期五), 站内信件

【 以下文字转载自 VisualProgram 讨论区 】
【 原文由 alias 所发表 】
SetComputerName('Hello World'); 
 
                                 控制壁纸 
 
控制Windows 95的壁纸，以下程序使壁纸变为我们想要的位图，如果THEPCHAR为空， 
那么就取消壁纸，变为Win默认色彩； 但这种方法只是暂时的，在WINDOWS重新启动后 
还是原来的位图，这时就需要对WIN.INI文件进行写操作，才能保存住我们改动的图片 
不被替换。 
var THEPCHAR:pchar; 
begin 
THEPCHAR:='e:\a.bmp'; 
SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, THEPCHAR, SPIF_SENDWININICHANGE) 
end; 
 
                                计算字段值 
 
需要对某字段的所有记录求和，使用如下代码： 
var i:double; 
{$R *.DFM} 
procedure TForm1.Table1CalcFields(dataset: Tdataset); 
var 
Goodsgold:double; 
begin 
Goodsgold:=table1.fieldbyname('金额').asfloat; 
i:=i+Goodsgold; 
label1.caption:=formatfloat('0.00',i); 
end; 
其中的i是求得的总和，在必要时才将他复位为0，要不他总是有增无减。 
 
                            链接的视觉效果 
 
　　要有类似WIN98那样指向字体，该字体就出现下划线，鼠标指针变为一支手指，按 
下后就打开浏览器或邮件编写器的功能，按下列办法做（该方法只是在前面讲的实现 
超链接的方法上加入一些效果）： 
　　先在一个窗体中加入一个Label1，加入下列代码 
procedure TForm1.Label1MouseMove(Sender: TObject;shift:Tshiftstate;x,y:integer 
); 
begin 
Label1.Font.Style:=[fsbold,fsunderline]; 
Label1.Font.Color:=clYellow; 
end; 
 
procedure TForm1.FormMouseMove(Sender: TObject;shift:Tshiftstate;x,y:integer); 
begin 
Label1.Font.Style:=[fsbold]; 
Label1.Font.Color :=clmaroon; 
end; 
 
procedure TForm1.Label1Click(Sender: TObject); 
begin 
Shellexecute(handle,nil,pchar('mailto:guihong@163.net'),nil,nil,sw_shownormal) 
; 
end; 
再将Label1.Cursor设为crHandPoint，Label1的OnMouseMove事件设为 
Label1MouseMove， Form1的OnMouseMove事件设为FormMouseMove，Label1的OnClick 
事件设为Label1Click，那么就这种效果了。 
 
                            替换指定串函数 
 
一个替换指定串的函数，从一个字符串中找出指定子串，并替换为另一子串。 
function replacing(S,source,target:string):string; 
var site,StrLen:integer; 
begin 
{source在S中出现的位置} 
site:=pos(source,s); 
{source的长度} 
StrLen:=length(source); 
{删除source字符串} 
delete(s,site,StrLen); 
{插入target字符串到S中} 
insert(target,s,site); 
{返回新串} 
replacing:=s; 
end; 
 
                            数据库日期显示 
 
　　在使用DBGRID控件时显示DATATIME时其年份是为2位的，但我们在步入2000年后需 
要显示的日期是4位，如：1998、2001。在数据库中该字段只有在2000年后才会显示4 
位，怎么办呢？ 下面我们就让该字段在DBGRID控件中也显示4位的日期格式： 双击 
Table1控件，就会出现form1.table窗体，击右键，选Add Fields...，选择日期字段 
后按ok，窗体中就出现了数据库的日期字段名，点日期的那个字段名，属性框里就出 
现了该字段的信息，里面有一项DispalyFormat，在该显示格式里输入yyyy.mm.dd，那 

--
☆ 来源:．哈工大紫丁香 bbs.hit.edu.cn．[FROM: mig.bbs@smth.org]
--
※ 转载:．哈工大紫丁香 bbs.hit.edu.cn．[FROM: club.hit.edu.cn]