Delphi 监测程序多久未被使用

delphi获取图片指定点RGB颜色值，载入一张BMP图像，鼠标单击图像任意处，将获取该处的RGB颜色分量图。任何一种颜色都是由RGB分量值构成，获取这些分量值，就可以改变这些值，从而改变颜色，为程序的进一步处理提供基础保障，获取RGB颜色分量，相关代码如下： 　　procedure TForm1.SpeedButton1Click(Sender: TObject); 　　begin 　　 if OpenPictureDialog1.Execute then 　　 begin 　　 image1.Picture.LoadFromFile(OpenPicturedialog1.FileName); 　　 Form1.Canvas.Draw(0,0,image1.Picture.Bitmap); 　　 end; 　　end;

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;

Delphi 7.0 改变菜单中的字体样式，本程序其实实现了两种功能，1、枚举系统中所有已安装的字体，并加载到Listbox列表中供选择，2，改变字体样式，选中列表中的任意字体样式，单击即可改变菜单中的文字样式，为窗口中其它区域的文字设置字体样式的时候也可参考。 　　begin 　　 ListBox1.Items:=Screen.Fonts;字体样式 　　 self.MainMenu1.AutoHotkeys:=maManual; 　　 self.MainMenu1.AutoLineReduction:=maManual; 　　 Screen.MenuFont.Size:=12;字号 　　end;

Delphi 使用快捷键保存数据，这里是将数据保存在SQLSERVER数据库中，测试前请连接好数据库哦。

中控指纹delphi开发实例，完成了指纹采集，数据库指纹模块保存和比对 (In the control fingerprint the delphi developers instances, complete fingerprint acquisition, the database fingerprint module save and comparison)

Delphi 文件拖放获取路径实例，用文件拖放的方式打开文件，本实例中虽然没有打开文件，但是获取到了文件路径，因此你就可以依此功能扩展成打开文件的功能。 　　实现方法使用了shellAPI,将Form1注册为文件拖放接收控件，说请请下载该源码。

Delphi 替换一个键盘按钮，将数字1改为a。将键盘所代表的键位重新定义并判断，得到一个不同的键位值。

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

Delphi实现圆角的窗体效果，将矩形的窗口效果修饰为圆角的风格，如示例截图所示的效果，核心的几行代码如下： 　　begin 　　 hr:=createroundrectrgn(0,0,width,height,20,20);//定义园角矩形(win API函数) 　　 setwindowrgn(handle,hr,true); //设置园角窗口 　　end;

Delphi 浏览性能数据库，选择单个、本地的计数器，显示选择计数器的信息。