Initial

Исходный код версии 2.0

sources/cdejecter_dll/data/double_commander/udrive.pas

@@ -0,0 +1,161 @@
+{
+   Double Commander
+   -------------------------------------------------------------------------
+   Structures describing drives.
+
+   Copyright (C) 2006-2010  Koblov Alexander (Alexx2000@mail.ru)
+   Copyright (C) 2010  Przemyslaw Nagay (cobines@gmail.com)
+
+   This program is free software; you can redistribute it and/or modify
+   it under the terms of the GNU General Public License as published by
+   the Free Software Foundation; either version 2 of the License, or
+   (at your option) any later version.
+
+   This program is distributed in the hope that it will be useful,
+   but WITHOUT ANY WARRANTY; without even the implied warranty of
+   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+   GNU General Public License for more details.
+
+   You should have received a copy of the GNU General Public License
+   along with this program; if not, write to the Free Software
+   Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
+}
+
+unit uDrive;
+
+{$mode objfpc}{$H+}
+
+interface
+
+uses
+  Classes;
+
+type
+  TDriveType = (dtUnknown,
+                dtFlash,         // Flash drive
+                dtFloppy,        // 3.5'', ZIP drive, etc.
+                dtHardDisk,      // Hard disk drive
+                dtNetwork,       // Network share
+                dtOptical,       // CD, DVD, Blu-Ray, etc.
+                dtRamDisk,       // Ram-disk
+                dtRemovable,     // Drive with removable media
+                dtRemovableUsb,  // Drive connected via USB
+                dtVirtual,       // Virtual drive
+                dtSpecial);      // Special drive
+
+  { TDrive }
+
+  // On Linux we also put here mount points other than drives.
+
+  TDrive = record
+    DisplayName,            //<en Name displayed to the user.
+    Path,                   //<en Where this drive is or should be mounted (by /etc/fstab).
+    DriveLabel,             //<en Drive label if filesystem on the drive supports it.
+    DeviceId: String;       //<en Device ID that can be used for mounting, ejecting, etc.
+    DriveType : TDriveType;
+    FileSystem: String;     //<en Filesystem on the drive
+    IsMediaAvailable: Boolean; //<en Is media available in a drive with removable media.
+    IsMediaEjectable: Boolean; //<en Can eject media by a command.
+    IsMediaRemovable: Boolean; //<en If the drive has removable media.
+    IsMounted: Boolean;        //<en Is the drive mounted.
+    AutoMount: Boolean;        //<en Should the drive be automounted
+  end;
+  PDrive = ^TDrive;
+
+  { TDrivesList }
+
+  TDrivesList = class
+  private
+    FList: TFPList;
+  protected
+    function Get(Index: Integer): PDrive;
+    function GetCount: Integer;
+  public
+    constructor Create;
+    destructor Destroy; override;
+    function Add(ADrive: PDrive): Integer;
+    procedure Remove(Index: Integer);
+    procedure RemoveAll;
+    procedure Sort(Compare: TListSortCompare);
+    property Items[Index: Integer]: PDrive read Get; default;
+    property Count: Integer read GetCount;
+  end;
+
+{en
+   Returns drive label or status description.
+}
+function GetDriveLabelOrStatus(Drive: PDrive): String;
+
+implementation
+
+uses
+  SysUtils;
+
+function GetDriveLabelOrStatus(Drive: PDrive): String;
+begin
+  if Drive^.DriveLabel <> EmptyStr then
+    Result := Drive^.DriveLabel
+  else if not Drive^.IsMediaAvailable then
+    Result := 'No media'
+  else
+    Result := 'No label';
+end;
+
+{ TDrivesList }
+
+constructor TDrivesList.Create;
+begin
+  FList := TFPList.Create;
+end;
+
+destructor TDrivesList.Destroy;
+begin
+  inherited Destroy;
+  RemoveAll;
+  FList.Free;
+end;
+
+function TDrivesList.Add(ADrive: PDrive): Integer;
+begin
+  Result := FList.Add(ADrive);
+end;
+
+procedure TDrivesList.Remove(Index: Integer);
+begin
+  if (Index >= 0) and (Index < FList.Count) then
+  begin
+    Dispose(PDrive(FList[Index]));
+    FList.Delete(Index);
+  end
+  else
+    raise ERangeError.Create('Invalid index');
+end;
+
+procedure TDrivesList.RemoveAll;
+begin
+  while FList.Count > 0 do
+    Remove(0);
+end;
+
+procedure TDrivesList.Sort(Compare: TListSortCompare);
+begin
+  FList.Sort(Compare);
+end;
+
+function TDrivesList.Get(Index: Integer): PDrive;
+begin
+  if (Index >= 0) and (Index < FList.Count) then
+  begin
+    Result := PDrive(FList.Items[Index]);
+  end
+  else
+    raise ERangeError.Create('Invalid index');
+end;
+
+function TDrivesList.GetCount: Integer;
+begin
+  Result := FList.Count;
+end;
+
+end.
+

sources/cdejecter_dll/data/double_commander/umyunix.pas

@@ -0,0 +1,37 @@
+unit uMyUnix;
+{$mode objfpc}{$H+}
+{$packrecords c}
+
+{$IF NOT DEFINED(LINUX)}
+{$DEFINE FPC_USE_LIBC}
+{$ENDIF}
+interface
+uses
+  Classes, SysUtils, BaseUnix, CTypes, uDrive;
+function fpSystemStatus(Command: string): cint;
+function EjectDrive(Drive: PDrive): Boolean;
+implementation
+
+uses
+  URIParser, Unix, Process, LazUTF8
+{$IF (NOT DEFINED(FPC_USE_LIBC)) or (DEFINED(BSD) AND NOT DEFINED(DARWIN))}
+  , SysCall
+{$ENDIF}
+;
+
+function fpSystemStatus(Command: string): cint;
+begin
+  Result := fpSystem(UTF8ToSys(Command));
+  if wifexited(Result) then
+    Result := wexitStatus(Result);
+end;
+
+function EjectDrive(Drive: PDrive): Boolean;
+begin
+{$IF DEFINED(DARWIN)}
+  Result := fpSystemStatus('diskutil eject ' + Drive^.DeviceId) = 0;
+  if not Result then
+{$ENDIF}
+  Result := fpSystemStatus('eject ' + Drive^.DeviceId) = 0;
+end;
+end.