Получение времени удаленного компьютера, Пример использования 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