39 lines
809 B
Plaintext
39 lines
809 B
Plaintext
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}
|
|
var SL: TStringListUTF8;
|
|
DL: T
|
|
begin
|
|
{$IFDEF WINDOWS}
|
|
{$I wGetCDDiscs_core.inc}
|
|
{$ENDIF}
|
|
end;
|
|
function GetVolumeInfo (const ADisc: WideChar): TDiscInfo;
|
|
{$IFDEF WINDOWS}
|
|
{$I wGetVolumeInfo_vars.inc}
|
|
{$ENDIF}
|
|
begin
|
|
{$IFDEF WINDOWS}
|
|
{$I wGetVolumeInfo_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.
|
|
|