易截截图软件、单文件、免安装、纯绿色、仅160KB

DELPHI不过期了...

      Delphi 2010只剩下六天的试用期了,15天的试用期过得真快.百度了很久也依旧未搜索到破解补丁,看来这版本的防盗版工作做得确实不错.无奈之下只好自己对它做做手脚了.
      测试了一下,delphi只有在启动程序的时候把时间记录给更新到当前日期,系统内并不驻留相应的监视进程,而且只针对日期而非时刻来判断.这样就很好办了.只要写一个自动修改系统时间的软件,让时间定格于2010-1-29日,这样DELPHI就可以永不过期了...而我也可以放心地下载他的更新补丁包了. 本来想把这程序扔到网上的,不过想想,能写代码的人这几行代码绝不是问题,无谓多此一举了...
     呵.不过用盗版终究不是好事,等哪天他把编译器降价到4位数我再购买吧...


相关文档:

delphi中的DBGRid鼠标滚动事件

Procedure OnMouseWheel(Var Msg :TMsg;var Handled:Boolean);
begin
  if Msg.message = WM_MouseWheel then
  begin
    if Msg.wParam > 0 then
     begin
       if DBGrid.Focused then
       ......

DELPHI 2007中使用ADO调用ORACLE有返回游标的存储过程


ADO 使用 ORACLE provider FOR  OLE DB 驱动时
调用存储过程需要返回游标时,在连接字符串中增加
PLSQLRSet=1 参数。
存储过程中的游标不需要付初始值
 
如:
  sp1: TADOStoredProc;
 
 
 sp1.Close;
 sp1.ProcedureName := 'pkg_ScanList_By_JobNo.sp_GetScanList';& ......

晕,delphi 7 有两个版本的 SelectDirectory

以前用过delphi 2007的这个函数的,参数超多,现在的公司用D7,结果网上一查这个函数,用不成了,原来我用错了函数
unit QDialogs;
{$IFDEF LINUX}
function SelectDirectory(const Caption, Root: WideString;
  var Directory: WideString; ShowHidden: Boolean = False): Boolean;
{$ENDIF}
{$IFDEF MSWINDOW ......

Delphi中实现全角转半角

Delphi中实现全角转半角
function SbctoDbc(s:string):string;
var
 
nlength,i:integer;
  str,ctmp,c1,c2:string;
 
{
 在windows中,中文和全角字符都占两个字节,
 并且使用了ascii chart  2 
(codes  128 - 255
)。
全角字符的第一个字节总是 ......

Delphi的内置函数操作INI文件

利用Windows API函数WritePrivateProfileString
和GetPrivateProfileString可对.INI文件进行读写操作。其实,对.INI文件的读写完全可以利用Delphi的内置函数来实
现。下面就介绍一些对.INI文件读写时相关的类及其属性方法。
1、TIniFile对象
以Delphi中,定义了一个TIniFile对象,将.INI文件封装在其中,并提供一些方法 ......
© 2009 ej38.com All Rights Reserved. 关于E健网联系我们 | 站点地图 | 赣ICP备09004571号