Filesize !!!

[Delphiturbo]

Hi

mit dem Code bekomme ich einen Wert für meine EXE-Grösse, weiß ich aber nicht die Einheit !

Delphi-Quellcode:

Size := strToInt(Get_File_Size(ParamStr(0),True));

ist das in bytes ?

[DeddyH]

Da ich Get_File_Size nicht kenne, denke ich mal, ja. Allerdings könntest Du das über den Windows-Explorer ja auch selbst nachprüfen ;)

[mkinzler]

Vermutlich. Woher stammt die Funktion? Villeicht gibt es auch ne Doku dazu.

[Flips]

Erstmal nehm ich stark an, dass du hier in der falschen Spart bist.
Zweitens kenne ich keine Get_File_Size Funktion
Drittens kenne ich nur GetFileSize, und dazu steht alles in der Delphi-Hilfe ;-)
[Edit]Viertens gibt es rote Kasten :lol: [/Edit]

[Delphiturbo]

Ihr habt Recht. Hier ist die Funktion :

Delphi-Quellcode:

function GetFileSize(FileName: String): Integer;
var
  FS: TFileStream;
begin
  try
    FS := TFileStream.Create(Filename, fmOpenRead);
  except
    Result := -1;
  end;
  if Result <> -1 then Result := FS.Size;
  FS.Free;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage(IntToStr(GetFileSize('c:\test.exe')));
end;

:mrgreen:

[mkinzler]

Zitat:

Zitat von Delphi Hilfe

Gibt die Größe des Streams in Byte an.

[Muetze1]

Naja, und die Funktion kann Zugriffsverletzungen produzieren, z.B. wenn die Datei nicht gefunden wird. Delphi sollte das wohl auch anmerken beim compilieren, da FS undefiniert sein kann. Und damit kann Free, da FS eine lokale Variable ist, eine AV verursachen.

[Delphiturbo]

Gibt es eine andere Funktion, die die Anwendung-Groesse ermittelt, ohne Angaben von Datei-Name ?
GetFileSize('c:\test.exe'));

[Muetze1]

Zitat:

Zitat von Delphiturbo

Gibt es eine andere Funktion, die die Anwendung-Groesse ermittelt, ohne Angaben von Datei-Name ?
GetFileSize('c:\test.exe'));

Wieso? Was stört dich denn am Dateinamen?

Ich vermute mal, da du nicht weisst, wo deine EXE liegt und wie sie vom Nutzer umbenannt wird?

Delphi-Quellcode:

GetFileSize(ParamStr(0));

[Delphiturbo]

Zitat:

Zitat von Muetze1

Ich vermute mal, da du nicht weisst, wo deine EXE liegt und wie sie vom Nutzer umbenannt wird?

Delphi-Quellcode:

GetFileSize(ParamStr(0));

Geht leider nicht !