【紧急求救】请问Delphi里如何设置整个程序进程（或者会话）的时间格式为长时间格式或者短格式？(100分)

2

2you2me

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-02-24

• #1

 

L

lich

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-02-24

• #2

在程序启动的第一行代码处写:

ShortDateFormat := LongDateFormat;

或者:

ShortDateFormat := 'yyyy-mm-dd';

 

2

2you2me

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-02-24

• #3

谢谢lich，请问你所说的程序启动的第一行是哪个位置呢？工程文件？

 

A

app2001

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-02-24

• #4

uses
Registry;
var
registry1: TRegistry;
begin
registry1:=tregistry.Create;
registry1.RootKey:=HKEY_CURRENT_USER;
registry1.OpenKey('Control Panel/International',true);
registry1.writestring('sShortDate','yyyy-MM-dd');
registry1.WriteString('sTimeFormat','HH:mm:ss');
registry1.CloseKey;
registry1.Free;
end;
我在工程文件中这样做来保证格式。

 

2

2you2me

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-02-24

• #5

谢谢二位，由于觉得直接修改操作系统的日期格式不太好，所以我接受第一个答案。
对两位的热心知道十分感谢！ []

 

L

lich

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-02-24

• #6

我是写在工程文件的第一行

其实写在哪里都是可以的,
设置后,会立即生效的