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...

Hmmm,zajimave....stalo Ti to za to sem psat nebo si jeden z tech co ctou "pocitac pro kazdeho" a jenom si to sem okopcil...ja bych tipl spis to druhy....pripada me to logictejsi, nez ze bys to sem psal....to bys byl vazne MAGOR :o)

peace

Úplná pravda, člověk hledá něco na ovládání mechanik a pomalu u všech takovejch programů čte v komentářích blitky tohohle spamera. Většího ubožáka jsem už hodně dlouho neviděl!

Na co?

Mam NB, u ktoreho raz ide, raz nejde otvorenie mechaniky cez fyzicke tlacitko na dvierkach. Zato mi ide otvaranie cez SW. Lenze neustale naklikavanie na "My computer" pr. tlaci mysi na mech. a "Eject" je otrava a to uz nehovorim o dlhom nacitavani.

Nepouzivam prave tento program - ale iny, ktory mam v system tray a odvtedy nemam problem s otvaranim mechaniky.