문을 입력하십시오. (작성을 끝내시려면 줄 처음에 '.' 을 입력하십시오)
빈 디스크 용량의 총량을 되돌리는
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: 미리 답변해주시는 분께 감사드립니다.
|