换掉任务栏时钟如hh:mm:ss的形式(100分)

  • 主题发起人 主题发起人 weitm
  • 开始时间 开始时间
W

weitm

Unregistered / Unconfirmed
GUEST, unregistred user!
如何通过编制程序实现替换掉Windows任务栏中的时钟形如hh:mm:ss的形式?
 
先用winsight32找到它的窗口名字,findwindowsex找到句柄,
然后,用setwindowlong。。。
 
可以通过注册表来改
打开HKEY_CURRENT_USER/ControlPanel/International分支,在右窗格的空白处右击鼠标,
从弹出的快捷菜单中选择“字符串值”,然后将“新值#1”修改为“sTimeFormat”,双击
“sTimeFormat”,然后在对话框中将其键值修改为你希望的格式,如“HHMM”。
 
诸位,我问的是如何编程实现呀,麻烦写一点儿代码!
 
对,控制面板都是改注册表的
 
编程改注册表来
(from 教父)

use registry

...
 
我把注册表的值都给你了,你自己写几句代码把它改了就是嘛,不要太懒了。 :)
 
hh:mm:ss字符串形式是可以改,但任务栏时间格式还是没有出现秒数。?
 
还是修改注册表吧。
在 HKEY_CURRENT_USER/ControlPanel/International 
下面,是关于注册表的读写操作:

procedure TF_cshcssz.SpeedButton1Click(Sender: TObject);
var
reg:Tregistry;
begin
//////////////////////////////
Reg:=TRegistry.Create;
reg.RootKey:=HKEY_LOCAL_MACHINE;
if Reg.OpenKey('/Software/QHMIS',False) then//如果已经存在键值
begin
Reg.WriteString('ODBC别名',combobox1.text);
Reg.WriteString('数据库用户名',edit1.text);
Reg.WriteString('数据库密码',maskedit1.text);
end
else//如果不存在,就新增一个
begin
Reg.CreateKey('/Software/QHMIS');
Reg.OpenKey('/Software/QHMIS',False);
Reg.WriteString('ODBC别名',combobox1.text);
Reg.WriteString('数据库用户名',edit1.text);
Reg.WriteString('数据库密码',maskedit1.text);
end;
//////////////////////////
 
多人接受答案了。
 
后退
顶部