Tamanho do aplicativo

Delphi

06/03/2003

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.


Ilanocf

Ilanocf

Curtidas 0

Respostas

Eniorm

Eniorm

06/03/2003

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]


GOSTEI 0
Anonymous

Anonymous

06/03/2003

Olá Enio Marconcini,

Não deu certo! Deu erro na linha:
tam := FileSize(Application.ExeName);

Como faço para corrigir isso?

Grato,

Ilano


GOSTEI 0
Eniorm

Eniorm

06/03/2003

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!


GOSTEI 0
POSTAR