Delphi Programming Forum
C++Builder  |  Delphi  |  FireMonkey  |  C/C++  |  Free Pascal  |  Firebird
볼랜드포럼 BorlandForum
 경고! 게시물 작성자의 사전 허락없는 메일주소 추출행위 절대 금지
델파이 포럼
Q & A
FAQ
팁&트릭
강좌/문서
자료실
컴포넌트/라이브러리
FreePascal/Lazarus
볼랜드포럼 홈
헤드라인 뉴스
IT 뉴스
공지사항
자유게시판
해피 브레이크
공동 프로젝트
구인/구직
회원 장터
건의사항
운영진 게시판
회원 메뉴
북마크
델마당
볼랜드포럼 광고 모집

델파이 Q&A
Delphi Programming Q&A
[6820] >질문< GetDiskFree API를 델파이에서 쓰려면 어케해요?
hk4801 [ ] 712 읽음    1999-11-21 00:33
문을 입력하십시오. (작성을 끝내시려면 줄 처음에 '.' 을 입력하십시오)

빈 디스크 용량의 총량을 되돌리는
GetDiskFreeSpace API 함수를 사용하려고 합니다.
함수의 원형은

BOOL GetDiskFreeSpace(
//루트 디렉토리명을 넣어 둔 문자열의 포인터
LPCTSTR lpRootPathName,  
//클러스터 주위의 섹터수를 넣어 두는 버퍼의 포인터
LPDWORD lpSectorsPerCluster,
//빈 클러스터수를 넣어 두는 버퍼의 포인터
LPDWORD lpBytePerSector,
//섹터 주위의 바이트 수를 넣어 두는 포인터
LPDWORD lpNumberOfFreeCluster,
//총 클러스터 수를 넣어 두는 버퍼의 포이터
LPDWORD lpTotalNumberOfCluster
  );

인데 이거 어떻게 해야 델파이에서 선언해서

사용해야하는지 모르겠네요.

아시는분 한 수 부탁드립니다.

조금의 조언이라도 ...

잘 몰라서 아래와 같이 선언해봤는데 T.T 에러만..

type
  aa = ^Longword;
  bb = ^Longword;
  cc = ^Longword;
  dd = ^Longword;

implementation

{$R *.DFM}
var
a: aa;
b: bb;
c: cc;
d: dd;

procedure TForm1.Button1Click(Sender: TObject);
var x : Boolean;
begin
x := GetDiskFreeSpace('c:\', a, b, c, d);
end;

컴파일시 다음과 같은 에러가 발생합니다.
[Error] Unit1.pas(42):
Types of actual and formal var parameters must be identical



P.S: 미리 답변해주시는 분께 감사드립니다.


+ -

관련 글 리스트
6820 >질문< GetDiskFree API를 델파이에서 쓰려면 어케해요? hk4801 712 1999/11/21
Google
Copyright © 1999-2015, borlandforum.com. All right reserved.