Delphi 监测程序多久未被使用

delphi开发的谷歌翻译工具，使用该工具可以不用打开浏览器，然后输入谷歌翻译地址才能进行翻译工作， 而这个工具可以快速打开并直接在文本框中输入你要翻译的文本内容即可翻译了。 同时，你拿到此源码还可以进行二次开发，以满足你更多需要和想象。

Delphi户籍管理系统，Access数据库版，界面方面使用了Xpmenu和SReport控件。测试时的登录初始密码为：222222 。 　　在数据库编程方面，本系统更注重录入及查询，采用多重SQL语句查询，并结合查询可生成报表。

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

Delphi 播放指定avi-mid-wav文件,这几种都是音频格式，因此这个可以说是播放音频文件的例子，控制面板中包括了常用的播放控制按钮，在此基础上，可写出一个Delphi音乐播放器，当然本源码比较早了，适合学习一些简单的Delphi音频编程技巧。 　　procedure TForm1.N2Click(Sender: TObject); 　　begin 　　 if OpenDialog1.Execute then 　　 begin 　　 with MediaPlayer1 do 　　 begin 　　 Filename := OpenDialog1.FileName ; 　　 Open; 　　 DisPlayrect := Rect(1,1,Panel2.Width ,Panel2.Height ); 　　 Notify := true; 　　 end; 　　 end; 　　end;

使用Delphi 制作无闪烁的动画效果，如何实现不闪烁的动画呢？这个例子或许能找到一些答案：部分代码如下： 　　var 　　 x,i: Integer; 　　 dir,run: Boolean; 　　begin 　　 b := TBitMap.Create; 　　 b.Width := AnimWindow.Width; 　　 b.Height := 32; 　　 b.Canvas.Pen.Color := clBtnFace; 　　 b.Canvas.Brush.Color := clBtnFace; 　　 b.Canvas.Rectangle(0,0,AnimWindow.Width,32); 　　 run := True; 　　 dir := False; 　　 x := 0; 　　 while run do 　　 for i := 0 to AnimWindow.ImageList1.Count-1 do 　　 begin 　　 b.Canvas.Rectangle(0,0,AnimWindow.Width,32); 　　 AnimWindow.ImageList1.Draw(b.Canvas,x,0,i); 　　 Synchronize(DrawAnimPic); 　　 Sleep(AnimWindow.SpinEdit1.Value); 　　 if (x = 0) or (x = 300) then dir := not dir; 　　 if dir then Inc(x) else Dec(x); 　　 end; 　　 b.Free; 　　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 获取系统中已安装的中文输入法，判断是否在中文状态,若是则关闭它，切换半角和全角模式，切换中文标点模式和英文标点模式，并对输入法做相关设置。以下是相关代码： 　　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 Exit语句的使用，这个是比较基础的delphi语法实例了，以一个输入界面来演示exit函数的使用方法。演示了如果用户的输入不符合条件的话，则使用Exit语句结束执行，跳出程序，在如图所示的输入项中，任意一项输入不符合要求，则会直接退出程序的执行。

Delphi 鼠标双击TStatusBar时判断是哪一个panels，这个是把窗口的状态栏分隔，每个隔断中显示不同的内容，用鼠标双击不同的隔断，程序将判断用户点击了哪个隔断，并获取到该栏中的文字内容显示出来。

Delphi 获取两个子字符串之间的字符个数，也就是这个字符串由A/B/C三个字符组成，本例子是求A/C中间的所有字符串的个数，空格同样也包括在内。定义两个函数即可实现本功能： 　　Function TForm1.Strcount( s, s1, s2 : string ): integer; 　　var 　　 i,j,slen : integer; 　　begin 　　 i := pos( s1, s ); 　　 j := pos( s2, s ); 　　 slen := Length(s1); 　　 if j >= i then 　　 Result := j - i - slen 　　 else 　　 Result := 0; 　　end; 　　procedure TForm1.Button1Click(Sender: TObject); 　　var 　　 n : integer; 　　begin 　　 n := Strcount(Edit1.Text,Edit2.Text,Edit3.Text); 　　 showmessage(IntToStr(n)); 　　end;