Delphi 7.0 After提取字符串中指定子字符串后的字符串

Delphi 获取系统中已安装的中文输入法，判断是否在中文状态,若是则关闭它，切换半角和全角模式，切换中文标点模式和英文标点模式，并对输入法做相关设置。以下是相关代码： 　　procedure TForm1.closecid; 　　var 　　 mycid:hkl; 　　begin 　　 mycid:=GetKeyBoardLayOut(0); 　　 if ImmIsIME(mycid) then 　　 //判断是否在中文状态,若是则关闭它 　　 immsimulateHotkey(handle,IME_CHotKey_IME_NonIME_Toggle); 　　end; 　　procedure TForm1.FormShow(Sender: TObject); 　　var 　　 j:integer; 　　begin 　　 for j:=0 to screen.imes.count-1 do 　　 begin 　　 //获取系统中已安装的中文输入法 　　 ComBoBox1.Items.Add(screen.Imes.strings[j]); 　　 end; 　　end;

Delphi 当鼠标和键盘在一定时间没有动作时关闭程序，这是一个智能化程序，类似于屏保，当一定时间没有操作时，会关闭软件，运行的技术也不很高深，有兴趣的可下载源代码研究学习。

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 不使用标题栏移动窗体，意思是说，平时大家拖动Windows窗口的时候，都是鼠标放在窗口的标题栏上，按住鼠标左键拖动窗体，但本源码实现的功能是，不以标题栏为操作目标，那是怎么实现的窗口拖动呢？请下载参见本源码。

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

Delphi 演示使用演示Brush笔刷对象后生成的各种风格，一种演示了7种笔刷效果，定义了一个存储绘图风格的7维数组，然后使用For循环对绘图风格数组赋值，然后使用Canvas.Brush.Style来预览风格。这些笔刷风格都是浅色彩的风格。

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

图片的垂直交错效果，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 7.0 在局域网内发消息，这个本站收集有很多例子了，学习Delphi网络编程可参考的例子，Delphi网络发消息，局域网发消息的例子，敬请关注。 　　局域网内发消息核心代码： 　　procedure TFrmSendMessage.Sendmessage(const msg,tomachine,from:string); 　　var 　　 ms:PWideChar; 　　begin 　　 ms:=PWIDEChar(WideString(msg)); 　　 NetMessageBufferSend(nil,pWidechar(WideString(tomachine)),pWidechar(WideString(from)),ms,length(msg)*2); 　　end; 　　procedure TFrmSendMessage.BtnSendClick(Sender: TObject); 　　begin 　　 Sendmessage(mmMessage.Text,EDTo.Text,EDFrom.Text); 　　end;