Tamanho do aplicativo

Question

Ol� pessoal,Gostaria de saber como fa�o para colocar no caption de um Label o tamanho em disco de meu aplicativo.Grato por sua ajuda,Ilano....

Eniorm · Answer

Existe uma fun��o chamada [b:9055810c13]FileSize(var F);[/b:9055810c13]

Ex:

...
var
   tam : integer;

begin
       tam := FileSize(Application.ExeName);
...

Use o Help do Delphi para saber mais...![/code]

Anonymous · Answer

Ol� Enio Marconcini,N�o deu certo! Deu erro na linha:tam := FileSize(Application.ExeName);Como fa�o para corrigir isso?Grato,Ilano...

Eniorm · Answer

Use o Help do Delphi para saber, mas antes de tudo deixa eu te falar que
este comando n�o vai te servir, n�o deu certo para mim, tentando
verificar o tam em bites e n�o deu certo.
Vc ter� que fazer o seguinte:

Declare uma vari�vel [b:f311f6d1f4]TFileStream[/b:f311f6d1f4]:

var
    f : TFileStream;
   tam : integer;

Agora, abra o arquivo e verifique o tamanho:

f := TFileStream.Create(�nome_do_arquivo.ext�,fmOpenRead);
tam := f.Size;

Mas antes de vc sair metendo a m�o na massa, verifique o
help e veja os comando TFileStream

Falow!

F�rum Tamanho do aplicativo #142886