Win7 /8/2008下特定文件 tfilestream 获取文件大小异常！
var
a:tfilestream;
sr: TSearchRec;
begin
a:=tfilestream.Create('c:\windows\regedit.exe',fmOpenRead);
caption:=inttostr(a.Size);
a.Free;
if FindFirst('c:\windows\regedit.exe', faanyFile, sr) = 0 then
begin
caption:=caption+'----'+inttostr(sr.Size);
FindClose(sr);
end;
end;
难道只是我遇到吗~
[解决办法]
是不是权限不够 用管理员权限运行试试
[解决办法]
你用GetLastError看看错误码再找错误信息呗,失败都会有错误码的
