Visualizar o tamanho de arquivo acima de 1GB
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 ???
Já utilizei quase todas as rotinas do forum mais aparecer o valor sempre negativo para arquivos acima de 1GB, alguém pode me ajudar ???
Orismar
Curtidas 0
Respostas
Crash
27/09/2005
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.
o valor maximo de int64 eh -9223372036854775807 a 9223372036854775807. Possivelmente vai dar.
ja que gb sao no maximo 12 digitos.
GOSTEI 0
Orismar
27/09/2005
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;
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;
GOSTEI 0