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;