* 사용환경 : 델파이4 Professional version/ Windows 98 안녕하세요? network에서 이미 다른 pc에서 화일을 단독open을 해서 화일을 사용하고 있습니다. 그런데 다른쪽에서는 open을 하지않고 화일크기만 알수 있는 방법이 있나요? 좀 가...
구창민
•
2000.03.09 04:17
deulsae wrote:
> * 사용환경 : 델파이4 Professional version/ Windows 98
>
> 안녕하세요?
>
> ne...
> * 사용환경 : 델파이4 Professional version/ Windows 98
>
> 안녕하세요?
>
> network에서 이미 다른 pc에서 화일을 단독open을 해서 화일을
> 사용하고 있습니다.
> 그런데 다른쪽에서는 open을 하지않고 화일크기만 알수 있는 방법이
> 있나요?
>
> 좀 가르쳐주세요...
>
> 초보라서..
> 자세히 가르쳐주시면....
> 더욱 감사히...
>
> 좋은 하루 되세요
>
안녕하세요~ 구창민입니다.
제가 사용하는 파일의 크기를 구하는 간단한 방법입니다.
즐거운 프로그래밍 되시길~
procedure TForm1.Button1Click(Sender: TObject);
var SearchRec: TSearchRec;
Re: integer;
begin
Re := Sysutils.FindFirst('c:Command.Com', faAnyFile, SearchRec);
if Re = 0 then ShowMessage(IntToStr(SearchRec.Size));
FindClose(SearchRec);
end;