2012年6月2日
delphi 在桌面左上角显示时间
摘要： {在左上角显示时间}procedure ThreadProc;var hScreenDC: hdc; SystemTime: _SYSTEMTIME; Temp: string; MyOutput: PChar;begin while true do begin Sleep(100); hScreenDC := GetDC(0); GetLocalTime(SystemTime); Temp := format('Current Time is %d-%d-%d %d:%d:%d', [SystemTime.wYear, SystemTime.wM... 阅读全文
posted @ 2012-06-02 21:33 wouldguan 阅读(329) 评论(0) 推荐(0)