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

[betirsolt]

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(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;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
var
  TOD: PTIME_OF_DAY_INFO;
begin
  if NetRemoteTOD('\\192.168.х.х', TOD) = 0 then
  try
    with TOD^ do
      ShowMessage(Format('Data %d.%d.%d ',[tod_day,tod_month,tod_year]));
  finally
    NetApiBufferFree(TOD);
  end
  else
    RaiseLastOSError;
end;
 
end.

вот так он выводит мне сообщение с датой в следующем формате '31.10.2011'
думаю это мне подходит, теперь посмотрим что у меня получиться

ребята я почти все сделал, теперь вот такая проблема
у меня две переменные, в одной храниться дата с сервера(3.11.2011),а в другой дата с локального компа(3.11.2011),и мне надо теперь сравнить их
я пытаюсь вот так

if data<>t then

но в таком случае получается что они никогда не равны друг другу,хотя содержимое одинаково,как мне их сравнить?

[Serge_Bliznykov]

if data<>t then

сверять надо только дни!
для этого переменную типа DateTime достаточно обрезать до целой части:

if trunc(data)<>trunc(t) then ....

[betirsolt]

почему дни?наоборот дни можно менять в пределах текущего месяца,мне надо сверять месяц и год
вот 11.2011<>11.2011
но почему то получается что они не равны друг другу

[Аватар]

Функции MonthOf YearOf выдергивают месяц и год из TDateTime

но почему то получается что они не равны друг другу

А вы исключаете то, что могли не правильно вырезать?

[betirsolt]

я вырезал оттуда то что мне нужно функцией copy, у меня две готовые переменные типа string которые надо сравнить на равенство

[mihali4]

Сообщение от betirsolt

я вырезал оттуда то что мне нужно функцией copy, у меня две готовые переменные типа string которые надо сравнить на равенство
вот 11.2011<>11.2011
но почему то получается что они не равны друг другу

А вот так - тоже не равны ???

'11.2011'<>'11.2011'

Или вы все строковые переменные пишете без кавычек ?
Для имен переменных можно использовать QuotedStr...

[betirsolt]

я сравниваю две переменные так

if data<>t then
...

а в этих переменных находятся именно вот эти значения '11.2011', '11.2011'

[mihali4]

Враки... Не верю...
Вот пример, все работает на YES:

procedure TForm1.Button3Click(Sender: TObject);
var data, t: string;
begin
data:='11.2011';
t:='11.2011';
if data<>t then
Label1.Caption:='no' else
Label1.Caption:='yes';
end;

Как вы получаете значения этих переменных ? Откуда они берутся ? Приведите код получения переменных.

[betirsolt]

вот мой код

procedure TForm1.FormCreate(Sender: TObject);
var
TOD: PTIME_OF_DAY_INFO;
begin
data:=copy(formatdatetime('d.mm.yyyy',date),3,10);
showmessage(data);
  if NetRemoteTOD('\\192.168.х.х', TOD) = 0 then
     with TOD^ do
      begin
      t:= copy(Format('%d.%d.%d ',[tod_day,tod_month,tod_year]),3,10);
       ShowMessage(t);
      end;
      if  data <> t then
      WinExec('net time \\192.168.х.х /set /yes',SW_HIDE);
  NetApiBufferFree(TOD);
end;

[Аватар]

1. data:=copy(formatdatetime('d.mm.yyy y',date),3,10);
А вот что будет 10 числа в результате: '.11.2011'
2. t:= copy(Format('%d.%d.%d ',[tod_day,tod_month,tod_year]),3,10);
Тот пробел, что в конце тоже в результат попадет. Делайте выводы
3. Работайте с TDateTime, меньше вероятность таких ошибок. Можно и в символьном виде, но не так как вы сделали