Visual C# 调用声音控制对话框

Delphi 通过时间服务器更新时间，包括了两个功能：1、获取服务器时间，2、更新本机时间。通过时间服务器，可一键自动更新日期时间，不过本实例连接的服务器已经失效了，程序不能连接，会假死，测试时候要注意。

Delphi 替换一个键盘按钮，将数字1改为a。将键盘所代表的键位重新定义并判断，得到一个不同的键位值。

Delphi 单击StringGrid列进行排序，StringGrid行的任意列单击，就会重新排序一次，排序规则可以自己定义，这种排序功能可有效提升StringGrid显示数据的易用性，增强其功能，提升用户体验，本例子源代码相当简单，对学习者也有很好的帮助作用。参见以下代码： 　　begin 　　 if Button = mbRight then Exit; 　　 TStringGrid(Sender).MouseToCell(X, Y, vCol, vRow); 　　 if (vRow < 0) or (vRow >= TStringGrid(Sender).FixedRows) then Exit; 　　 StringGridRowSort(TStringGrid(Sender), vCol, vOldCol = vCol); 　　 if vOldCol = vCol then 　　 vOldCol := - vOldCol 　　 else 　　 vOldCol := vCol; 　　end;

Delphi添加图层蒙版，运行本程序后，在屏幕上添加一层阴影，透明度大概在70%左右，可看作是在屏幕上方蒙了一层薄膜的感觉，代码简单：procedure TForm1.FormCreate(Sender: TObject); 　　var 　　 bTrans: Byte; 　　 OldStyle: Integer; 　　begin 　　 form1.Color := clGradientActiveCaption; 　　 WindowState := wsMaximized; 　　 BorderStyle := bsNone; 　　 FormStyle := fsStayOnTop; 　　 OldStyle := GetWindowLong(Handle, GWL_EXSTYLE); 　　 SetWindowLong(Handle, GWL_EXSTYLE, OldStyle or WS_EX_LAYERED Or WS_EX_TRANSPARENT); 　　 bTrans := 128; 　　 SetLayeredWindowAttributes(Handle, 0, bTrans, LWA_ALPHA); 　　end;

Delphi 定制自己的幽灵程序，这个程序在Windows托盘处显示图标，而且退出后在进程中仍会运行，像幽灵一样，托盘处可右键弹出菜单，本程序主要是图标和菜单的一些操作，属于UI界面的范畴吧，这是我个人认为的，部分代码摘录： 　　 NormalIcon,DisabledIcon:TIcon; 　　 //正常和失效两种情况下的图标 　　 Status:Boolean; 　　 //标志"允许使用"还是"禁止使用" 　　 procedure InstallIcon; 　　 procedure ChangeIcon(s:Boolean); 　　 procedure UnInstallIcon; 　　 procedure IconOnClick(var message:TMessage); message MI_ICONEVENT; 　　 //捕捉自定义消息MI_ICONEVENT的过程IconOnClick的声明

Delphi7 获取文件的修改时间，这是一个文件操作实例源代码，获取到文件被修改的时间，代码简单，适合Delphi新手学习参考。

Delphi演示如何将一张图片的颜色加深，类似于调整对比度，不过本效果不加入了渐变加深的动画效果，按住按钮图片一直变暗下去，要知空间，你可看下以下代码： 　　Bitmap:=image1.Picture.Bitmap; 　　image1.Height:= Bitmap.Height; 　　image1.Width:= Bitmap.Width; 　　for i:=0 to 255 do 　　begin 　　 sleep(10); 　　 for y:=0 to Bitmap.Height-1 do 　　 begin 　　 pixcolo:=Bitmap.Scanline[y]; //扫描每行像素颜色 　　 for x:=0 to ((Bitmap.Width*3)-1) do 　　 //递减颜色值，不同的递减值可改变不同的速度 　　 if pixcolo[x]>0 then pixcolo[x]:=(pixcolo[x]-1); 　　 end; 　　 Image1.Canvas.Draw(0,0,Bitmap); 　　 Application.ProcessMessages; //让Application去处理消息队伍中的消息 　　end;

Delphi 为窗体绘制渐变背景，这里使用了Delphi中的Canvas.Brush.Color来实现窗口背景的渐变色，不错吧？如示例图的左右渐变效果，实现的代码： 　　for i:=0 to self.Width-1 do 　　begin 　　c1:=GetRValue(StartColor)+Trunc(i*(GetRValue(EndColor)-GetRValue(StartColor))/(self.Width-1)); 　　c2:=GetGValue(StartColor)+Trunc(i*(GetGValue(EndColor)-GetGValue(StartColor))/(self.Width-1)); 　　c3:=GetBValue(StartColor)+Trunc(i*(GetBValue(EndColor)-GetBValue(StartColor))/(self.Width-1)); 　　Canvas.Brush.Color:=RGB(c1,c2,c3); 　　//每次画矩形的画刷颜色 　　Dct:=Rect(i,0,i+1,self.Height); 　　//每次刷绘的矩形区域 　　Canvas.FillRect(Dct); 　　//填充颜色 　　end;

Delphi 使用tfilestream方式复制文件，你可参考本源码，学习一下OpenDialog、Tfilestream.Create、showmessage、CopyFile的用法，本实例复制文件，是通过读取文件流，保存文件流的方式复制，并不是使用命令复制文件。

得到系统当前目录，Delphi 得到系统当前目录，这里使用了内置的GetCurrentDirectory函数来实现，比较方便，也比较简单。获取到系统目录后，是通过窗口的标题栏显示目录路径信息，在演示截图上请看窗口的标题栏，显示有程序当前所在的路径。关于GetCurrentDirectory用法，请参见以下两行代码： 　　GetCurrentDirectory(255,dir);//获得当前目录 　　form1.Caption:=dir;