|
@@ -63,7 +63,7 @@ uses dos,sysconst;
|
|
|
|
|
|
{ * Followings are implemented in the system unit! * }
|
|
|
function PathConv(path: shortstring): shortstring; external name 'PATHCONV';
|
|
|
-function PathConv(path: RawByteString): shortstring; external name 'PATHCONVRBS';
|
|
|
+function PathConv(path: RawByteString): RawByteString; external name 'PATHCONVRBS';
|
|
|
procedure AddToList(var l: Pointer; h: LongInt); external name 'ADDTOLIST';
|
|
|
function RemoveFromList(var l: Pointer; h: LongInt): boolean; external name 'REMOVEFROMLIST';
|
|
|
function CheckInList(var l: Pointer; h: LongInt): pointer; external name 'CHECKINLIST';
|
|
@@ -470,7 +470,7 @@ Begin
|
|
|
DiskSize := dos.DiskSize(Drive);
|
|
|
End;
|
|
|
|
|
|
-function DirectoryExists(const Directory: RawBytetring): Boolean;
|
|
|
+function DirectoryExists(const Directory: RawByteString): Boolean;
|
|
|
var
|
|
|
tmpStr : String;
|
|
|
tmpLock: LongInt;
|