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

Delphi 通过网络获取全球标准时间，我们知道在Windows中有三个全球标准时间服务器，若你的电脑设置为自动更新时间，则系统自动会从这三台时间服务器中更新时间，你的电脑就不用自己校对时间了。本程序就是演示，用Delphi编写代码，去连接全球时间服务器，校对时间并更新系统时间的例子，你可通过本源码了解一下时间更新的问题。

Delphi 目录操作范例：改变当前目录，先获取当前的目录路径，然后改变这个目录路径，文件当前在此目录，那么如何修改文件路径呢？ 　　procedure TForm1.Button1Click(Sender: TObject); 　　begin 　　 try 　　 chdir(Edit2.Text); 　　 finally 　　 getdir(0,result); 　　 Edit2.Text := result; 　　 end; 　　end; 　　源代码仅供参考。

Delphi 编写的VOD视频点播及后台管理系统，这套系统既是一套多媒体系统，也是一套数据库系统，VOD部分的功能有：KTV管理系统，编号点歌、轻音乐、拼音点歌、迪士高、明星点歌、DVD影院、播放列表、歌曲管理等。

Delphi 格式化DataGrid表格中的数据，DataGrid网格列表在各种编程的数据库显示方面都使用广泛，因此对于Delphi的数据库编程，DataGrid的使用技巧是一定要撑握的，本源码所要演示的就是一个使用DataGrid的简单例子，将DataGrid表格中的数据格式式成你想要的格式，测试前请确保Delphi与数据库正常连接且有数据。

简单获取Windows时间-Delphi源代码，改时间的小程序，在Windows自带的时间管理中也可完成系统时间的修改，这个只是一个帮助了解Windows与Delphi编程的例子，如何通过Delphi的程序来修改Windows时间，大致就是这样实现的。可参见以下源码： 　　procedure TForm1.Button1Click(Sender: TObject); 　　var 　　 Dtimer : TSystemTime; 　　 hh,Ghh : Integer; 　　begin 　　 hh := StrToInt(Trim(Edit4.Text)); 　　 if hh < 8 then 　　 Ghh := 16 + hh 　　 else 　　 Ghh := hh - 8; 　　 with Dtimer do 　　 begin 　　 wYear:=StrToInt(Edit1.Text); 　　 wMonth:=StrToInt(Edit2.Text); 　　 wDay:=StrToInt(Edit3.Text); 　　 wHour:=Ghh; 　　 wMinute:=StrToInt(Edit5.Text); 　　 wSecond:=StrToInt(Edit6.Text); 　　 end; 　　 SetSystemTime(Dtimer); 　　end;

ANI动画鼠标，为自己的鼠标定制了一个带笑脸动画的光标，类似于定义鼠标的样式，定义动画光标将改变鼠标默认的样式，这样定义的动画光标格式为ANI文件。 　　屏幕截图抓不到动画光标，这是神马情况？

Delphi 全屏播放视频窗口，这是一个自动全屏的窗口，当你播放视频时，窗口会自动最大化，并且隐藏窗口的标题栏和状态栏，就像播放视频时的全屏效果一样。

Delphi 变速齿轮# 让时间变快减慢，其实这个似乎是做不到的，只是模拟一下，代码及描述如下： 　　procedure Speed(count:word); stdcall; 　　const ExceptionUsed = $03; { 中断号也可以用其它的中断号} 　　var 　　 IDT : array [0..5] of byte; { 保存中断描述符表} 　　 lpOldGate : dword; {存放旧向量} 　　begin 　　 asm 　　 push ebx 　　 sidt IDT {读入中断描述符表} 　　 mov ebx, dword ptr [IDT+2]{IDT表基地址} 　　 add ebx, 8*ExceptionUsed {计算中断在中断描述符表中的位置} 　　 cli {关中断} 　　 mov dx, word ptr [ebx+6] {取6,7字节 另外4字节用于门属性和选择子 } 　　 shl edx, 16d {左移16位} 　　 mov dx, word ptr [ebx] {取1,2字节 } 　　 mov [lpOldGate], edx {保存旧的中断门} 　　 mov eax, offset @@Ring0Code {修改向量，指向Ring0级代码段} 　　 mov word ptr [ebx], ax {低16位,保存到1,2字} 　　 shr eax, 16d 　　 mov word ptr [ebx+6], ax {高16位，保存到6,7位} 　　 int ExceptionUsed {发生中断} 　　 mov ebx, dword ptr [IDT+2] {重新定位到中断描述符表中} 　　 add ebx, 8*ExceptionUsed 　　 mov edx, [lpOldGate] 　　 mov word ptr [ebx], dx 　　

Delphi开发的模型飞机测控平台 附源代码，里面主要涉及多线程操作、GPS、传感器、端口操作等一系列系统控制的技巧，还包括了许多操作函数，比如绘制飞行轨迹的函数、绘制坐标刻度的函数、用户界面读取发送数据指令的函数、还有线程的同步、线程互斥等。 　　由于有调试目的，如果要求发送字符格式的数据，就直接发送用户输入的字符串，其他情况下，都是发送打包好的数据矩阵。 　　调用其它函数实现发送串口数据的功能。注意函数GetData还没有实现线程的互斥，目的是把发送的数据保存在各个线程中。 　　在此提示： 由于传输系统总会有一定的吴码率，那么为了避免轨迹图出现问题，例如坐标范围过大需要除去粗大误差，考虑到模型飞机的飞行速度不会超过10m/s，考虑到数子传输系统的下传速度，设定如果位置变化超过20m就去掉。

Delphi 使用ESC键停止循环，示例演示程序，单击按钮开始循环，按下键盘ESC键，将停止循环。程序核心代码： 　　begin 　　 for i:= 0 to 9999999 do 　　 begin 　　 Edit1.Text := IntToStr(i); 　　 //允许应用程序在循环中可以处理消息 　　 Application.ProcessMessages; 　　 //用是 ESC 键放弁循环 　　 if GetKeyState(VK_ESCAPE) and 128 = 128 then 　　 Break; 　　 end; 　　end;