金
金少
Unregistered / Unconfirmed
GUEST, unregistred user!
想请教怎样程序知道媒体文件的大小(如.C:/1.wav);
function FSize(FileName: string): LongInt;
var
F: file;
begin
AssignFile(F, FileName);
reset(F, 1);
Result := FileSize(F);
CloseFile(F);
end;
用这个函数出现I/O Error 32
请高手指教!
function FSize(FileName: string): LongInt;
var
F: file;
begin
AssignFile(F, FileName);
reset(F, 1);
Result := FileSize(F);
CloseFile(F);
end;
用这个函数出现I/O Error 32
请高手指教!