procedure TForm1.Button1Click(Sender: TObject);
var
FreeBytesAvailableToCaller,
TotalNumberOfBytes :TLargeInteger;
TotalNumberOfFreeBytes :PLargeInteger;
begin
GetDiskFreeSpaceEx(PChar('C:'),FreeBytesAvailableToCaller,TotalNumberOfBytes,TotalNumberOfFreeBytes);
ShowMessage(
'총용량 : ' +
FormatFloat('#,', TotalNumberOfBytes) +
' 바이트, 남은용량 : ' +
FormatFloat('#,', TotalNumberOfFreeBytes) +
' 바이트'
);
end;
컴파일하면 이런 에러가 나는 군요 . 타입이 틀린것 같은데.... txt로 쓰는것도 구현해야하는데.... 예제에 나와있는걸 다 봤지만.. 다 잘되시나보군요...
[Error] freedisk.pas(41): Incompatible types: 'Extended' and 'PLargeInteger'