Delphi 使用Word作为自动化服务器

Delphi 用获取路径的方法得到圆形窗体，制作实现一个非矩形窗口，可以说是一个不规则窗口了，圆形的窗口，标题栏、状态栏及窗口关闭等操作按钮均不邮了。圆形窗口的基本实现思路是根据路径创建不规则窗体，然后设置窗口为透明模式，部分代码如下： 　　dc:=self.Canvas.Handle; 　　BeginPath(dc); 　　//根据路径创建不规则窗体 　　SetBkMode(dc,TRANSPARENT); 　　//设置为透明模式 　　 Ellipse(dc,20,20,220,220); 　　EndPath(dc); 　　region:=PathToRegion(dc); 　　SetWindowRgn(self.Handle,region,TRUE); 　　end;

Delphi 为组件制作立体效果，实现组件的阴影、投影效果，这种阴影效果不是很细腻，不过大致也说得过去，必竟实现方法简单，原生Delphi方法实现，不依靠三方控件，最终效果请参见测试截图所示。

Delphi 创建多个独立的子窗体 脱离父窗口而显示，但是却可通过父窗口关闭打开的所有子窗口，就是通过主窗口内的关闭按钮，关闭独立于父窗口之外的子窗口，这个功能我感觉很实用吧，源代码中也包括了多个子窗口的代码，父子窗口之间是如何关联起来的呢，请参见这个源代码实例 。

关于IntToHex，在Delphi中使用频率也是挺高的，不过像我这种菜鸟，对IntToHex的具体用法仍是不太熟悉，后来看了这个小程序，了解了一些，分享给大家，特别是以下代码会加深你对IntToHex函数的用法理解。 　　procedure TForm1.Button1Click(Sender: TObject); 　　var 　　 S:integer; 　　begin 　　 S:=2147483647; 　　 showmessage(inttoHex(s,8)); 　　 showmessage(inttoHex(s,10)); 　　 showmessage(inttoHex(s,16)); 　　 showmessage(inttoHex(s,32)); 　　end;

Delphi实现窗口的淡入淡出渐变fadein fadeout动画效果，除了渐变，还有其它的动画形式，比如从中心扩散、水平从左到右、水平从右到左、垂直从上到下、垂直从下到上等。本实例默认状态下是使用了淡入淡出渐变，其它动画效果被注释掉了，如果你想用，可以去掉注释标记。 　　//淡入效果 　　//AnimateWindow(self.Handle,1000,AW_CENTER or AW_ACTIVATE); 　　//从中心扩散 　　//AnimateWindow(self.Handle,1000,AW_HOR_POSITIVE or AW_ACTIVATE); 　　//AnimateWindow(self.Handle,1000,AW_SLIDE or AW_HOR_POSITIVE or AW_ACTIVATE); 　　//水平从左到右 　　//AnimateWindow(self.Handle,1000,AW_HOR_NEGATIVE or AW_ACTIVATE); 　　//AnimateWindow(self.Handle,1000,AW_SLIDE or AW_HOR_NEGATIVE or AW_ACTIVATE); 　　//水平从右到左 　　//AnimateWindow(self.Handle,1000,AW_VER_POSITIVE or AW_ACTIVATE); 　　//AnimateWindow(self.Handle,1000,AW_SLIDE or AW_VER_POSITIVE or AW_ACTIVATE); 　　//垂直从上到下 　　//AnimateWindow(self.Handle,1000,AW_VER_NEGATIVE or AW_ACTIVATE); 　　//AnimateWindow(self.Handle,1000,AW_SLIDE or AW_VER_NEGATIVE or AW_ACTIVATE); 　　//垂直从下到上

Delphi控制系统静音，两个声道均不发出声音，同时若在非静态状态下，可控制左、右声道的音量大小，在代码中@表示指向变量v的指针（32位），调用此函数的用意就是得到右声道的值，在调节左声道的时候，不改变右声道}数字前面加＄表示是十六进制数字，(t shl 8)表示t左移8位，部分参数设置代码如下： 　　procedure TForm1.FormCreate(Sender: TObject); 　　var 　　 v:longint; 　　begin 　　 waveoutgetvolume(0,@v);//得到现在音量，@v表示指向变量v的指针（32位） 　　 trackbar1.Position:=hi(v);//设置左滑块的正确位置 　　 trackbar2.Position:=hi(v shr 16);//设置右声道滑块的正确位置 　　end;

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

Delphi演示如何实现UniCode编码、汉字的繁简互转功能，同时将字符转换为unicode码值（十六进制）： 　　常用编码： 　　codepage=936 简体中文GBK 　　codepage=950 繁体中文BIG5 　　codepage=437 美国/加拿大英语 　　codepage=932 日文 　　codepage=949 韩文 　　codepage=866 俄文 　　codepage=65001 unicode UTF-8 　　本例子中仅使用了936、950，如果你要进行其他语言的编码转换，仅需相应改变其中的编码值即可。

Delphi 监控剪贴板的文字内容，这个监控程序可以监控复制到剪切板的文字信息，图片暂时不能监控到，具体的监控实现如下： 　　NextformHwnd:HWND;//观察链中下一个窗口句柄 　　procedure WMDrawClipBoard(var AMessage:TMessage);message WM_DRAWCLIPBOARD; 　　//处理WM_DRAWCLIPBOARD消息过程 　　 { Public declarations } 　　//将WM_DRAWCLIPBOARD消息传递到下一个观察链中的窗口 　　SendMessage(NextformHwnd,AMessage.Msg,AMessage.WParam,AMessage.LParam); 　　//查询剪贴板中特定格式的数据内容 　　if (Clipboard.HasFormat(CF_TEXT) or Clipboard.HasFormat(CF_OEMTEXT)) then 　　begin 　　 //处理剪贴板中内容 　　 memo1.Lines.Clear; 　　 memo1.Lines.Add(Clipboard.asText); 　　end;

Delphi打开记事本和计算器等外部程序，应该说是调用外部程序，调用记事本和计处器，单击窗口中的两个按钮，分别会打开Windows自带的记事本和计算器程序。