Initial

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

sources/cdejecter_dll/__history/cdejecter.lpr;6

@@ -0,0 +1,54 @@
+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}
+{$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.
+