Sorry, got it now, needed to assign memory for ft1, ft2, ft3.
add:
new(ft1)
new(ft2)
new(ft3)
----- Original Message -----
From: "Dave" <[EMAIL PROTECTED]>
To: "Multiple recipients of list delphi" <[EMAIL PROTECTED]>
Sent: Monday, September 24, 2001 6:57 PM
Subject: [DUG]: OK, I giveup...
> Any ideas how to change the time/date of a file on disk? I am copying from
> one place to another, and want the time/date to remain the same as the
> original. I have been trying:
>
> var
> fh1, fh2: Cardinal;
> ft1, ft2, ft3: PFileTime;
>
>
> fh2 := CreateFile(PChar(Dest), GENERIC_WRITE, FILE_SHARE_READ, Nil,
> OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0) ;
> if fh2 <> INVALID_HANDLE_VALUE then
> begin
> fh1 := CreateFile(PChar(Source), GENERIC_READ, FILE_SHARE_READ, Nil,
> OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0) ;
> if fh1 <> INVALID_HANDLE_VALUE then
> if GetFileTime(fh1, ft1, ft2, ft3) then
> SetFileTime(fh2, ft1, ft2, ft3) ;
> CloseHandle(fh1) ;
> end ;
> CloseHandle(fh2) ;
>
> But It does nothing at all.
> I am using Blockread/write so I can show a progress bar. Some of the files
a
> very large.
>
> Cheers,
> Dave.
>
> --------------------------------------------------------------------------
-
> New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
> Website: http://www.delphi.org.nz
> To UnSub, send email to: [EMAIL PROTECTED]
> with body of "unsubscribe delphi"
> Web Archive at: http://www.mail-archive.com/delphi%40delphi.org.nz/
>
---------------------------------------------------------------------------
New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
Website: http://www.delphi.org.nz
To UnSub, send email to: [EMAIL PROTECTED]
with body of "unsubscribe delphi"
Web Archive at: http://www.mail-archive.com/delphi%40delphi.org.nz/
