|
@@ -14,18 +14,34 @@
|
|
|
|
|
|
**********************************************************************}
|
|
**********************************************************************}
|
|
|
|
|
|
-Function DiskFree (Drive : Byte) : Longint;
|
|
|
|
|
|
+{$IFDEF INT64}
|
|
|
|
+
|
|
|
|
+function DiskFree (Drive : Byte) : int64;
|
|
|
|
+
|
|
|
|
+begin
|
|
|
|
+end;
|
|
|
|
+
|
|
|
|
+
|
|
|
|
+function DiskSize (Drive : Byte) : int64;
|
|
|
|
|
|
begin
|
|
begin
|
|
end;
|
|
end;
|
|
|
|
|
|
|
|
+{$ELSE}
|
|
|
|
|
|
-Function DiskSize (Drive : Byte) : Longint;
|
|
|
|
|
|
+function DiskFree (Drive : Byte) : Longint;
|
|
|
|
|
|
begin
|
|
begin
|
|
end;
|
|
end;
|
|
|
|
|
|
|
|
|
|
|
|
+function DiskSize (Drive : Byte) : Longint;
|
|
|
|
+
|
|
|
|
+begin
|
|
|
|
+end;
|
|
|
|
+
|
|
|
|
+{$ENDIF}
|
|
|
|
+
|
|
Function GetCurrentDir : String;
|
|
Function GetCurrentDir : String;
|
|
|
|
|
|
begin
|
|
begin
|
|
@@ -53,7 +69,10 @@ end;
|
|
|
|
|
|
{
|
|
{
|
|
$Log$
|
|
$Log$
|
|
- Revision 1.3 2000-02-09 16:59:33 peter
|
|
|
|
|
|
+ Revision 1.4 2000-05-21 15:55:11 hajny
|
|
|
|
+ * int64 result for Disk* functions
|
|
|
|
+
|
|
|
|
+ Revision 1.3 2000/02/09 16:59:33 peter
|
|
* truncated log
|
|
* truncated log
|
|
|
|
|
|
Revision 1.2 2000/01/07 16:41:45 daniel
|
|
Revision 1.2 2000/01/07 16:41:45 daniel
|