Zase dalsi pitomina na "zahumuseni" systemu.
Ma TO vubec smysl ?Kdyz mi chodi pocitace na opravy, tak se nekdy nestacim divit.Nejaka "lama" (kdo nevi co to znamena, at si to zjisti :o) !) okopiruje nekde par radku z webu:

priklad:
// Otevře dvířka CD mechaniky
//
// Vstupní hodnoty: Drive - písmeno jednotky CD mechaniky
//
// Výstupní hodnota: TRUE při úspěšném vysunutí CD mechaniky
//
function OpenCD(Drive: char): boolean;
var Res: MCIError;
OpenParm: TMCI_Open_Parms;
Flags: DWORD;
S: string;
DeviceID: word;
begin
Result := False;
S := Drive + ':';

Flags := mci_Open_Type or mci_Open_Element;
with OpenParm do begin
dwCallback := 0;
lpstrDeviceType := 'CDAudio';
lpstrElementName := PChar(S);
end;

Res := mciSendCommand(0, mci_Open, Flags, Longint(@OpenParm));
if Res <> 0 then
Exit;

DeviceID := OpenParm.wDeviceID;
try
Res := mciSendCommand(DeviceID, MCI_SET, MCI_SET_DOOR_OPEN, 0);
if Res = 0 then
Exit;

Result := True;
finally
mciSendCommand(DeviceID, mci_Close, Flags, Longint(@OpenParm));
end;
end;

// Zavře dvířka CD mechaniky
//
// Vstupní hodnoty: Drive - písmeno jednotky CD mechaniky
//
// Výstupní hodnota: TRUE při úspěšném zasunutí CD mechaniky
//
function CloseCD(Drive: char): boolean;
var Res: MCIError;
OpenParm: TMCI_Open_Parms;
Flags: DWORD;
S: string;
DeviceID: word;
begin
Result := False;
S := Drive + ':';

Flags := mci_Open_Type or mci_Open_Element;
with OpenParm do begin
dwCallback := 0;
lpstrDeviceType := 'CDAudio';
lpstrElementName := PChar(S);
end;

Res := mciSendCommand(0, mci_Open, Flags, Longint(@OpenParm));
if Res <> 0 then
Exit;

DeviceID := OpenParm.wDeviceID;
try
Res := mciSendCommand(DeviceID, MCI_SET, MCI_SET_DOOR_CLOSED, 0);
if Res = 0 then
Exit;

Result := True;
finally
mciSendCommand(DeviceID, mci_Close, Flags, Longint(@OpenParm));
end;
end;
------------------

... a uz pak se servisaci nestaci divit.Lidi chce to trosku soudnosti.Hlavni ti kteri tomu "rozumi" prostrednictvim casopisu ve stylu "Pocitac pro kazdeho", ci nedelni priloha novim... ach jo...