Program ktori vysunie cdromku – Delphi – Fórum – Programujte.com

Nazdar profici, potreboval by som program, ktori vysunie cd-romku, po tom ako tam vlozite cd-cko s urcitym nazvom ?? Poradite niekto?Potrebujem to do skoly???Vopred dakujem

Přesně nevim, ale zkus tohle: http://tipy-a-triky-v-delphi.wz.cz, tam to bude

jatra píše:#
# Nazdar profici, potreboval by som program, ktori vysunie cd-romku, po tom ako tam vlozite cd-cko s urcitym nazvom ?? Poradite niekto?Potrebujem to do skoly???Vopred dakujem

Colpik píše:#
# Přesně nevim, ale zkus tohle: http://tipy-a-triky-v-delphi.wz.cz, tam to bude

Smokie píše:#
#

jatra píše:#
# Nazdar profici, potreboval by som program, ktori vysunie cd-romku, po tom ako tam vlozite cd-cko s urcitym nazvom ?? Poradite niekto?Potrebujem to do skoly???Vopred dakujem

Zaskodnicka akcia? :) Ucitel vlozi CD s vyucbovymi materialmi a hopsla...

fíha. ročníkový projekt a začínáš ho tvořit na konci roku? :-)

Pomaly dalej zajdes...

Program na zasouvání a vysouvání cd-romky? To ti stačí pár řádků ve VB ;)

Aspoň ti poradim s tím jak vysunout a zasunout Cd-rom....zbytek si už budeš muset domyslet sám...
Do uses přidej MMSystem.

Vysune Cd-rom:

procedure TForm1.Button1Click(Sender: TObject);

begin

  mciSendString('Set cdaudio door open wait',nil,0,handle);

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

  mciSendString('Set cdaudio door closed wait',nil,0,handle);

end;

To seberm: To díky tomu textu se provede zasunutí/vysunutí?

To survik1: Ano...

seberm píše:#
# Aspoň ti poradim s tím jak vysunout a zasunout Cd-rom....zbytek si už budeš muset domyslet sám...#
#Do uses přidej MMSystem.#
##
#Vysune Cd-rom:#
#

procedure TForm1.Button1Click(Sender: TObject);#
#begin#
#  mciSendString(##uvozovka##Set cdaudio door open wait##uvozovka##,nil,0,handle);#
#end;

#
##
#Zasune Cd-rom:#
#

procedure TForm1.Button2Click(Sender: TObject);#
#begin#
#  mciSendString(##uvozovka##Set cdaudio door closed wait##uvozovka##,nil,0,handle);#
#end;

Re: program ktori vysunie cdromku - novýDatum: 11. 06. 2007 ve 09:00

jatra
Příspěvků: 5 seberm píše:
Aspoň ti poradim s tím jak vysunout a zasunout Cd-rom....zbytek si už budeš muset domyslet sám...
Do uses přidej MMSystem.

Vysune Cd-rom:


Kód
procedure TForm1.Button1Click(Sender: TObject);begin mciSendString('Set cdaudio door open wait',nil,0,handle);end;




Zasune Cd-rom:


Kód
procedure TForm1.Button2Click(Sender: TObject);begin mciSendString('Set cdaudio door closed wait',nil,0,handle);end;





Prosim ta,mozno to je trochu blba otazka, ale ja s tym programem moc robit nevim, jak mam pridat do uses MMSystem?Co to je uses?A co to je MMSystem??Dik...
--------------------------------------------------------------------------------
...MAFIAN...

....!!!!!!!!!!!!!!!!!!!!! Ked nevies co to je uses atd., tak co tu hladas???

To laco797: asi pomoc...

To jatra: Hm pomoc, ale aspon minimum znalosti by si mal mat. To je akoby si chcel zostrojit auto a nepoznas pojmy ako volant, motor, kolesa, atd...

Tak prosim Vas nepomoze niekto?potreboval by som to do 18.6

v části uses se přidávají knihovny nebo jiné unity, ve kterých můžeš mít procedury, datové typy, funkce, ... a ty pak můžeš z těchto unit používat aniž bys je musel znovu programovat, MMSystem je jedna z nich, uses najdeš na začátku zdrojového kódu, MMSystem přidáš připsáním jejího jména za ostatní unity

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, MMSystem;