Initial

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

sources/cdejecter_dll/__history/cdejecter.lpr;3

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