Win2000サーバとの時刻同期

解決

ぴか 2003-12-12 20:15:53 No: 6128

はじめまして。
Delphiプログラミングを楽しみだして10日目に入りました！
ぴかと申します。よろしくお願いします。<(_ _)>

Win2000サーバとの時刻同期はどの様にコーディングしたらよろしいでしょうか。

今までDOSコマンド(Net Time \\192.168.0.1 /Set /Y)で行って
来ましたが、これをDelphiでプログラムを作ろうと考えています。
ググって調べていますが、有料コンポーネットは見つかりましたが、
自分で書いていきたいので・・・。

ご教示、よろしくお願いいたします。

ぴか 2003-12-12 20:24:56 No: 6129

SetLocalTime(tmpSystemTime) にて、ローカルＰＣの時刻を変更できるようですね。
あとはサーバから時刻を手に入れてこれれば良いですよね・・・。

う〜ん、山は高い・・・。

もっと簡単にできる方法とか無いのかしらん

ぴか 2003-12-12 21:09:20 No: 6130

WinExec を使うと DOS コマンドでも何でも起動できるんですね！

WinExec('command.com /c net time \\コンピュータ名 /SET /YES',
SW_SHOWMINNOACTIVE);