function GetFileSize(const FileName: String): Integer;
//ファイルサイズを取得
var
SR :TSearchRec;
begin
//ファイルサイズ取得
if FindFirst(FileName,faHidden or faArchive or faSysFile or faReadOnly ,SR) = 0 then
begin
Result := SR.Size;
FindClose(SR);
end
else
Result := 0;
end;