Visualizar o tamanho de arquivo acima de 1GB

Question

Como fa�o para visualizar o tamanho do arquivo do windows em um programa delphi, sendo que o arquivo tem o seu tamanho acima de 1 GB.
J� utilizei quase todas as rotinas do forum mais aparecer o valor sempre negativo para arquivos acima de 1GB, algu�m pode me ajudar ???

Crash · Answer

tente usar uma variavel do tipo Int64 para armazenar o valor.o valor maximo de int64 eh -9223372036854775807 a 9223372036854775807. Possivelmente vai dar.ja que gb sao no maximo 12 digitos....

Orismar · Answer

Crash, utilizei a variavel mais o valor retornado ainda n�o est� correto, o tamanho do arquivo no windows � de 5.320.159 KB e com a rotina abaixo aparece o tamanho de 1.125.854 KB.

var
nSize:Int64;
nFile:Thandle;
begin
nFile:=CreateFile(�e:\backup.bak�,0,File_Share_WRITE,nil,OPEN_EXISTING,0,0);
nSize:=Round(GetFileSize(nFile,nil)/1024);
CloseHandle(nFile);
MessageBox(0,PChar(�Arquivo de Log.....�+IntToStr(nSize)+� KB�),�Tamanho do arquivo�,MB_OK);
end;

F�rum Visualizar o tamanho de arquivo acima de 1GB #297280