在delphi 7中使用idhttp抓取网页，造成窗口无反应的假死状态。通过搜索获得两种方法。
1.写在线程中，但是调用比较麻烦
2.使用delphi 提供的idantifreeze（必须安装indy）。在indy misc中将idfreeantifreeze放入程序中，
将On
3月
17
Category Archives: 开发技术
3月
10
linux 硬盘告警脚本
#/bin/hash
#######################set
admin_mail= Email@ ##Email地址
disk_report_limit=70 ##硬盘超出%几告警。
send_mail_more=3 ##当天告警多少次
#######################get serverinfo
server_name=`hostname`
OS=`uname`
case $OS in
Linux) IP=`ifconfig | grep ‘inet addr:’| grep -v ‘127.0.0.1’ | cut -d: -f2 | awk ‘{ print $1}’`;;
FreeBSD|OpenBSD) IP=`ifconfig | grep -E ‘inet.[0-9]’ | grep -v ‘127.0.0.1’ | awk ‘{ print $2}’` ;;
SunOS) IP=`ifconfig -a | grep inet | grep -v ‘127.0.0.1’ | awk ‘{ print $2} ‘` ;;
*) IP=”Unknown
7月
30
delphi多线程CreateThread函数
简单介绍多线程API 函数：
构建线程：
CreateThread(参数1，–安全属性（一般=Nil，默认安全属性）
参数2，–线程堆栈尺寸（一般=0，与主线程相同长度，而且可以根据需要自动变化）
参数3，–指向函数名指针，@函数名，这个参数十分重要，不正确将无法调用成功。
参数4，–用户需要向线程传递的参数，是一个指向结构的指针，不需传递参数时，为Nil。
参数5）–传入与线程有关的一些参数，例如：
Create_SUSPENDED 创建一个挂起的线程；
0 创建后立即激活。
7月
26
delphi7修改系统时间
添加edit和两个button,第一个button获得系统时间，第二个button按照edit中的时间设置本地系统时间。
注意：设置时间格式不要修改。delphi7通过。
procedure TForm1.Button1Click(Sender: TObject);
begin
edit1.Text:=FormatDateTime(‘yyyy-mm-dd hh:mm’,now);
end;
procedure TForm1.Button2Click(Sender: TObject);
var
SysTime:TSystemTime;
MyTime:TDateTime;
begin
MyTime:=StrToDateTime(Edit1.Text);
DateTimeToSystemTime(MyTime,SysTime);
SetLocalTime(SysTime);
end;