Получение времени удаленного компьютера

Получение времени удаленного компьютера

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.

Эта запись была добавлена в Воскресенье, 18 мая, 2008 - 1:03 В разделы Операционная система, Сети, интернет. Вы можете подписаться на получение новых комментариев RSS 2.0 feed. Both comments and pings are currently closed.