Синхронизация системного времени

← →
СержК (2004-03-29 14:01) [0]

Мастера подскажите.
Как синхронизировать системное время рабочей станции с сервером при запуске приложения?

← →
Романов Р.В. © (2004-03-29 14:11) [1]

На сервере запусти программу сервер времени. На рабочей станции - программу клиент. Клиента помести в автозагрузку. При запуске клиент устанавливает соединение с сервером и запрашивает время. Сервер сообщает свое время, клиент изменяет системное время на раб. станции и завершает работу.

← →
Cobalt © (2004-03-29 14:26) [2]

команда net time /?

← →
Ega23 © (2004-03-29 14:28) [3]

Есть такая программка ntp - network time protocol. выполняет синхронизацию времени машин в локальной сети.

← →
СержК (2004-03-29 14:31) [4]

На сервере что-то делать у меня нет прав. Пытаюсь сделать синхронизацию с помощью:
ShellExecute() и \\net time server /set /yes.
Ничего не получается - ругаться не ругается, но и не работает.
Синтаксис ShellExecute() нашел в самом общем виде. Может кто реальный примерчик подкинет.

← →
Романов Р.В. © (2004-03-29 14:41) [5]

procedure SetTime(const Srv: string);
function GetCmd: string;
var
Buffer: array[0..4095] of Char;
begin
SetString(Result, Buffer, GetEnvironmentVariable(PChar("ComSpec"), Buffer, SizeOf(Buffer)));
end;
begin
ShellExecute(GetDesktopWindow, nil, PChar(GetCmd),PChar("/C net time \\"+Srv+" /set /yes),nil, SW_HIDE)
end;

← →
СержК (2004-03-29 15:04) [6]

Если я правильно понял то это должно выглядеть так:

function GetCmd: string;
var
Buffer: array[0..4095] of Char;
begin
SetString(Result, Buffer, GetEnvironmentVariable(PChar("ComSpec"), Buffer, SizeOf(Buffer)));
end;

procedure SetTime(const Srv: string);
begin
ShellExecute(GetDesktopWindow, nil, PChar(GetCmd),PChar("/C net time \\"+Srv+" /set /yes),nil, SW_HIDE)
end;

Но при компиляции ругается:"Unterminated string". Что это?

после
" /set /yes
символ " забыл поставить.

Синхронизация системного времени Найти похожие ветки