unit cde_types;
{$mode delphi}
{$codepage UTF8}
interface
uses Classes, SysUtils;
//types
type TDiscInfo = packed record
      diHasInfo: Boolean;
      diDrive: WideChar;
      diFileSystem: String[25];
      diVolumeName: String[255];
      diSerial: LongInt
      end;
//const
const
      {$IFDEF WINDOWS}CDELib: String = 'cdejecter.dll';{$ENDIF}
      {$IFDEF UNIX}CDELib: String = 'libcdejecter.so';{$ENDIF}
implementation
end.
