mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-13 02:59:21 +02:00
amicommon: DiskSize/DiskFree implemented with some helper functions
git-svn-id: trunk@29297 -
This commit is contained in:
marcus
parent
677d30182a
commit
9c635671ce
@ -49,6 +49,12 @@ type
|
|||||||
|
|
||||||
{$I dosh.inc}
|
{$I dosh.inc}
|
||||||
|
|
||||||
|
function DeviceByIdx(Idx: Integer): string;
|
||||||
|
function AddDisk(Const Path: string): Integer;
|
||||||
|
function RefreshDeviceList: Integer;
|
||||||
|
function DiskSize(Drive: AnsiString): Int64;
|
||||||
|
function DiskFree(Drive: AnsiString): Int64;
|
||||||
|
|
||||||
implementation
|
implementation
|
||||||
|
|
||||||
{$DEFINE HAS_GETMSCOUNT}
|
{$DEFINE HAS_GETMSCOUNT}
|
||||||
@ -104,7 +110,7 @@ end;
|
|||||||
|
|
||||||
function BADDR(bval: LongInt): Pointer; Inline;
|
function BADDR(bval: LongInt): Pointer; Inline;
|
||||||
begin
|
begin
|
||||||
{$if defined(AROS) or (not defined(AROS_FLAVOUR_BINCOMPAT))}
|
{$if defined(AROS) and (not defined(AROS_FLAVOUR_BINCOMPAT))}
|
||||||
BADDR := Pointer(bval);
|
BADDR := Pointer(bval);
|
||||||
{$else}
|
{$else}
|
||||||
BADDR:=Pointer(bval Shl 2);
|
BADDR:=Pointer(bval Shl 2);
|
||||||
@ -113,7 +119,7 @@ end;
|
|||||||
|
|
||||||
function BSTR2STRING(s : Pointer): PChar; Inline;
|
function BSTR2STRING(s : Pointer): PChar; Inline;
|
||||||
begin
|
begin
|
||||||
{$if defined(AROS) or (not defined(AROS_FLAVOUR_BINCOMPAT))}
|
{$if defined(AROS) and (not defined(AROS_FLAVOUR_BINCOMPAT))}
|
||||||
BSTR2STRING:=PChar(s);
|
BSTR2STRING:=PChar(s);
|
||||||
{$else}
|
{$else}
|
||||||
BSTR2STRING:=PChar(BADDR(PtrInt(s)))+1;
|
BSTR2STRING:=PChar(BADDR(PtrInt(s)))+1;
|
||||||
@ -122,7 +128,7 @@ end;
|
|||||||
|
|
||||||
function BSTR2STRING(s : LongInt): PChar; Inline;
|
function BSTR2STRING(s : LongInt): PChar; Inline;
|
||||||
begin
|
begin
|
||||||
{$if defined(AROS) or (not defined(AROS_FLAVOUR_BINCOMPAT))}
|
{$if defined(AROS) and (not defined(AROS_FLAVOUR_BINCOMPAT))}
|
||||||
BSTR2STRING:=PChar(s);
|
BSTR2STRING:=PChar(s);
|
||||||
{$else}
|
{$else}
|
||||||
BSTR2STRING:=PChar(BADDR(s))+1;
|
BSTR2STRING:=PChar(BADDR(s))+1;
|
||||||
@ -507,91 +513,165 @@ end;
|
|||||||
--- Disk ---
|
--- Disk ---
|
||||||
******************************************************************************}
|
******************************************************************************}
|
||||||
|
|
||||||
{ How to solve the problem with this: }
|
{
|
||||||
{ We could walk through the device list }
|
The Diskfree and Disksize functions need a file on the specified drive, since this
|
||||||
{ at startup to determine possible devices }
|
is required for the statfs system call.
|
||||||
|
These filenames are set in drivestr[0..26], and have been preset to :
|
||||||
const
|
0 - ':' (default drive - hence current dir is ok.)
|
||||||
|
1 - 'DF0:' (floppy drive 1 - should be adapted to local system )
|
||||||
not_to_use_devs : array[0..12] of string =(
|
2 - 'DF1:' (floppy drive 2 - should be adapted to local system )
|
||||||
'DF0:',
|
3 - 'SYS:' (C: equivalent of dos is the SYS: partition)
|
||||||
'DF1:',
|
4..26 (can be set by you're own applications)
|
||||||
'DF2:',
|
! Use AddDisk() to Add new drives !
|
||||||
'DF3:',
|
They both return -1 when a failure occurs.
|
||||||
'PED:',
|
}
|
||||||
'PRJ:',
|
|
||||||
'PIPE:',
|
|
||||||
'RAM:',
|
|
||||||
'CON:',
|
|
||||||
'RAW:',
|
|
||||||
'SER:',
|
|
||||||
'PAR:',
|
|
||||||
'PRT:');
|
|
||||||
|
|
||||||
var
|
var
|
||||||
deviceids : array[1..20] of byte;
|
DeviceList: array[0..26] of string[20];
|
||||||
devicenames : array[1..20] of string[20];
|
NumDevices: Integer = 0;
|
||||||
numberofdevices : Byte;
|
|
||||||
|
const
|
||||||
|
IllegalDevices: array[0..12] of string =(
|
||||||
|
'PED:',
|
||||||
|
'PRJ:',
|
||||||
|
'PIPE:', // Pipes
|
||||||
|
'XPIPE:', // Extented Pipe
|
||||||
|
'CON:', // Console
|
||||||
|
'RAW:', // RAW: Console
|
||||||
|
'KCON:', // KingCON Console
|
||||||
|
'KRAW:', // KingCON RAW
|
||||||
|
'SER:', // serial Ports
|
||||||
|
'SER0:',
|
||||||
|
'SER1:',
|
||||||
|
'PAR:', // Parallel Porty
|
||||||
|
'PRT:'); // Printer
|
||||||
|
|
||||||
Function DiskFree(Drive: Byte): int64;
|
function IsIllegalDevice(DeviceName: string): Boolean;
|
||||||
Var
|
var
|
||||||
MyLock : LongInt;
|
i: Integer;
|
||||||
Inf : pInfoData;
|
Str: AnsiString;
|
||||||
Free : Int64;
|
begin
|
||||||
myproc : pProcess;
|
IsIllegalDevice := False;
|
||||||
OldWinPtr : Pointer;
|
Str := UpCase(DeviceName);
|
||||||
Begin
|
for i := Low(IllegalDevices) to High(IllegalDevices) do
|
||||||
Free := -1;
|
begin
|
||||||
{ Here we stop systemrequesters to appear }
|
if Str = IllegalDevices[i] then
|
||||||
myproc := pProcess(FindTask(nil));
|
begin
|
||||||
OldWinPtr := myproc^.pr_WindowPtr;
|
IsIllegalDevice := True;
|
||||||
myproc^.pr_WindowPtr := Pointer(-1);
|
Exit;
|
||||||
{ End of systemrequesterstop }
|
end;
|
||||||
New(Inf);
|
|
||||||
MyLock := dosLock(devicenames[deviceids[Drive]],SHARED_LOCK);
|
|
||||||
If MyLock <> 0 then begin
|
|
||||||
if Info(MyLock,Inf) <> 0 then begin
|
|
||||||
Free := (Int64(Inf^.id_NumBlocks) * Inf^.id_BytesPerBlock) -
|
|
||||||
(Int64(Inf^.id_NumBlocksUsed) * Inf^.id_BytesPerBlock);
|
|
||||||
end;
|
|
||||||
Unlock(MyLock);
|
|
||||||
end;
|
end;
|
||||||
Dispose(Inf);
|
|
||||||
{ Restore systemrequesters }
|
|
||||||
myproc^.pr_WindowPtr := OldWinPtr;
|
|
||||||
diskfree := Free;
|
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
function DeviceByIdx(Idx: Integer): string;
|
||||||
|
begin
|
||||||
Function DiskSize(Drive: Byte): int64;
|
DeviceByIdx := '';
|
||||||
Var
|
if (Idx < 0) or (Idx >= NumDevices) then
|
||||||
MyLock : LongInt;
|
Exit;
|
||||||
Inf : pInfoData;
|
DeviceByIdx := DeviceList[Idx];
|
||||||
Size : Int64;
|
|
||||||
myproc : pProcess;
|
|
||||||
OldWinPtr : Pointer;
|
|
||||||
Begin
|
|
||||||
Size := -1;
|
|
||||||
{ Here we stop systemrequesters to appear }
|
|
||||||
myproc := pProcess(FindTask(nil));
|
|
||||||
OldWinPtr := myproc^.pr_WindowPtr;
|
|
||||||
myproc^.pr_WindowPtr := Pointer(-1);
|
|
||||||
{ End of systemrequesterstop }
|
|
||||||
New(Inf);
|
|
||||||
MyLock := dosLock(devicenames[deviceids[Drive]],SHARED_LOCK);
|
|
||||||
If MyLock <> 0 then begin
|
|
||||||
if Info(MyLock,Inf) <> 0 then begin
|
|
||||||
Size := (Int64(Inf^.id_NumBlocks) * Inf^.id_BytesPerBlock);
|
|
||||||
end;
|
|
||||||
Unlock(MyLock);
|
|
||||||
end;
|
|
||||||
Dispose(Inf);
|
|
||||||
{ Restore systemrequesters }
|
|
||||||
myproc^.pr_WindowPtr := OldWinPtr;
|
|
||||||
disksize := Size;
|
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
function AddDisk(const Path: string): Integer;
|
||||||
|
begin
|
||||||
|
// if hit border, restart at 4
|
||||||
|
if NumDevices > 26 then
|
||||||
|
NumDevices := 4;
|
||||||
|
// set the device
|
||||||
|
DeviceList[NumDevices] := Copy(Path, 1, 20);
|
||||||
|
// return the Index increment for next run
|
||||||
|
AddDisk := NumDevices;
|
||||||
|
Inc(NumDevices);
|
||||||
|
end;
|
||||||
|
|
||||||
|
function RefreshDeviceList: Integer;
|
||||||
|
var
|
||||||
|
List: PDosList;
|
||||||
|
Temp: PChar;
|
||||||
|
Str: string;
|
||||||
|
begin
|
||||||
|
NumDevices := 0;
|
||||||
|
AddDisk(':'); // Index 0
|
||||||
|
AddDisk('DF0:'); // Index 1
|
||||||
|
AddDisk('DF1:'); // Index 2
|
||||||
|
AddDisk('SYS:'); // Index 3
|
||||||
|
// Lock the List
|
||||||
|
List := LockDosList(LDF_DEVICES or LDF_READ);
|
||||||
|
// Inspect the List
|
||||||
|
repeat
|
||||||
|
List := NextDosEntry(List, LDF_DEVICES);
|
||||||
|
if List <> nil then
|
||||||
|
begin
|
||||||
|
Temp := BSTR2STRING(List^.dol_Name);
|
||||||
|
Str := strpas(Temp) + ':';
|
||||||
|
if not IsIllegalDevice(str) then
|
||||||
|
AddDisk(Str);
|
||||||
|
end;
|
||||||
|
until List = nil;
|
||||||
|
RefreshDeviceList := NumDevices;
|
||||||
|
end;
|
||||||
|
|
||||||
|
// New easier DiskSize()
|
||||||
|
//
|
||||||
|
function DiskSize(Drive: AnsiString): Int64;
|
||||||
|
var
|
||||||
|
DirLock: LongInt;
|
||||||
|
Inf: TInfoData;
|
||||||
|
MyProc: PProcess;
|
||||||
|
OldWinPtr: Pointer;
|
||||||
|
begin
|
||||||
|
DiskSize := -1;
|
||||||
|
//
|
||||||
|
MyProc := PProcess(FindTask(Nil));
|
||||||
|
OldWinPtr := MyProc^.pr_WindowPtr;
|
||||||
|
MyProc^.pr_WindowPtr := Pointer(-1);
|
||||||
|
//
|
||||||
|
DirLock := Lock(PChar(Drive), SHARED_LOCK);
|
||||||
|
if DirLock <> 0 then
|
||||||
|
begin
|
||||||
|
if Info(DirLock, @Inf) <> 0 then
|
||||||
|
DiskSize := Int64(Inf.id_NumBlocks) * Inf.id_BytesPerBlock;
|
||||||
|
UnLock(DirLock);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function DiskSize(Drive: Byte): Int64;
|
||||||
|
begin
|
||||||
|
DiskSize := -1;
|
||||||
|
if (Drive < 0) or (Drive >= NumDevices) then
|
||||||
|
Exit;
|
||||||
|
DiskSize := DiskSize(DeviceList[Drive]);
|
||||||
|
end;
|
||||||
|
|
||||||
|
// New easier DiskFree()
|
||||||
|
//
|
||||||
|
function DiskFree(Drive: AnsiString): Int64;
|
||||||
|
var
|
||||||
|
DirLock: LongInt;
|
||||||
|
Inf: TInfoData;
|
||||||
|
MyProc: PProcess;
|
||||||
|
OldWinPtr: Pointer;
|
||||||
|
begin
|
||||||
|
DiskFree := -1;
|
||||||
|
//
|
||||||
|
MyProc := PProcess(FindTask(Nil));
|
||||||
|
OldWinPtr := MyProc^.pr_WindowPtr;
|
||||||
|
MyProc^.pr_WindowPtr := Pointer(-1);
|
||||||
|
//
|
||||||
|
DirLock := Lock(PChar(Drive), SHARED_LOCK);
|
||||||
|
if DirLock <> 0 then
|
||||||
|
begin
|
||||||
|
if Info(DirLock, @Inf) <> 0 then
|
||||||
|
DiskFree := Int64(Inf.id_NumBlocks - Inf.id_NumBlocksUsed) * Inf.id_BytesPerBlock;
|
||||||
|
UnLock(DirLock);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function DiskFree(Drive: Byte): Int64;
|
||||||
|
begin
|
||||||
|
DiskFree := -1;
|
||||||
|
if (Drive < 0) or (Drive >= NumDevices) then
|
||||||
|
Exit;
|
||||||
|
DiskFree := DiskSize(DeviceList[Drive]);
|
||||||
|
end;
|
||||||
|
|
||||||
procedure FindFirst(const Path: PathStr; Attr: Word; Var f: SearchRec);
|
procedure FindFirst(const Path: PathStr; Attr: Word; Var f: SearchRec);
|
||||||
var
|
var
|
||||||
@ -1082,61 +1162,8 @@ begin
|
|||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
|
||||||
procedure AddDevice(str : String);
|
|
||||||
begin
|
|
||||||
inc(numberofdevices);
|
|
||||||
deviceids[numberofdevices] := numberofdevices;
|
|
||||||
devicenames[numberofdevices] := str;
|
|
||||||
end;
|
|
||||||
|
|
||||||
function MakeDeviceName(str : pchar): string;
|
|
||||||
var
|
|
||||||
temp : string[20];
|
|
||||||
begin
|
|
||||||
temp := strpas(str);
|
|
||||||
temp := temp + ':';
|
|
||||||
MakeDeviceName := temp;
|
|
||||||
end;
|
|
||||||
|
|
||||||
function IsInDeviceList(str : string): boolean;
|
|
||||||
var
|
|
||||||
i : byte;
|
|
||||||
theresult : boolean;
|
|
||||||
begin
|
|
||||||
theresult := false;
|
|
||||||
for i := low(not_to_use_devs) to high(not_to_use_devs) do
|
|
||||||
begin
|
|
||||||
if str = not_to_use_devs[i] then begin
|
|
||||||
theresult := true;
|
|
||||||
break;
|
|
||||||
end;
|
|
||||||
end;
|
|
||||||
IsInDeviceList := theresult;
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure ReadInDevices;
|
|
||||||
var
|
|
||||||
dl : pDosList;
|
|
||||||
temp : pchar;
|
|
||||||
str : string[20];
|
|
||||||
begin
|
|
||||||
dl := LockDosList(LDF_DEVICES or LDF_READ );
|
|
||||||
repeat
|
|
||||||
dl := NextDosEntry(dl,LDF_DEVICES );
|
|
||||||
if dl <> nil then begin
|
|
||||||
temp := BSTR2STRING(dl^.dol_Name);
|
|
||||||
str := MakeDeviceName(temp);
|
|
||||||
if not IsInDeviceList(str) then
|
|
||||||
AddDevice(str);
|
|
||||||
end;
|
|
||||||
until dl = nil;
|
|
||||||
UnLockDosList(LDF_DEVICES or LDF_READ );
|
|
||||||
end;
|
|
||||||
|
|
||||||
begin
|
begin
|
||||||
DosError:=0;
|
DosError:=0;
|
||||||
numberofdevices := 0;
|
|
||||||
StrOfPaths := '';
|
StrOfPaths := '';
|
||||||
ReadInDevices;
|
RefreshDeviceList;
|
||||||
end.
|
end.
|
||||||
|
|||||||
@ -42,12 +42,17 @@ interface
|
|||||||
|
|
||||||
{ Platform dependent calls }
|
{ Platform dependent calls }
|
||||||
|
|
||||||
Procedure AddDisk(const path:string);
|
function DeviceByIdx(Idx: Integer): string;
|
||||||
|
function AddDisk(Const Path: string): Integer;
|
||||||
|
function RefreshDeviceList: Integer;
|
||||||
|
function DiskSize(Drive: AnsiString): Int64;
|
||||||
|
function DiskFree(Drive: AnsiString): Int64;
|
||||||
|
|
||||||
|
|
||||||
implementation
|
implementation
|
||||||
|
|
||||||
uses dos,sysconst;
|
uses
|
||||||
|
dos, sysconst;
|
||||||
|
|
||||||
{$DEFINE FPC_FEXPAND_VOLUMES} (* Full paths begin with drive specification *)
|
{$DEFINE FPC_FEXPAND_VOLUMES} (* Full paths begin with drive specification *)
|
||||||
{$DEFINE FPC_FEXPAND_DRIVESEP_IS_ROOT}
|
{$DEFINE FPC_FEXPAND_DRIVESEP_IS_ROOT}
|
||||||
@ -76,6 +81,33 @@ var
|
|||||||
ASYS_FileList: Pointer; external name 'ASYS_FILELIST';
|
ASYS_FileList: Pointer; external name 'ASYS_FILELIST';
|
||||||
|
|
||||||
|
|
||||||
|
function BADDR(bval: LongInt): Pointer; Inline;
|
||||||
|
begin
|
||||||
|
{$if defined(AROS) and (not defined(AROS_FLAVOUR_BINCOMPAT))}
|
||||||
|
BADDR := Pointer(bval);
|
||||||
|
{$else}
|
||||||
|
BADDR:=Pointer(bval Shl 2);
|
||||||
|
{$endif}
|
||||||
|
end;
|
||||||
|
|
||||||
|
function BSTR2STRING(s : Pointer): PChar; Inline;
|
||||||
|
begin
|
||||||
|
{$if defined(AROS) and (not defined(AROS_FLAVOUR_BINCOMPAT))}
|
||||||
|
BSTR2STRING:=PChar(s);
|
||||||
|
{$else}
|
||||||
|
BSTR2STRING:=PChar(BADDR(PtrInt(s)))+1;
|
||||||
|
{$endif}
|
||||||
|
end;
|
||||||
|
|
||||||
|
function BSTR2STRING(s : LongInt): PChar; Inline;
|
||||||
|
begin
|
||||||
|
{$if defined(AROS) and (not defined(AROS_FLAVOUR_BINCOMPAT))}
|
||||||
|
BSTR2STRING:=PChar(s);
|
||||||
|
{$else}
|
||||||
|
BSTR2STRING:=PChar(BADDR(s))+1;
|
||||||
|
{$endif}
|
||||||
|
end;
|
||||||
|
|
||||||
function AmigaFileDateToDateTime(aDate: TDateStamp; out success: boolean): TDateTime;
|
function AmigaFileDateToDateTime(aDate: TDateStamp; out success: boolean): TDateTime;
|
||||||
var
|
var
|
||||||
tmpSecs: DWord;
|
tmpSecs: DWord;
|
||||||
@ -494,48 +526,161 @@ end;
|
|||||||
The Diskfree and Disksize functions need a file on the specified drive, since this
|
The Diskfree and Disksize functions need a file on the specified drive, since this
|
||||||
is required for the statfs system call.
|
is required for the statfs system call.
|
||||||
These filenames are set in drivestr[0..26], and have been preset to :
|
These filenames are set in drivestr[0..26], and have been preset to :
|
||||||
0 - '.' (default drive - hence current dir is ok.)
|
0 - ':' (default drive - hence current dir is ok.)
|
||||||
1 - '/fd0/.' (floppy drive 1 - should be adapted to local system )
|
1 - 'DF0:' (floppy drive 1 - should be adapted to local system )
|
||||||
2 - '/fd1/.' (floppy drive 2 - should be adapted to local system )
|
2 - 'DF1:' (floppy drive 2 - should be adapted to local system )
|
||||||
3 - '/' (C: equivalent of dos is the root partition)
|
3 - 'SYS:' (C: equivalent of dos is the SYS: partition)
|
||||||
4..26 (can be set by you're own applications)
|
4..26 (can be set by you're own applications)
|
||||||
! Use AddDisk() to Add new drives !
|
! Use AddDisk() to Add new drives !
|
||||||
They both return -1 when a failure occurs.
|
They both return -1 when a failure occurs.
|
||||||
}
|
}
|
||||||
Const
|
|
||||||
FixDriveStr : array[0..3] of pchar=(
|
|
||||||
'.',
|
|
||||||
'/fd0/.',
|
|
||||||
'/fd1/.',
|
|
||||||
'/.'
|
|
||||||
);
|
|
||||||
var
|
var
|
||||||
Drives : byte;
|
DeviceList: array[0..26] of string[20];
|
||||||
DriveStr : array[4..26] of pchar;
|
NumDevices: Integer = 0;
|
||||||
|
|
||||||
|
const
|
||||||
|
IllegalDevices: array[0..12] of string =(
|
||||||
|
'PED:',
|
||||||
|
'PRJ:',
|
||||||
|
'PIPE:', // Pipes
|
||||||
|
'XPIPE:', // Extented Pipe
|
||||||
|
'CON:', // Console
|
||||||
|
'RAW:', // RAW: Console
|
||||||
|
'KCON:', // KingCON Console
|
||||||
|
'KRAW:', // KingCON RAW
|
||||||
|
'SER:', // serial Ports
|
||||||
|
'SER0:',
|
||||||
|
'SER1:',
|
||||||
|
'PAR:', // Parallel Porty
|
||||||
|
'PRT:'); // Printer
|
||||||
|
|
||||||
Procedure AddDisk(const path:string);
|
function IsIllegalDevice(DeviceName: string): Boolean;
|
||||||
|
var
|
||||||
|
i: Integer;
|
||||||
|
Str: AnsiString;
|
||||||
begin
|
begin
|
||||||
if not (DriveStr[Drives]=nil) then
|
IsIllegalDevice := False;
|
||||||
FreeMem(DriveStr[Drives],StrLen(DriveStr[Drives])+1);
|
Str := UpperCase(DeviceName);
|
||||||
GetMem(DriveStr[Drives],length(Path)+1);
|
for i := Low(IllegalDevices) to High(IllegalDevices) do
|
||||||
StrPCopy(DriveStr[Drives],path);
|
begin
|
||||||
inc(Drives);
|
if Str = IllegalDevices[i] then
|
||||||
if Drives>26 then
|
begin
|
||||||
Drives:=4;
|
IsIllegalDevice := True;
|
||||||
|
Exit;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
function DeviceByIdx(Idx: Integer): string;
|
||||||
|
begin
|
||||||
|
DeviceByIdx := '';
|
||||||
|
if (Idx < 0) or (Idx >= NumDevices) then
|
||||||
|
Exit;
|
||||||
|
DeviceByIdx := DeviceList[Idx];
|
||||||
|
end;
|
||||||
|
|
||||||
|
function AddDisk(const Path: string): Integer;
|
||||||
|
begin
|
||||||
|
// if hit border, restart at 4
|
||||||
|
if NumDevices > 26 then
|
||||||
|
NumDevices := 4;
|
||||||
|
// set the device
|
||||||
|
DeviceList[NumDevices] := Copy(Path, 1, 20);
|
||||||
|
// return the Index increment for next run
|
||||||
|
AddDisk := NumDevices;
|
||||||
|
Inc(NumDevices);
|
||||||
|
end;
|
||||||
|
|
||||||
Function DiskFree(Drive: Byte): int64;
|
function RefreshDeviceList: Integer;
|
||||||
Begin
|
var
|
||||||
DiskFree := dos.diskFree(Drive);
|
List: PDosList;
|
||||||
End;
|
Temp: PChar;
|
||||||
|
Str: string;
|
||||||
|
begin
|
||||||
|
NumDevices := 0;
|
||||||
|
AddDisk(':'); // Index 0
|
||||||
|
AddDisk('DF0:'); // Index 1
|
||||||
|
AddDisk('DF1:'); // Index 2
|
||||||
|
AddDisk('SYS:'); // Index 3
|
||||||
|
// Lock the List
|
||||||
|
List := LockDosList(LDF_DEVICES or LDF_READ);
|
||||||
|
// Inspect the List
|
||||||
|
repeat
|
||||||
|
List := NextDosEntry(List, LDF_DEVICES);
|
||||||
|
if List <> nil then
|
||||||
|
begin
|
||||||
|
Temp := BSTR2STRING(List^.dol_Name);
|
||||||
|
Str := strpas(Temp) + ':';
|
||||||
|
if not IsIllegalDevice(str) then
|
||||||
|
AddDisk(Str);
|
||||||
|
end;
|
||||||
|
until List = nil;
|
||||||
|
RefreshDeviceList := NumDevices;
|
||||||
|
end;
|
||||||
|
|
||||||
|
// New easier DiskSize()
|
||||||
|
//
|
||||||
|
function DiskSize(Drive: AnsiString): Int64;
|
||||||
|
var
|
||||||
|
DirLock: LongInt;
|
||||||
|
Inf: TInfoData;
|
||||||
|
MyProc: PProcess;
|
||||||
|
OldWinPtr: Pointer;
|
||||||
|
begin
|
||||||
|
DiskSize := -1;
|
||||||
|
//
|
||||||
|
MyProc := PProcess(FindTask(Nil));
|
||||||
|
OldWinPtr := MyProc^.pr_WindowPtr;
|
||||||
|
MyProc^.pr_WindowPtr := Pointer(-1);
|
||||||
|
//
|
||||||
|
DirLock := Lock(PChar(Drive), SHARED_LOCK);
|
||||||
|
if DirLock <> 0 then
|
||||||
|
begin
|
||||||
|
if Info(DirLock, @Inf) <> 0 then
|
||||||
|
DiskSize := Int64(Inf.id_NumBlocks) * Inf.id_BytesPerBlock;
|
||||||
|
UnLock(DirLock);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
Function DiskSize(Drive: Byte): int64;
|
function DiskSize(Drive: Byte): Int64;
|
||||||
Begin
|
begin
|
||||||
DiskSize := dos.DiskSize(Drive);
|
DiskSize := -1;
|
||||||
End;
|
if (Drive < 0) or (Drive >= NumDevices) then
|
||||||
|
Exit;
|
||||||
|
DiskSize := DiskSize(DeviceList[Drive]);
|
||||||
|
end;
|
||||||
|
|
||||||
|
// New easier DiskFree()
|
||||||
|
//
|
||||||
|
function DiskFree(Drive: AnsiString): Int64;
|
||||||
|
var
|
||||||
|
DirLock: LongInt;
|
||||||
|
Inf: TInfoData;
|
||||||
|
MyProc: PProcess;
|
||||||
|
OldWinPtr: Pointer;
|
||||||
|
begin
|
||||||
|
DiskFree := -1;
|
||||||
|
//
|
||||||
|
MyProc := PProcess(FindTask(Nil));
|
||||||
|
OldWinPtr := MyProc^.pr_WindowPtr;
|
||||||
|
MyProc^.pr_WindowPtr := Pointer(-1);
|
||||||
|
//
|
||||||
|
DirLock := Lock(PChar(Drive), SHARED_LOCK);
|
||||||
|
if DirLock <> 0 then
|
||||||
|
begin
|
||||||
|
if Info(DirLock, @Inf) <> 0 then
|
||||||
|
DiskFree := Int64(Inf.id_NumBlocks - Inf.id_NumBlocksUsed) * Inf.id_BytesPerBlock;
|
||||||
|
UnLock(DirLock);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function DiskFree(Drive: Byte): Int64;
|
||||||
|
begin
|
||||||
|
DiskFree := -1;
|
||||||
|
if (Drive < 0) or (Drive >= NumDevices) then
|
||||||
|
Exit;
|
||||||
|
DiskFree := DiskSize(DeviceList[Drive]);
|
||||||
|
end;
|
||||||
|
|
||||||
function DirectoryExists(const Directory: RawByteString): Boolean;
|
function DirectoryExists(const Directory: RawByteString): Boolean;
|
||||||
var
|
var
|
||||||
@ -763,7 +908,8 @@ Initialization
|
|||||||
OnBeep:=Nil; { No SysBeep() on Amiga, for now. Figure out if we want
|
OnBeep:=Nil; { No SysBeep() on Amiga, for now. Figure out if we want
|
||||||
to use intuition.library/DisplayBeep() for this (KB) }
|
to use intuition.library/DisplayBeep() for this (KB) }
|
||||||
StrOfPaths:='';
|
StrOfPaths:='';
|
||||||
|
|
||||||
|
RefreshDeviceList;
|
||||||
Finalization
|
Finalization
|
||||||
DoneExceptions;
|
DoneExceptions;
|
||||||
end.
|
end.
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user