Получение времени удаленного компьютера, Пример использования NetRemoteTOD

Previous  Top  Next

    
 

 

 

Code:

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.

 

 
Взято из http://forum.sources.ru

Автор: Rouse_
 

 
©Drkb::03325