Delphi 进程通讯的实现实例源码

用Delphi播放AVI文件，AVI是一种视频格式，其实在Windows系统中，有很多的AVI小视频，用于实现Windows窗口中的小动画效果，在很多时候，我们可以借助播放AVI视频来实现窗体上的一些动画效果，比如Loading进度条、Office助手等。

Delphi 使窗体始终在最前面，不几行代码实现的置顶窗口，大家对这种窗口相信都不会太陌生，不被其它的窗口遮挡，显示在最前面，典型的应用像一些视频播放器的播放窗口，在播放视频时可设置显示在最顶端，你可以边工作边看电影啦！详细实现请参考源代码。

Delphi 将TColor换算成RGB，将一种颜色按照RGB颜色分量的形式分离出来，显示各自的颜色值，类似于一个拾色器的功能，你可从列表中选择任意一种颜色，然后查看获取到的颜色分量的值，如示例截图所示。

如何屏蔽sleep和wake up键,一个是待机键,一个是唤醒键,屏蔽可有效避免误操作,不过本代码过于简单,屏蔽效果有待测试,核心代码如下: 　　procedure TForm1.WMPowerBroadcast(var message: TMessage); 　　begin 　　 message.Result := BROADCAST_QUERY_DENY; 　　end;

简单获取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;

Delphi获取windows System目录路径，这个比较简单，觉得没啥用，只是可以练习一下GetSystemDirectory函数如何使用，下面分享出核心的代码，完整代码需要您下载哦： 　　begin 　　 GetMem(SysDir,255); 　　 GetSystemDirectory(SysDir,255); 　　 Edit1.Text := SysDir; 　　end;

本源码演示如何实现Delphi TdxDBTreeView节点全部展开或收拢功能，也就是大家熟悉的树形菜单节点的折叠或展开功能，在平时的使用中，树形节点是很常用的一个菜单功能，本例子的树形菜单节点功能读取自数据库，因此在测试前请连接好数据库。 　　//单击全部展开按钮 　　procedure TForm1.Button1Click(Sender: TObject); 　　begin 　　 dxDBTreeView1.FullExpand; 　　end; 　　 //单击全部收拢按钮 　　procedure TForm1.Button2Click(Sender: TObject); 　　begin 　　 dxDBTreeView1.FullCollapse; 　　end;

Delphi获取从开机到现在CPU运行的周期数，不是获取开机时间多长，是CPU的周期数，显示的值为数字字符串，运行效果如示例截图所示。代码段： 　　begin 　　Edit1.Text := inttostr(periodicity); 　　end;

Delphi 修改网络设置DNS地址，这个修改DNS程序是通过修改注册表的方法来修改。修改前先获取到系统安装的网卡信息，由用户指定待修改的新DNS地址，输入地址框，单击“修改”按钮即可完成修改。因此通过本程序，你可以了解许多注册表方面的操作技巧，以及网络设置相关知识。

Delphi 获取拖动到窗体中的文件的路径，这实际上是一个拖放打开文件的例子，这只不是其中的一个步骤，拖放打开是把文件拖放到本窗口中，直接打开该文件，而拖放得到路径是把文件的路径显示在窗口中，和打开文件其实难易程序是一样的。拖放后获取文件路径，代码如下： 　　procedure TForm1.FileIsDropped(var Msg: TMessage); 　　var 　　 NumFiles : longint; 　　 i : longint; 　　 FName : array[0..255] of char; 　　begin 　　 SetForegroundWindow(Handle); 　　 NumFiles := DragQueryFile(Msg.WParam,$FFFFFFFF,nil,0); 　　 for i := 0 to (NumFiles - 1) do 　　 begin 　　 DragQueryFile(Msg.WParam,i,FName,sizeof(FName)); 　　 Memo1.Lines.Add(FName); 　　 end; 　　end;