library cdejecter;
{$mode delphi}
{$codepage UTF8}
uses Classes, LazUTF8Classes, sysutils, cde_types{$IFDEF WINDOWS}, windows, mmsystem{$ENDIF}{$IFDEF UNIX}, {$IFDEF UseCThreads}cthreads,{$ENDIF}udrive, umyunix{$ENDIF};
{$R *.res}
function GetCDDiscs: PWideChar;
{$IFDEF WINDOWS}
{$I wGetCDDiscs_vars.inc}
{$ENDIF}
{$IFDEF UNIX}
{$I lGetCDDiscs_vars.inc}
{$ENDIF}
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}
begin
{$IFDEF WINDOWS}
{$I wEjectCD_core.inc}
{$ENDIF}
end;
exports GetCDDiscs, GetVolumeInfo, EjectCD;
begin
end.

