Windows XP + ターボデルファイ
指定された期日までにクリックしないと実行されないファイルを作ろうとしています。
この時、ユーザがコンピュータの時計を細工したことを検出する方法を考えているのですが、いい考えが思いつきません。
ユーザプロファイルのファイルデートと比較する方法などを考えましたが、再起動されたらダメだな、ということで、何かいい方法はないでしょうか。
ちなみに、スタンドアロンマシンです。
>ユーザがコンピュータの時計を細工したことを検出する方法を考えているのですが
システム時刻が変更された時は WM_TIMECHANGEメッセージが BROADCASTされるので、それをひろえばＯＫ。
procedure TForm1.WndProc(var Msg: TMessage);
begin
inherited;
case Msg.Msg of
WM_TIMECHANGE: ShowMessage('システム時刻が変更されたよ');
end;
end;
でも、このプログラムが動いてなければ検知出来ないし、そもそもシステム時刻が狂ってたらなんにもならない。
なので、正確な時刻をネットから取得した方がいいと思う。
まずスタンドアロンで正しい時刻を知る術がないでしょうが
編集 削除皆さん、ありがとうございます。
>>にゃん さん
正しい時刻じゃなくてもいいんです。
例示したように、ntuser.datの更新日よりもパソコンの日付の方が新しい、つまり不自然なので、時計を細工した可能性がある、みたいな理屈で、時間の変更を検出できればいいのです。
と色々考えましたが、どうやらスタンドアロンマシンでは不可能なようですね。
＞時間の変更を検出できればいいのです。
手段と目的が入れ違ってるよ
やりたいことは「時間が変更されたことを知ること」じゃなくて、
「実行された時間が指定時刻より前かどうかを知ること」でしょ？
>>やりたいことは「時間が変更されたことを知ること」じゃなくて
>>「実行された時間が指定時刻より前かどうかを知ること」でしょ？
そうなんですが、ユーザが不正に時計を細工する場合、１分とか１０分とかの単位では細工しないだろうと。
通常は１日とか１年とかで細工をするだろうと。
対象は職場で日常的に使われているパソコンの利用者なので、大まかに正確な時刻に保たれているはず、という前提で、明らかに不自然な時刻であることを検出できればいいのです。
使用目的が理解できてないかもしれませんが、
レポートの提出が指定期日を遅れるとボタンが押せなくなる
という場合だと、C:\Windowsの全ファイルの中で一番新しい日時
より現在のパソコンの日時が古ければ時間が変更されていると
判断すると言う事ではどうでしょうか。
みなさんありがとうございます。TSさんの方法で何とかなりそうです。
助かりました。