2009年12月27日 星期日

delphi 执行一个外部程序，当外部程序结束后言主程序立即响应

幸福苹果| 幸福苹果-delphi |17:50:00

我们经常能看到360安全卫士进行windows系统升级时，执行windows升级程序，当升级程序执行完成后，360马上弹出提示框。这样的程序是如何做到的呢？下述代码就能完成！uses shellAPI;procedure TForm1.Button1Click(Sender: TObject);varSEInfo: TShellExecuteInfo;Exi...

delphi 取得开机时间 开机时间总长度（可精确到秒，分钟等）

幸福苹果| 幸福苹果-delphi |17:17:00

procedure TForm1.Button1Click(Sender: TObject);//GetTickCount函数可以得到从开以来所经过的毫秒数.再与当前时间相减就可以了!varStartTime:TDateTime;beginStartTime:=Now-GetTickCount/1000/60/60/24;showmessage('本次开机时间为：'+DateTimeToStr(StartTime))...

请问如何检测是否按下键盘或鼠标，如果超过5秒没有操作则认为用户已经离开？

幸福苹果| 幸福苹果-delphi |17:00:00

http://www.cnblogs.com/fubin/archive/2009/09/14/1566201.htmlprocedureTForm1.Timer1Timer(Sender: TObject);varvLastInputInfo: TLastInputInfo;beginvLastInputInfo.cbSize :=SizeOf(vLastInputInfo);GetLastInputInfo(vLastInputInfo);ifGetTickCount-vLastInp...