haitao：
看了代码，原来上次已经用int64数组取代data了，但是还是有负数的字节数。。。。。
[阅读: 471] 2008-01-02 08:08:23
居然是findfirst/next的数据类型就是不支持2G以上的：
type
TSearchRec = record
Time: Integer;
Size: Integer; //不是int64！ 也没找到怎么组合得到int64。。。。。
Attr: Integer;
Name: TFileName;
ExcludeAttr: Integer;
FindHandle: THandle;
FindData: TWin32FindData;
end;
一搜，居然搜到pcplayer在本坛发过的贴子，我还回复过，全部忘了：
http://www.cndev.org/forum/msg.aspx?pid=294256
| -ICP -IDC -ISP |