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

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

Delphi 获得汉字区位码的源码，输入指定汉字，将得到这些汉字的区位码，关键代码请参考以下的源码： 　　procedure TForm1.Button1Click(Sender: TObject); 　　var 　　 str:string; 　　 hi,lo:integer; 　　begin 　　 str:=trim(edit2.Text); 　　 hi:=byte(str[1])-$a0; 　　 lo:=byte(str[2])-$a0; 　　 edit1.Text:=inttostr(hi)+inttostr(lo); 　　end;

Delphi判断双字节，用法简单，在窗口输入框中输入字符串，单击按钮即可，程序会判断出是否包含有双字节字符，判断方法请看下边的代码段： 　　s := Edit1.Text; 　　i := 0; 　　while i　　begin 　　 if (ByteType(S,i) mbSingleByte) then 　　 begin 　　 s1 := s1+ copy(s,i,2)+; 　　 i := i+2; 　　 end 　　 else 　　 i:= i+1; 　　end; 　　label2.Caption := trim(s1);

Delphi 利用API绘制弧形， 　　begin 　　 ArcRect := ClientRect; 　　 Canvas.Pen.Width:=2; 　　 for i:=1 to 10 do 　　 begin 　　 Arc(Canvas.Handle,ArcRect.Left,ArcRect.Top,ArcRect.Right, 　　 ArcRect.Bottom,ArcRect.Right,(ArcRect.Bottom-ArcRect.Top) div 2, 　　 ArcRect.Left,(ArcRect.Bottom-ArcRect.Top) div 2); 　　 InflateRect(ArcRect,-2,-2); 　　 Canvas.Pen.Color := PaletteIndex(i+10); 　　 end;

Delphi 使用Canvas美化列表项，当用户鼠标单击ListBox列表项时，该列表项高亮显示，改变背景色，文字居中对齐，如图所示。 　　主要是使用了Delphi中的Canvas.FrameRect对其进行美化，具体代码有兴趣可参考： 　　Canvas.FrameRect(Clientrect); 　　if odSelected in State then 　　begin 　　 Canvas.Brush.Color:=clRed; 　　 Canvas.RoundRect(Rect.Left,Rect.Top,Rect.Right,Rect.Bottom,8,15); 　　 setBkMode(Canvas.Handle,TRANSPARENT ); 　　 Canvas.TextOut((Rect.right-Rect.Left) div 2,Rect.Top,Items.Strings[Index]); 　　end 　　else 　　begin 　　 Canvas.Brush.Color:=clSkyBlue; 　　 Canvas.RoundRect(Rect.Left,Rect.Top,Rect.Right,Rect.Bottom,15,15); 　　 Canvas.TextRect(Rect,Rect.Left,Rect.Top,Items.Strings[Index]); 　　end;

图片的垂直交错效果，Delphi 编写的图片垂直交错显示效果，之前就分享过这种效果，类似百叶窗的交替显示效果，可用于图片转场，不过本效果还有很多地方需要优化，当时是写给一本书，作为随书实例的，有兴趣的可参考，关于本功能的关键代码部分，请看以下代码： 　　newbmp:= TBitmap.Create; 　　newbmp.Width:=image1.Width; 　　newbmp.Height:=image1.Height; 　　bmpheight:=image1.Height; 　　bmpwidth:=image1.Width; 　　i:=0; 　　while i0 do 　　 begin 　　 newbmp.Canvas.CopyRect(Rect(0,j-1,bmpwidth,j),image1.Canvas,Rect(0,bmpheight-i+j-1,bmpwidth,bmpheight-i+j)); 　　 newbmp.Canvas.CopyRect(Rect(0,bmpheight-j-1,bmpwidth,bmpheight-j),image1.Canvas,Rect(0,i-j,bmpwidth,i-j+1)); 　　 j:=j-2; 　　 Application.ProcessMessages; 　　 end; 　　 form1.Canvas.Draw(0,0,newbmp); 　　 i:=i+2; 　　end; 　　newbmp.free;

Delphi 设定Windows屏幕分辨率的方法和示例代码： 　　function TForm1.DynamicResolution(X, Y: word): BOOL; 　　var 　　 lpDevMode: TDeviceMode; 　　begin 　　 Result := EnumDisplaySettings(nil, 0, lpDevMode); 　　 if Result then 　　 begin 　　 lpDevMode.dmFields := DM_PELSWIDTH Or DM_PELSHEIGHT; 　　 lpDevMode.dmPelsWidth := X; 　　 lpDevMode.dmPelsHeight := Y; 　　 Result := ChangeDisplaySettings(lpDevMode, 0) = DISP_CHANGE_SUCCESSFUL; 　　 end

Delphi 在Windows NT/2000 环境下使用PSAPI获取进程的信息演示，其实在Window7环境下同样也可枚举到进程及页面内存信息，可以列举所有正在运行的进程，正在运行的所有进程，鼠标双击有进程的详细信息，可以得到某一进程的模块、页面等信息，以及内存映射的文件名。 　　如果列举进程出错，请确认是否安装了PSAPI.DLL。 　　本程序除了列举进程外，还可列举设备信息。运行效果请参见截图所示。

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