摘要：
uses ActiveX, ComObj; function GetWMIProperty(WMIType, WMIProperty:AnsiString):String; var Wmi, Objs, Obj:OleVariant; Enum:IEnumVariant; C:Cardinal; begin try Wmi:= CreateOleObject(An... 阅读全文
摘要：
方法一： 在WebBrowser的OnDocumentComplete事件书写代码。 方法二： 阅读全文
摘要：
在XE7下测试通过. 阅读全文
摘要：
加载界面后再运行代码段 阅读全文
摘要：
settimer(self.handle,0,5000,@timerfun); //定义引用 //执行事件 procedure timerfun(handle:Thandle;msg:word;identer:word;dwtime:longword);stdcall; begin showmessage('事件激活'); killtimer(handle,identer);//关... 阅读全文
摘要：
每个div框内容有多有少，要支持div高度自适应，还要添加的div自动追加，并且换行还要保持每行对齐。刚开始的效果：给出了完美解决方案：效果：因为要支持每个div可删除，删除后，后面的div自动补齐，所以用table不显示（除非想自虐的人可以试下）最终就是css修改了一下就搞定了。。。 1 2 ... 阅读全文
摘要：
//输入事件中将字母设置为大写 if Key in ['a'..'z'] then begin Key := UpperCase(key)[1]; end;//DBGrid排序方法procedure TForm1.DBGridEh1TitleBtnClick(Sender: ... 阅读全文
摘要：
今天nagios报警，一台服务器的disk满了，使用du -sh * 或 du -sh /* 查看目录的大小，查找占用空间大的目录/var/spool/clientmqueue....然后就想/var/spool/clientmqueue这个目录干嘛用的，纠结了半天，谷歌了下，原来/var/spoo... 阅读全文
摘要：
以下代码本人在Delphi XE2下编译通过==================================================================unit Unit1;interfaceuses Winapi.Windows, Winapi.Messages, Sys... 阅读全文
摘要：
uses Windows;procedure TformLogin.FormCreate(Sender: TObject);begin SetWindowLong(Handle,GWL_EXSTYLE,(GetWindowLong(handle,GWL_EXSTYLE) or WS_EX_... 阅读全文