請問我要如何將系統時間改掉,最好連Kylix都能使用,也就是不用windows 或 shellapi

WINDOWS下是使用 SetSystemTime, Kylix 的話就不清楚了 

參考: http://groups.google.com.tw/groups?hl=zh-TW&lr=&ie=UTF-8&inlang=zh-TW&th=370480f95bda3c76&rnum=2 需注意的是, 在 linux 底下須為 root 才能更改系統時間

Function AcertarHora( Hora:TDateTime ):Boolean;
Var
   {$IFDEF WIN32}
   SystemTime:TSystemTime;
   {$ELSE}
   UnixTime: TUnixTime;
   tv: TTimeVal;
   tzone: TTimeZone;
   Y,M,D,Hour, Min, Sec, MSec:Word;
   {$ENDIF}
Begin
   {$IFDEF WIN32}
   DateTimeToSystemTime( Hora, SystemTime );
   Result:=SetLocalTime( SystemTime );
   {$ELSE}
   DecodeDate( Now, Y, M, D );
   DecodeTime( Hora, Hour, Min, Sec, MSec );       UnixTime.tm_hour := Hour;   // hours
   UnixTime.tm_min  := Min;   // minutes
   UnixTime.tm_sec  := Sec;   // seconds
   UnixTime.tm_year :=Y-1900; // Years since 1900 (0=1900).
   UnixTime.tm_mon  :=M-1;   // Jan = 0, Dez = 11
   UnixTime.tm_mday :=D;   // Day of month       FillChar( tzone, sizeof(TTimeZone), 0 );
   tv.tv_sec := mktime(UnixTime);
   tv.tv_usec:=0;
   Result:=settimeofday(tv, tzone)=0;
   {$ENDIF}
End;

--- Everything I say is a lie.