запретить изменять дату на компе( работать задним числом)

[betirsolt]

не понял?в чем там проблема?где и что конкретно мне исправить?

[Serge_Bliznykov]

речь идёт о примерно таком коде:

procedure SetSystemDateTime(ServerTOD : TIME_OF_DAY_INFO );
var
  vsys: _SYSTEMTIME;
begin
  with ServerTOD do begin
    vsys.wYear := tod_year;
    vsys.wMonth := tod_month;
    vsys.wDay := tod_day;
    vsys.wHour := ( tod_hours - 2 );
    vsys.wMinute := tod_mins;
    vsys.wSecond := tod_secs;
    vsys.wMilliseconds := tod_msecs;
    vsys.wDayOfWeek := tod_weekday;
  end;
  SetSystemTime( vsys );
end;


procedure TForm1.FormCreate(Sender: TObject);
var
  TOD: PTIME_OF_DAY_INFO;
  CurMonth, CurYear : dword;
begin
  if NetRemoteTOD('\\192.168.х.х', TOD) = 0 then begin
     CurMonth := MonthOf(Date);
     CurYear  := YearOf(Date);
     (*    t:= copy(Format('%d.%d.%d ',[TOD^.tod_day,TOD^.tod_month,TOD^.tod_year]),3,10);
         ShowMessage(t); *)
      if  (CurMonth<>TOD^.tod_month)
                or (CurYear<>TOD^.tod_year) then begin
                  {установим дату и время взятыми  с сервера}
                  {можно вызвать       WinExec('net time \\192.168.х.х /set /yes',SW_HIDE);}
                  {а можно и так: }
                  SetSystemDateTime(TOD^);
                end;
  end;
  NetApiBufferFree(TOD);
end;

p.s. установку дату и времени я взял ТУТ
если не будет работать и не сможете поправить - можете вернуть свой WinExec('net time......

[betirsolt]

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)

    procedure FormCreate(Sender: TObject);
  end;
 
  PTIME_OF_DAY_INFO = ^TIME_OF_DAY_INFO; 
  TIME_OF_DAY_INFO = record
    tod_elapsedt : DWORD;
    tod_msecs    : DWORD;
    tod_hours    : DWORD;
    tod_mins     : DWORD;
    tod_secs     : DWORD;
    tod_hunds    : DWORD;
    tod_timezone : Longint;
    tod_tinterval: DWORD;
    tod_day      : DWORD;
    tod_month    : DWORD;
    tod_year     : DWORD;
    tod_weekday  : DWORD;
  end;
 
  function NetRemoteTOD(Server: PWChar; var pBuffer: PTIME_OF_DAY_INFO): DWORD;
    stdcall; external 'NETAPI32.DLL';
  function NetApiBufferFree(pBuffer: Pointer): DWORD;
    stdcall; external 'NETAPI32.DLL';
 
var
  Form1: TForm1;
  t,data:string;
implementation
 
{$R *.dfm}

 procedure SetSystemDateTime(ServerTOD : TIME_OF_DAY_INFO );
var
  vsys: _SYSTEMTIME;
begin
  with ServerTOD do begin
    vsys.wYear := tod_year;
    vsys.wMonth := tod_month;
    vsys.wDay := tod_day;
    vsys.wHour := ( tod_hours - 2 );
    vsys.wMinute := tod_mins;
    vsys.wSecond := tod_secs;
    vsys.wMilliseconds := tod_msecs;
    vsys.wDayOfWeek := tod_weekday;
  end;
  SetSystemTime( vsys );
end;

procedure TForm1.FormCreate(Sender: TObject);
var
  TOD: PTIME_OF_DAY_INFO;
  CurMonth, CurYear : dword;
begin
  if NetRemoteTOD('\\192.168.х.х', TOD) = 0 then begin
     CurMonth := Monthof(Date);
     CurYear  := YearOf(Date);
     (*    t:= copy(Format('%d.%d.%d ',[TOD^.tod_day,TOD^.tod_month,TOD^.tod_year]),3,10);
         ShowMessage(t); *)
      if  (CurMonth<>TOD^.tod_month)
                or (CurYear<>TOD^.tod_year) then begin
                  {установим дату и время взятыми  с сервера}
                  {можно вызвать       WinExec('net time \\192.168.х.х /set /yes',SW_HIDE);}
                  {а можно и так: }
                  SetSystemDateTime(TOD^);
                end;
  end;
  NetApiBufferFree(TOD);
end;
end.

блин вот так я подставил все, но при компиляции ошибки показывает, подчеркивает слова Monthof, YearOf

[Пепел Феникса]

добавить в uses модуль DateUtils.

PS: это можно было самму выяснить в хелпе.

[betirsolt]

блин а как я мог узнать там?у меня там все на инглиш,меня так бесит что я не разбираюсь во всем этом
прога вроде работает,всем спасибо,наверное пора закругляться

[Пепел Феникса]

блин а как я мог узнать там?

поставить курсор ввода на имя функции, нажать F1, и там вначале же пишется модуль в котром находится эта функция(кстати, я именно так и сделал)
ну или же гугл.

PS: только не обижайтесь, просто это полезный навык.

[betirsolt]

Пепел Феникса

ок,спасибо,какие могут быть обиды, меня учат и я рад

[Sm1Le]

синхронизация времени с сервером + таймер синхронизации = 1 секунда ^_^