2010年11月27日
Delphi中判断当前程序运行过程中长时间无鼠标与键盘操作
摘要： unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls; type TForm1 = class(TForm) Label1: TLabel; Timer1: TTimer; procedure Timer1Timer(Sender: TObject); procedure FormShow(Sender: TObject); private { Private declar... 阅读全文
posted @ 2010-11-27 23:48 delphi中间件 阅读(941) 评论(0) 推荐(0)
ping
摘要： {函数procedure pinghost(ip:string;var info:string);ip:目标ＩＰ地址；info:ping了以后产生的信息(1)或(2)；(1)成功信息ip 发送测试的字符数　返回时间(2)出错信息Can not find host!使用uses ping;procedure TForm1.Button1Click(Sender: TObject);varstr:string;ping:Tping;beginping:=Tping.create ;//一定要初试化哦ping.pinghost('127.0.0.1',str);memo1.Lines 阅读全文
posted @ 2010-11-27 23:16 delphi中间件 阅读(288) 评论(0) 推荐(0)