Submit My Question - Recent Questions - Recent Answer
Msdn China Tech >> Delphi >> Windows SDK/API

delphi中调用api函数（参数匹配问题,急!）

BOOL SetSystemTime( CONST SYSTEMTIME *lpSystemTime // address ofsystem time to set
);
这个api函数中参数类型lpsystemtime在delphi中怎样匹配（）有没有相关的转换函数
其他api函数参数也可能存在这个问题吧，希望可以一并解决
谢谢先
[191 byte] By [ownyou-思想者......] at [2008-6-2]
«« 问一个很弱的问题: 用bde连access数据库,在用户的机器上是不是不用有access?
»» 我用vbs可以,为什么用javascript有问题?
# 1
定义一个_SYSTEMTIME类型的变量

typedef struct _SYSTEMTIME { // st
WORD wYear;
WORD wMonth;
WORD wDayOfWeek;
WORD wDay;
WORD wHour;
WORD wMinute;
WORD wSecond;
WORD wMilliseconds;
} SYSTEMTIME;

Members

wYear

Specifies the current year.

wMonth

Specifies the current month; January = 1, February = 2, and so on.

wDayOfWeek

Specifies the current day of the week; Sunday = 0, Monday = 1, and so on.

wDay

Specifies the current day of the month.

wHour

Specifies the current hour.

wMinute

Specifies the current minute.

wSecond

Specifies the current second.

wMilliseconds

Specifies the current millisecond
genphone_ru-哎，什么都要学，真累 at 2007-10-25 > top of Msdn China Tech,Delphi,Windows SDK/API...
# 2
procedure Modify_CurrentDate(Year,Month,Day:word);
var
TempSystemTime:systemTime;
begin
TempSystemTime.wYear:=Year;
TempSystemTime.wMonth:=Month;
TempSystemTime.wDay:=Day;
with TempSystemTime do
DecodeTime(Time,wHour,wMinute,wSecond,wmilliSeconds);
setsystemTime(Tempsystemtime);
end;
修改当前日期
修改当前时间也类似
jackystar-我 at 2007-10-25 > top of Msdn China Tech,Delphi,Windows SDK/API...
# 3
//==============================================================================
//修正日期、时间****************************************************************
//==============================================================================
procedure SetDateTime(DateTime: TDateTime);
var SystemTime: TSystemTime;
begin
DateTimeToSystemTime(DateTime,SystemTime);
SetLocalTime(SystemTime);
end;
quark-夸克 at 2007-10-25 > top of Msdn China Tech,Delphi,Windows SDK/API...
# 4
WINDOWS API函数基本上在DELPHI自带的WINDOWS.PAS中都有定义的，自己好好看看吧
jackystar-我 at 2007-10-25 > top of Msdn China Tech,Delphi,Windows SDK/API...
# 5
问题解决现在散分
ownyou-思想者...... at 2007-10-25 > top of Msdn China Tech,Delphi,Windows SDK/API...
Delphi
Windows SDK/API

Delphi Hot Topic

Delphi New Topic

Delphi

Java / MSDN / Linux Tech / PHP Tech / MSDN DotNet / MSDN TECH / Health Library / Programmers Tech / visual basic Tech / Developer Tech / Ipod faqs / Msdn China Tech

Site Classified