Q&A

  • GMT시간을 가져왔는데...
GMT시간을 가져와서 실행파일 날짜비교을 해서 일주일만 사용하게끔 할려고하는데
내컴의 시간 형식이 다르면 비교할 수 없나요?
글구 우리나라랑 다른나라에서 시간비교할려고 하는데...
이게 제대로 되는지.......

function TForm1.fCurgmt: TDateTime;
var
  TimeRec: TSystemTime;
begin
  GetSystemTime(TimeRec);
  Result := SystemTimeToDateTime(TimeRec);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  sGmt : string;
  sFDate, sDate : string;
  FileDate : TDateTime;
begin
  sGmt := DateTimeToStr(fCurgmt);
  showmessage(sGmt);

  FileDate := FileDateToDateTime(FileAge('C:My Documentsaa.exe'));
  sFDate := FormatDateTime('yy-mm-dd  HH:MMAM/PM', FileDate);
  showmessage(sFDate);
//  그다음에 GMT시간과 실행파일 시간을 비교한다..
//  실행파일이 시간이 GMT 시간보다 일주일 이상 크면 실행못한다..
//  근데 시간형식이 울 나라랑 다른나라랑 컴이랑 다른수도 있지 않나요?
???????????

end;


한마디로 요약하면 어느컴이나 어느나라에서나 aa.exe(이 실행파일 이름)가 GMT시간보다 일주일 이상크면 실행안되게끔 할려고 하는데..
메세지 뿌려보니까 제컴에서 03-06-12 오전 09....이런식으로 나오던데...
0  COMMENTS