dosya boyutu öğrenme

[Jire]

tekrardan merhaba.başlıkta yazdığı gibi.dosyanın byte cinsinden boyutunu nasıl öğrenebilirim?

[Battosai]

Kod: Tümünü seç

function DOSYABOYUTU(DOSYAADI: String): string;
var
  dSize: Integer;
  dFile: THandle;
  strSize: String;
begin
  dFile := CreateFile (PChar (DOSYAADI),0, FILE_SHARE_READ, nil, OPEN_EXISTING, 0, 0);
  dSize := GetFileSize (dFile, nil);
  CloseHandle (dFile);

  if (dsize div 1024) > 0 then
    begin
      strSize := ' Kb';
      dsize := dsize div 1024;
    end;
  if (dsize div 1024) > 0 then
    begin
      strSize := ' Mb';
      dsize := dsize div 1024;
    end;
  if (dsize div 1024) > 0 then
    begin
      strSize := ' Gb';
      dsize := dsize div 1024;
    end;

if dsize = -1 then
RESULT := 'Geçersiz Dosya'
else
RESULT := floattostr(dsize) + strsize
end;

// Kullanımı (Mesela Bir Button'un Onclick Olayında)
procedure TForm1.Button1Click(Sender: TObject);
begin
label1.Caption := DOSYABOYUTU('c:\windows\notepad.exe');
end;

DelphiTürk kodbank'tan alıntıdır...

[ikutluay]

viewtopic.php?t=21492

bu konuda baya bir kod var sitede.