library cdejecter;
{$mode delphi}
{$codepage UTF8}
uses Classes, LazUTF8Classes, sysutils, cde_types, windows, mmsystem;
{$R *.res}
function GetCDDiscs: PWideChar;
var i, j : Integer;
    Buf : array [0..95] of Char;
    SL: TStringListUTF8;
begin
{$IFDEF WINDOWS}
{$I wGetCDDiscs_core.inc}
{$ENDIF}
{$IFDEF UNIX}
{$I lGetCDDiscs_core.inc}
{$ENDIF}
end;
function GetVolumeInfo (const ADisc: WideChar): TDiscInfo;
{$IFDEF WINDOWS}
{$I wGetVolumeInfo_vars.inc}
{$ENDIF}
{$IFDEF UNIX}
{$I lGetVolumeInfo_vars.inc}
{$ENDIF}
begin
{$IFDEF WINDOWS}
{$I wGetVolumeInfo_core.inc}
{$ENDIF}
{$IFDEF UNIX}
{$I lGetVolumeInfo_core.inc}
{$ENDIF}
end;
function EjectCD (const ADisc: WideChar): Boolean;
{$IFDEF WINDOWS}
{$I wEjectCD_vars.inc}
{$ENDIF}
{$IFDEF UNIX}
{$I lEjectCD_vars.inc}
{$ENDIF}
begin
{$IFDEF WINDOWS}
{$I wEjectCD_core.inc}
{$ENDIF}
{$IFDEF UNIX}
{$I lEjectCD_core.inc}
{$ENDIF}
end;
exports GetCDDiscs, GetVolumeInfo, EjectCD;
begin
end.