在工程文件中Application.Run语句之前加入下面语句

开发技术指南» 文章正文

引言：在工程文件中Application.Run语句之前加入下面语句

摘要： //////////////////////////////// excel 的一个宏 ///////////////////////////////////sub setpageinfo(byval regdatestr as string) dim i, maxrow as integer 取得最大行 maxrow range("a1").select activecell.specia......

·教你如何用delphi注册快捷方式 »显示摘要«

摘要：　　这里我们用到了com对象，我要解释一下。com(compent object model)其实是microsoft提出的组件标准，它定义了组件和应用程序之间进行通信的标准，同时提供了组件程序运行时所需要的环境。这是书上讲的，现在我用口头语客串几句。com可以用不同的语言编可以实现通信的效果，可以把它们看成一些二进制的可执行程序。下面就是注册快捷方式： ......

关于时间函数
上一页 ...

var mydate : tdatetime; tmpstr : string; tmpint : integer;

begin 【程序编程相关:利用Delphi中的画布画树】

【推荐阅读:DELPHI中动态获得SQLSERVER】

mydate := strtodatetime(2003-12-01); 【扩展信息:Pascal精要笔记】

tmpstr := formatdatetime(yyyy mmmm,mydate);

tmpint := daysinmonth(mydate);

showmessage(tmpstr + 有 + inttostr(tmpint) + ìì);

end;

改变系统时间

　　1.定义变量

var systemtime: tsystemtime;

　　2.转换日期

datetimetosystemtime(strtodatetime(1999-09-01 11:12:12 ),systemtime);

　　3.改变系统日期

setsystemtime(systemtime);

　　到此系统日期已经改变,可是由于api函数setsystemtime()本身存在的bug,

在你改变系统日期以后,等待一会,你会看到系统的日期是对的,可是时间却错了,

并不是我们设定的11:12:12,这样的问题看来需要微软才能解决了

///////////////////// 方法二 /////////////////////////

{ setdate sets the current date in the operating system. valid }

{ parameter ranges are: year 1980-2099, month 1-12 and day }

{ 1-31. if the date is not valid, the function call is ignored. }

... 下一页

·甘特图排程组件开发(tsygunter) »显示摘要«

摘要：甘特图在project2000中,很是好用,可是我想在项目开发中还要买了ms的project2000的版权? 所以索性自己开发一套相关的组件. ......

» 本期热门文章：

· 热门栏目：

» 相关精选文章

» 其它相关：