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
Fórum › Delphi
Program ktori vysunie cdromku
![](img/forum_vlakno_help_vyreseno.png)
Přesně nevim, ale zkus tohle: http://tipy-a-triky-v-delphi.wz.cz, tam to bude
Zaskodnicka akcia? :) Ucitel vlozi CD s vyucbovymi materialmi a hopsla...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
Nemozem to tam najst...nemohol by si mi poslat konkretny link??pls??
Smokie píše:#
#Zaskodnicka akcia? :) Ucitel vlozi CD s vyucbovymi materialmi a hopsla...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
nie to nie je zaskodnicka akcia...potrebujem taky program spravit ako rocnikovy projekt...do skoly...na predmet: Programovanie..
fíha. ročníkový projekt a začínáš ho tvořit na konci roku? :-)
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;
Zasune Cd-rom:
procedure TForm1.Button2Click(Sender: TObject);
begin
mciSendString('Set cdaudio door closed wait',nil,0,handle);
end;
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;
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...
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 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...
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;
![](img/forum_nove_psp_new.png)
Přidej příspěvek
Ano, opravdu chci reagovat → zobrazí formulář pro přidání příspěvku
×Vložení zdrojáku
×Vložení obrázku
×Vložení videa
![](/img/smile/1.gif)
![](/img/smile/2.gif)
![](/img/smile/3.gif)
![](/img/smile/4.gif)
![](/img/smile/5.gif)
![](/img/smile/6.gif)
![](/img/smile/7.gif)
![](/img/smile/8.gif)
![](/img/smile/9.gif)
![](/img/smile/10.gif)
![](/img/smile/11.gif)
![](/img/smile/12.gif)
![](/img/smile/13.gif)
![](/img/smile/14.gif)
![](/img/smile/15.gif)
![](/img/smile/16.gif)
![](/img/smile/17.gif)
![](/img/smile/18.gif)
![](/img/smile/19.gif)
![](/img/smile/20.gif)
![](/img/smile/21.gif)
![](/img/smile/22.gif)
![](/img/smile/23.gif)
![](/img/smile/24.gif)
![](/img/smile/25.gif)
![](/img/smile/26.gif)
![](/img/smile/27.gif)
![](/img/smile/28.gif)
![](/img/smile/29.gif)
![](/img/smile/30.gif)
![](/img/smile/31.gif)
![](/img/smile/32.gif)
Uživatelé prohlížející si toto vlákno
Podobná vlákna
Program, ktory otvori iny program — založil Nummi
C# program — založil Tomas.P
C# program — založil xpiii