怎样获取系统时间？(100分)

K

kuangwenwei

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-03

• #1

用Delphi编Dos应用程序怎样获取系统时间?

 

E

eric.youbin

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-03

• #2

now

 

Y

yzhshi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-03

• #3

now不可以吗？应该可以的。
它的实体在SysUtils里面，你说的Dos程序就是所谓的控制台程序吧？我实验了，行的。

 

K

kuangwenwei

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-03

• #4

怎么用?

 

Y

yzhshi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-03

• #5

设置TDateTime类型，然后将Now赋值就可以了。
要转换程字符串，如下：
uses
SysUtils,Dialogs;

begin
ShowMessage( FormatDateTime('yyyy-mm-dd hh:mm:ss',Now) );
end.

 

K

kuangwenwei

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-03

• #6

多谢！

 

K

kuangwenwei

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-03

• #7

再请教一个问题，怎样在一个文本文件中增加字符串(DOS程序)？

 

Y

yzhshi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-03

• #8

看一下这个例子，来自 Hubdog的葵花宝典
合并两个二进制文件。
Var
f1, f2 : File;
xfer : Word;
buf : PChar;
Begin
AssignFile(f1, name1);
Reset(f1);
Seek(f1, Filesize(f1));
AssignFile(f2, name2);
Reset(f2);
GetMem(buf, 65000);
Repeat
BlockRead(f1, buf^, 65000, xfer);
BlockWrite(f2, buf^, xfer);
Until xfer < 65000;
CloseFile(f1);
CloseFile(f2);
End;

 

K

kuangwenwei

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-03

• #9

多谢!!

 

K

kuangwenwei

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-03

• #10

至yzhshi：
formatdatetime在dos下不能运行