为什么用SetSystemTime函数设置系统时间会出错?怎么解决这个问题啊 为什么用SetSystemTime函数设置系统时间会出错?怎么解决这个问题啊 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 procedure TForm1.Button1Click(Sender: TObject);var T:SYSTEMTIME;begin GetLocalTime(T); T.wHour := 16; if SetLocalTime(T) then ShowMessage('OK');end; 设置当前系统时间 返回值 Long,非零表示成功,零表示失败。会设置GetLastError 参数表 参数 类型及说明 lpSystemTime SYSTEMTIME,这个结构指定了新的地方时间。其中的wDayOfWeek条目会被忽略 procedure TForm1.Button2Click(Sender: TObject);varsystemtime:Tsystemtime;DateTime:TDateTime;beginEdit1.Text:='2003-7-24 19:58:35';DateTime:=StrToDateTime(Edit1.text); //获得时间(TDateTime格式)DateTimeToSystemTime(DateTime,systemtime); //把Delphi的TDateTime格式转化为API的TSystemTime格式SetLocalTime(SystemTime); //设置系统时间GetLocalTime(SystemTime); //读取系统时间DateTime:=SystemTimeToDateTime(SystemTime); //把API的TSystemTime格式 转化为 Delphi的TDateTime格式Edit2.Text:=DateTimeToStr(DateTime); //显示当前系统的时间end;试试看,好象可以。 删除Access第一条数据 提供医院信息系统源代码、帖牌接单 简单问题---保存密码、自动登录等的实现 请问做DLL的时候,一般在什么情况下使用动态调用比较好,在什么情况下使用静态调用比较好? 如何设置quickreport中的QRExpr的folat类型的显示格式 如何让本地连接到远程的SQLSERVER服务器,在线等待 在线求助线程同步问题? 大家进来看看,有分 解一题,用程序写。 高分 新人求助!!没学过Delphi老师就让我们开发软件。 关于图片记录得读取 急,急,急:为什么我在调试一个程序的时候,它会跳到delphi的源文件中?
var
T:SYSTEMTIME;
begin
GetLocalTime(T);
T.wHour := 16;
if SetLocalTime(T) then
ShowMessage('OK');
end;
返回值
Long,非零表示成功,零表示失败。会设置GetLastError
参数表
参数 类型及说明
lpSystemTime SYSTEMTIME,这个结构指定了新的地方时间。其中的wDayOfWeek条目会被忽略
var
systemtime:Tsystemtime;
DateTime:TDateTime;
begin
Edit1.Text:='2003-7-24 19:58:35';
DateTime:=StrToDateTime(Edit1.text); //获得时间(TDateTime格式)
DateTimeToSystemTime(DateTime,systemtime); //把Delphi的TDateTime格式转化为API的TSystemTime格式
SetLocalTime(SystemTime); //设置系统时间
GetLocalTime(SystemTime); //读取系统时间
DateTime:=SystemTimeToDateTime(SystemTime); //把API的TSystemTime格式 转化为 Delphi的TDateTime格式
Edit2.Text:=DateTimeToStr(DateTime); //显示当前系统的时间
end;
试试看,好象可以。