Q&A

  • 파일 날짜 가져오기
function TForm1.GetFileLastWriteTime( sFileName : string ) : TDateTime;
var
ffd : TWin32FindData;
dft : DWord;
lft : TFileTime;
h : THandle;
begin
h := Windows.FindFirstFile(PChar(sFileName), ffd);
if(INVALID_HANDLE_VALUE <> h)then
begin
  Windows.FindClose( h );
  FileTimeToLocalFileTime(ffd.ftLastWriteTime, lft );
  FileTimeToDosDateTime(lft, LongRec(dft).Hi, LongRec(dft).Lo);
  Result := FileDateToDateTime(dft);
end;
end;                

procedure TForm1.Button3Click(Sender: TObject);
begin
showmessage('My Pc - '+ datetimetostr(getfilelastwritetime('d:\파일명'))+#13+
            'Server - '+ datetimetostr(getfilelastwritetime('\\192.0.0.0\파일명')));
end;

sever와 client의 실행파일의 수정일자를 비교 하고자 하는데요
win98이상은 정상적으로 서버와 pc의 날짜를 가지고 오는데
win95에서는 못가지고 오네요!
win95는 뭐가 다른가요?
0  COMMENTS