Problem converting for Delphi code for dealing with 64bit file dates

[vfclists]

This is a follow up to http://forum.lazarus.freepascal.org/index.php/topic,8902.0.html.

The TULargeInteger used by Lazarus does not appear to support the record members for the LowPart and HighPart. What are the Lazarus equivalents?

Code: [Select]

function TVersionInfo.GetFileDate: int64;
var
  LargeInteger: TULargeInteger;
begin
  if (Valid) and (FFileInfo <> nil) then
  begin
    LargeInteger.LowPart := FFileInfo.dwFileDateLS;
    LargeInteger.HighPart := FFileInfo.dwFileDateMS;
    Result := LargeInteger.QuadPart;
  end else
    Result := 0;
end;
   

[marcov]

(I don't see the relation to the other report?)

Anyway, it is hard to reproduce without a complete compilable program (preferably a simple console app without lazarus dependancies) to reproduce.

[vfclists]

It is another part of the same unit and  I have attached the project here.
I haven't gotten round to doing console only apps yet, the form is the application default form.

(I don't see the relation to the other report?)

Anyway, it is hard to reproduce without a complete compilable program (preferably a simple console app without lazarus dependancies) to reproduce.

[marcov]

(T)ULARGE_INTEGER has been changed to the native 64-bit type QWORD  (unsigned 64-bit). I assume to fix a different kind of usage in headers. (but it is there since SVN rev 1).

"LARGE_INTEGER" still works with lowpart and highpart.