TActlEjectMedia = packed record Letter: DWORD; Flags: DWORD; end; PActlEjectMedia = ^TActlEjectMedia;