Q&Aスレ＠（´д｀）

■Q&Aスレ＠（´д｀）

247:｀）ノ:2007/06/10(日) 05:05:38 ID:???
これでミリ秒取得出来てる感じだけど、どうだろう？

type
　TSystemTime = record
　　wYear: Word;
　　wMonth: Word;
　　wDayOfWeek: Word;
　　wDay: Word;
　　wHour: Word;
　　wMinute: Word;
　　wSecond: Word;
　　wMilliseconds: Word;
　end;

procedure GetLocalTime(var lpSystemTime: TSystemTime); external 'GetLocalTime@kernel32.dll stdcall';

function GetSysTime: TSystemTime;
begin
　GetLocalTime(Result);
end;

var
　s: string;
　tim: TSystemTime;

begin
　tim:= GetSysTime;
　s:= inttostr(tim.wHour) +':'
　　 +inttostr(tim.wMinute) +':'
　　 +inttostr(tim.wSecond) +':'
　　 +inttostr(tim.wMilliseconds);

　MessageBox( s, 'ミリ秒取得テスト', 0);
end.

1:1- 2:▲ 3:新
4:前 5:書 6:次
7:写 8:▼ 9:板

Rainboard