procedure TForm1.Button8Click(Sender: TObject); var sr: TSearchRec; aTempPath: String; begin aTempPath :=’D:\delphi\printer\*.*’; //注意后面的*。*一定要加 if FindFirst(aTempPath, faAnyFile, sr) = 0 then begin repeat if (sr.Attr and faArchive) = sr.Attr then ...阅读全文
这里，我向大家介绍在Delphi中如何实现文件时间的获取和修改方法。Delphi中 提供了很完备的Windows API函数的调用接口，可以方便的进行高级Windows编程 。利用Delphi中的FindFirst函数可以得到一个文件的属性记录，该记录中的Fin dData域中就记载了详细的文件时间信息。然而遗憾的是，FindData中的时间信息 是不能直接得...阅读全文
unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, WinSpool, StdCtrls; var pi2:PRINTER_INFO_2; pno:PRINTER_NOTIFY_OPTIONS; pinfo:PPrinterNotifyInfo; //pinty:pPrinterNotifyOptionsType; hResult:THandle; pdwChange:DWORD; ...阅读全文
如引用由 Win32API, ” 打印机 ” 由打印机驱动程序， 打印队列, 和输入/输出路径到物理打印机。 操作系统将物理打印机视为只打印作业由生成并传递系统 ” 打印机, ” 作为打印机本文其余部分中引用的目标。 最明显一部分打印机是打印队列。 它是由打印管理器或样式 Windows 95 用户界面中打印机文...阅读全文
定义一个异常处理类 ，把应用程序为处理的异常全部让它来处理。 TMyexception =class public procedure AppException(Sender: TObject; E: Exception); end; procedure TMyexception.AppException(Sender: TObject; E: Exception); begin if pos(‘ora-‘,LowerCase(e.Message)) =1 then remi...阅读全文
比如我的网站域名为@ibeijing2008.cn,你可以试用一下以我们这个域名为后缀的邮箱,比如:你的用户名@ ibeijing2008.com,申请地址点这里>> 注册完成后就可以在Hotmail.com、Windows Live Mail登 陆你自己的邮箱,界面和功能和你曾经使用过的@msn.com以及@hotmail.com一模一样,同时享有微软提供的所有网络服务,比如MSN,...阅读全文
来北京40天了，终于等到五一能回个家，还像以前一样，一进门小小宝就站在我面前，不同的是她虽然还认识我，明显的是已经对我有些生疏了，没有马上叫爸爸，因为毕竟才15个月大的孩子。看见她的第一眼，感觉孩子长的真快，又长高了不少，看起来像大孩子了。经过短时间的熟悉，她又认识了眼前的爸爸，开始跟我玩，真让人...阅读全文
（１）提高自身的思想道德修养，做子女的榜样。父母的一言一行，都会潜移默化地对孩子产生影响。要教育孩子具有“五爱”公德，家长自己就要努力成为这样的人。正如俄国伟大文学家托尔斯泰所说的：教育孩子的实质在于教育自己，而自我教育则是父母影响孩子最有力的方法。 （２）学习抚育、培养、教育子女的科学知识。...阅读全文
１、思想和道德方面的修养。父母是子女的第一任教师。现在的父母们都盼望自己的孩子成为国家的有用之才。而要实现这一愿望，家长必须加强自身的修养，时时处处以崇高的品德和情操创造自己的家庭风气，身体力行，做孩子们的表率。[1] ２、文化科学知识方面的修养。这不仅是为了回答孩子越来越多的“为什么”，帮助...阅读全文
１、父母要认定教育子女是夫妻共同负起的责任。要有无私性、坚持性和长期性。不是只是母亲或只是父亲的责任，不要对子女漠不关心，听之任之或很少管教。[1] ２、要为子女设计未来。设计得好，子女受益一生。为子女设计未来时，要恰当估计子女的能力，不要估计过高，也不可估计过低；不要期望过高和过分的要求，更...阅读全文