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는 뭐가 다른가요?