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 CDELib: String = 'cdejecter.dll';
implementation
end.
