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....이런식으로 나오던데...