DELPH中启动系统”日期和时间“用什么API?
解决方案 »
- 如何调用XP系统自带的屏幕键盘
- 请教:用indy的tcpclient读server的数据,超过一定时间没有收到数据,如何停止?
- Invalid Pointer operation,点击DLL中MDIChild窗体的菜单项后,引出的问题。 请高手分相助啊
- 如何制作大量文字带图片背景的窗口
- 一个关于规划的问题,比较着手,大家帮忙看一下!
- listvew简单操作
- AdoDataSet的缓存更新问题.
- 动态增加计算列?
- 在学习了2个月的delphi后,总结四大问题!
- 怎样清楚内存中的密码及其它记忆内容,呵呵?我又提问了,有高手请指教哟
- 音乐播放器,用Trackbar显示音乐进度?可怎样拖动Trackbar而改变音乐播放进度???
- 寻求一条插入SQL语句的写法
procedure TForm1.Timer1Timer(Sender: TObject);
var
DateTime : TDateTime;
str : string;
begin
DateTime := Time; // store the current date and time
str := TimeToStr(DateTime); // convert the time into a string
Caption := str; // display the time on the form's caption
{ Note This could have been done with the following line of code:
Caption := TimeToStr(Time); }
end;
ShellExcute就可以
winexec(PChar('rundll32.exe shell32.dll,Control_RunDLL timedate.cpl'),SW_SHOWNORMAL);