A:
{ Borland
function FindFirst(const Path: string; Attr: Integer;
var F: TSearchRec): Integer;
const
faSpecial = faHidden or faSysFile or faVolumeID or faDirectory;
{$IFDEF MSWINDOWS}
begin
F.ExcludeAttr := not Attr and faSpecial;
F.FindHandle := FindFirstFile(PChar(Path), F.FindData);
if F.FindHandle <> INVALID_HANDLE_VALUE then
begin
Result := FindMatchingFile(F);
if Result <> 0 then FindClose(F);
end else
Result := GetLastError;
end;
}
function MyGetFileSize(Filename : String) : Integer;
var
SearchRecA : TSearchRec;
StartTime, EndTime: integer;
begin
StartTime:=GetTickCount;
if Sysutils.FindFirst(Filename, faAnyFile, SearchRecA) = 0 then
begin
Result:= SearchRecA.Size;
Sysutils.FindClose(SearchRecA);
end else Result:=0;
EndTime:=GetTickCount;
showmessage('文件大小是: ' + Inttostr(Result) + '总共花了'+ Inttostr(EndTime-StartTime)+'ms');
end;
B:
function MyGetFileSizeA(Filename :PChar) : Integer;
var
SearchRecA : TSearchRec;
StartTime, EndTime: integer;
fhadle : THANDLE;
begin
StartTime:=GetTickCount;
fhadle := CreateFile(Filename, //文件名或路径
0,
0,
0,
OPEN_EXISTING, //文件存在则打开并读取
0,
0);
Result := GetFileSize(fhadle, 0);
EndTime:=GetTickCount;
showmessage('文件大小是: ' + Inttostr(Result) + '总共花了'+ Inttostr(EndTime-StartTime)+'ms');
end;
结果都不能分出谁快, 用谁好?
请大家指点下!!!
[课程]Android-CTF解题方法汇总!