Initial

Исходный код версии 2.0

sources/cdejecter_dll/__history/cdejecter.lpr;7

@@ -0,0 +1,51 @@
+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.
+