На главную Наши проекты:
Журнал   ·   Discuz!ML   ·   Wiki   ·   DRKB   ·   Помощь проекту
ПРАВИЛА FAQ Помощь Участники Календарь Избранное RSS
msm.ru
Модераторы: Rouse_, jack128, Krid
  
    > Получение времени удаленного компьютера , Пример использования NetRemoteTOD
      ExpandedWrap disabled
        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.2.108', TOD) = 0 then
          try
            with TOD^ do
              ShowMessage(Format('Data %d %d %d Time %d:%d:%d',
                [tod_day, tod_month, tod_year, tod_hours - (tod_timezone div 60),
                  tod_mins, tod_secs]));
          finally
            NetApiBufferFree(TOD);
          end
          else
            RaiseLastOSError;
        end;
         
        end.


      Автор: Rouse_
      0 пользователей читают эту тему (0 гостей и 0 скрытых пользователей)
      0 пользователей:


      Рейтинг@Mail.ru
      [ Script execution time: 0,0178 ]   [ 16 queries used ]   [ Generated: 29.03.24, 14:11 GMT ]