52 lines
946 B
Plaintext
52 lines
946 B
Plaintext
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.
|
|
|