能否用API实现

[wonjin]

在Delphi中如何得到一个文件夹的大小，是否用API实现，应如何实现？
谢谢！！

[Past]

好像没有这样的API，自己编吧

[shadows]

应该有吧

[kinglion]

几乎所有的功能都能用啊API实现，要不只有自己协汇编程序了。你自己查查吧。

[bluetooth_2001]

不需要

========
procedure TForm1.Button1Click(Sender: TObject);

var
f: file of Byte;
size: Longint;
S: string;
y: Integer;
begin
if OpenDialog1.Execute then
begin
AssignFile(f, OpenDialog1.FileName);
Reset(f);
try
size := FileSize(f);
S := 'File size in bytes: ' + IntToStr(size);
y := 10;
Canvas.TextOut(5, y, S);
y := y + Canvas.TextHeight(S) + 5;
S := 'Seeking halfway into file...';
Canvas.TextOut(5, y, S);

y := y + Canvas.TextHeight(S) + 5;
Seek(f, size div 2);
S := 'Position is now ' + IntToStr(FilePos(f));
Canvas.TextOut(5, y, S);
finally
CloseFile(f);
end;
end;
=================