Hlavní navigace

CD Eject 1.2

Názory na software CD Eject

  • 6. 12. 2002 11:11

    Jirka (neregistrovaný)
    Je to sice pekny, ale kdyz clovek nema vysouvaci CDROMku tak je to docela nanic. A dobry by bylo kdyby to vyhazovalo i diskety :)
  • 15. 12. 2004 8:45

    Aleš Jílek (neregistrovaný)
    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...
  • 15. 3. 2009 10:47

    matheusko (neregistrovaný)
     . . . no ja tomu nerozumiem ani "ň". Ale viem ze niektore subory programu sa daju napriklad v PSPade editovat robim to pri miniaplikaciach na vistu ked sa mi nepaci vzhlad al nejaka drobnost.
    Da sa vysvetlit aj pre tych ostatnych. Ze co mame cakat. Nie vsetci vidia do toho co si natlacia do PC.
    A este autorovi tej srandy ja viem ze cielom je funkcnost a nie vzhlad, hlavne ak to trci niekde mimo zaberu, ale je mnoho uzivatelov, ktory si na vzhlad potrpia napr.: ja mam Vistu. A ten vzhlad mi jednoducho do Aero prostredia nesadne, preto pouzivam miniaplikaciu na postrannom panely s vlastnou vzhladovou upravou otvara a zatvara na dotyk mysou nemrzne a zvlada dve mechaniky.

Programy ke stažení jsou na Slunečnici bez virů a spyware.